fiz assim:queChave.SQL.Text := 'SELECT pg.usename FROM pg_user pg WHERE pg.usename = ' + QuotedStr(Trim(edtUsuario.Text));
queChave.Open; if (queChave.Eof) Then begin TransacaoStart(queChave2);queChave2.SQL.Text := 'CREATE USER "' + Trim(edtUsuario.Text) + '" ENCRYPTED PASSWORD ' + QuotedStr(edtSenha.Text) + ' CREATEDB CREATEUSER';
queChave2.ExecSQL; TransacaoCommit(queChave2); end else begin TransacaoStart(queChave2);queChave2.SQL.Text := 'ALTER USER "' + Trim(edtUsuario.Text) + '" WITH PASSWORD ' + QuotedStr(edtSenha.Text);
queChave2.ExecSQL; TransacaoCommit(queChave2); end; queChave.Close;
Em 13/11/2012 13:41, Éverton Bueno Lima escreveu:
Blz,Estou desenvolvendo uma aplicação Delphi XE2 com PostGreSQL, e estou querendo realizar um procedimento na conexão que ainda não achei a solução.Estou precisando de criar uma área que será criada o login do usuário so que quero criar o usuário no banco de dados para poder facilitar quando for criado a auditoria do sistema, e estou precisando da ajuda de você se alguém já implementou uma solução parecida, criar o usuário no banco e realizar o login do sistema com usuário do banco de dados.Atte, Éverton Bueno Lima _______________________________________________ pgbr-geral mailing list pgbr-geral@listas.postgresql.org.br https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
<<attachment: cgcesarsoares.vcf>>
_______________________________________________ pgbr-geral mailing list pgbr-geral@listas.postgresql.org.br https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral