Fórum ComboBox para pesquisa!! #180786
08/09/2003
0
:?:
Olá... sou novo em programaçao e preciso de uma ajudinha.
eu tenho um banco de dados e queria pegar as informaçoes dele em um ComboBox ( ou algo parecido ).
eu conheco ja o DBLookup mas nao eh isso que eu quero... eu quero o combo box pra fazer uma pesquisa e o DBlookup nao da pra faer isso....
obrigado...
:?:
Olá... sou novo em programaçao e preciso de uma ajudinha.
eu tenho um banco de dados e queria pegar as informaçoes dele em um ComboBox ( ou algo parecido ).
eu conheco ja o DBLookup mas nao eh isso que eu quero... eu quero o combo box pra fazer uma pesquisa e o DBlookup nao da pra faer isso....
obrigado...
:?:
Riperes
Curtir tópico
+ 0
Responder
Posts
08/09/2003
Mmtoor
Prezado colega.
Experimente:
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
if ComboBox1.Text=´Nome´then
Begin
dmfinancas.qryClientes.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Codigo´;
dmfinanas.qryClientes.SQL.Add(a+b+c);
dmfinancas.qryClientes.Params[0].AsString;
dmfinancas.qryClientes.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
dmfinancas.qryClientes.Close;
dmfinancas.qryClientes.Open;
MMTOOR2003
Experimente:
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
if ComboBox1.Text=´Nome´then
Begin
dmfinancas.qryClientes.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Codigo´;
dmfinanas.qryClientes.SQL.Add(a+b+c);
dmfinancas.qryClientes.Params[0].AsString;
dmfinancas.qryClientes.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
dmfinancas.qryClientes.Close;
dmfinancas.qryClientes.Open;
MMTOOR2003
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)