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 [email protected] https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
<<attachment: cgcesarsoares.vcf>>
_______________________________________________ pgbr-geral mailing list [email protected] https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
