Vyhledavani v tabulce podle retezce – Delphi – Fórum – Programujte.com

cau,

mam takovej problem,  mam proceduru na vyhledavani v tabulce ,kde muzu vybrat sloupec pro vyhledavani (ComboBox1) a cast obsazeneho textu (Edit1)
napsal mi ji kdysi znamej,kterej mi kratce pomahal s Delphi,,pak se odstehoval do Ameriky kvuli praci a zbylo mi po nem akorat par procedur jako je treba tahle, ... o te jsem vedel ze budu potrebovat,ale nejak nefunguje ...  pomuze mi prosim nekdo najit chybu ?? 

procedure TForm1.BtHledatClick(Sender: TObject);
var s: string;
begin
  Query2.close;
  Query2.SQL.Clear;

  if length(edit1.Text) = 0 then
  s := 'select * from Evidence.db'
else
  s := Format('select * from Evidence.db where %s like ''%%%s%%''', [combobox1.Text, edit1.text]);

  Query2.sql.Add(s);
  Query2.Open;
  if Query2.RecordCount = 0 then ShowMessage('nic tam neni');
end;

respective, kdyz jsem za radek if Query2.RecordCount = 0 then ShowMessage('nic tam neni')  .....  dopsal ..... else showmessage('je tam');

tak mi pri nalezeni napise, je tam, ale v DBGridu mi jakokdyby neprobehne filtr, ..  vsechno zustane tak jak je a ja byh potreboval, aby se v DBGridu vypsaly jen ty radky/vety, ktery ten retezec obsahuji.

a nepomuze ani kdyz pod radek Query2.Open;  zapisu Query2.Filtered:= true;

A to Query2 máš s DBGridem propojený jak?

query2.DataSource:= DataSource1
           .DatabaseName:=('cesta k databazi')

DBGrid.DataSource:= DataSource1

DataSource1.DataSet:= Table1

a Table1 mam nastaveny cesta k databazi a cesta k souboru .DB

vsechno funguje, isert,edit,delete, ..  vyhledavani vlastne taky funguje, jen se mi v DBGridu neprovedou zadny zmeny, je tam porad cela databaze.

#6 liborb

   ano ano, zalsouzim si to,  ..  kritika na miste,vymluvy nikoho nezajimaji, ...

opet nezbyva, nez diky moc ...