ComboBox para pesquisa!!
:?:
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
Curtidas 0
Respostas
Mmtoor
08/09/2003
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
GOSTEI 0