ActiveDelphi

[rcamoleze]

Amigos boa noite. Fiquei um tempo afastado da programação agora vou retornando. Em meu retorno estou utilizando Delphi 7 com oracle.
Na app teste que estou fazendo, estou utilizando os componentes da paleta DBExpress sendo eles: TSQLConnection, TSQLQuery.

Fiz uma tabela simples no banco, cadastro de usuários: código, nome e senha.

Como eu era acostumado a fazer, os objetos de banco coloquei em um datamodule ai no evento OnExit do campo usuário coloquei o seguinte código:

procedure TFrmAcesso.edtUsuarioExit(Sender: TObject);
var
Mensagem : String;

sUsuario : String;

begin

sUsuario := '';

sUsuario := Concat('''',edtUsuario.Text,'''');

With dtmPrincipal.sqlqryUsuario Do
Begin
If Active Then Close;
SQL.Clear;
SQL.Add('Select NM_USUARIO From USERS ');
SQL.Add('Where USUARIO = :Login');
ParamByName('Login').AsString := sUsuario;
Open;
End;

lblUsuario.Caption := dtmPrincipal.sqlqryUsuario.Fields[0].AsString;

end;

Porém o que ocorre é que não retorna nenhum dado.

Já fiz um teste direcionando a variável sUsuario para um edit e ele mostra o valor correto da variável por exemplo: 'TESTE'

Alguém poderia dar um help.

Att
Robison
rcamoleze@yahoo.com.br

[rcamoleze]

consegui ajustar....