Fórum Consulta SQL #149439
25/03/2003
0
Galera estou usando o delphi6 e IB 6 ..
Gostaria que qdo o usuario do sistema Digita-se a letra ´ T ´ Aparece-se todo os registros com a letra T no grid ..
fiz assim mas nada ... deve estar faltando alguma coisa
IBQcliente.Close;
IBQcliente.SQL.Clear;
IBQcliente.SQL.Add(´SELECT * FROM CLIENTES´);
IBQcliente.SQL.Add(´WHERE IDCLI=:IDCLI´);// chave pk
IBQcliente.ParamByName(´IDCLI´).ASINTEGER:=STRTOINT(edt_pes_cod_cli.Text);
IBQcliente.Prepare;
IBQcliente.Open;
fia assim mas só aparecer o nome correto do cliente ..obrigado
Gostaria que qdo o usuario do sistema Digita-se a letra ´ T ´ Aparece-se todo os registros com a letra T no grid ..
fiz assim mas nada ... deve estar faltando alguma coisa
IBQcliente.Close;
IBQcliente.SQL.Clear;
IBQcliente.SQL.Add(´SELECT * FROM CLIENTES´);
IBQcliente.SQL.Add(´WHERE IDCLI=:IDCLI´);// chave pk
IBQcliente.ParamByName(´IDCLI´).ASINTEGER:=STRTOINT(edt_pes_cod_cli.Text);
IBQcliente.Prepare;
IBQcliente.Open;
fia assim mas só aparecer o nome correto do cliente ..obrigado
C-t
Curtir tópico
+ 0
Responder
Posts
25/03/2003
Dr. Kill
IBQcliente.Close;
IBQcliente.SQL.Clear;
IBQcliente.SQL.Add(´SELECT * FROM CLIENTES´);
IBQcliente.SQL.Add(´WHERE IDCLI containing :IDCLI´);// chave pk
IBQcliente.ParamByName(´IDCLI´).ASINTEGER:=STRTOINT(edt_pes_cod_cli.Text);
IBQcliente.Prepare;
IBQcliente.Open;
IBQcliente.SQL.Clear;
IBQcliente.SQL.Add(´SELECT * FROM CLIENTES´);
IBQcliente.SQL.Add(´WHERE IDCLI containing :IDCLI´);// chave pk
IBQcliente.ParamByName(´IDCLI´).ASINTEGER:=STRTOINT(edt_pes_cod_cli.Text);
IBQcliente.Prepare;
IBQcliente.Open;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)