consulta com ado

[rogerbender 0]

oi pessoal estou fazendo um programa que utiliza um banco de dados access, estou utilizando o componente ado do delphi.

quero que quando digite a data no edit.text ela apareça no dbgrid, digitei este codigo no edit.text so que ele nao retorna nada no dbgrid

alguem pode me ajudar obrigado.

with tbl_historico do begin

close;

sql.Clear;

sql.Add('select * from histórico');

sql.Add('where 1=1');

if (edit3.Text <> '') then begin

sql.Add('and data =:data');

parameters.ParamByName('data').Value := '%' +edit3.Text+ '%';

end;

 

o que sera que ta erado.

valeu!

[wllf 2]

Testa assim:

close;

sql.Clear;

sql.Add('select * from histórico');

sql.Add('where 1=1');

if (edit3.Text <> '') then begin

sql.Add('and data =:data');

parameters.ParamByName('data').Value := '%' +edit3.Text+ '%';

open; ///faltou o open na consulta///

end;

[Daniel Oliveira_ 0]

oi pessoal estou fazendo um programa que utiliza um banco de dados access, estou utilizando o componente ado do delphi.

quero que quando digite a data no edit.text ela apareça no dbgrid, digitei este codigo no edit.text so que ele nao retorna nada no dbgrid

alguem pode me ajudar obrigado.

with tbl_historico do begin

close;

sql.Clear;

sql.Add('select * from histórico');

sql.Add('where 1=1');

if (edit3.Text <> '') then begin

sql.Add('and data =:data');

parameters.ParamByName('data').Value := '%' +edit3.Text+ '%';

end;

 

o que sera que ta erado.

valeu!

 

Tente trabalhar com a propriedade Filter e Filtered.

Seu codigo ficaria parecido com esse:

 

 

with cds(Tbl) do

begin

if cds(Tbl).active then

cds(Tbl).close;

filtered:=false;

if TryStrToDate(value,tempDt) then

filter:='DATA like ' + QuotedStr('%' + tempDt + '%');

filtered:=true;

cds(Tbl).open;

end;

 

[]'s

 

Daniel Oliveira

Programador de Sistemas

 

 

 

 

 

 

[bdexterholland 0]

e tira aquele

Where 1=1