Consulta SQL
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
Curtidas 0
Respostas
Dr. Kill
25/03/2003
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;
GOSTEI 0