Veritabanında arama yapmak

[digital_agels]

merhaba formuma ado ekledim ado ile mdb dosyasına bağlantı kuruyorum ,dbgridede verileri gösteriyorum fakat arama ekleyemedim birtürlü yardımcı olurmusunuz mümkünse..

[bobasturk]

Merhaba arkadaşım,

bu tür arama konuları forumda bi hayli geçti. formu arama özelliğini kullanırsan pek çok konuya ulaşabilirsin. adoquery gibi.

kolay gelsin.

[digital_agels]

arama yaptım ama istediğin sonuca varamadım..

[digital_agels]

procedure TForm1.Button6Click(Sender: TObject);
begin
try

// adoTable1.Locate('Program',Edit1.Text,[]);
adoQuery1.Close;
adoQuery1.Sql.Clear;
adoQuery1.Sql.Add('Select * Program "'+Edit1.text+'%"');
adoQuery1.Open;
except
ShowMessage('Hata oluştu : 224');
end;

end;

"sözdimi hatası eksik işleç" diye hata veriyor




procedure TForm1.Edit1Change(Sender: TObject);
begin
With Edit1 do
if Text <> '' then begin
adoQuery1.Filter := 'code = '''+Edit1.Text+'''';
adoQuery1.FindFirst;
end;
end;
veya

procedure TForm1.Edit1Change(Sender: TObject);
begin
With Edit1 do
if Text <> '' then
adoQuery1.Locate('code',Edit1.Text,[loPartialKey]);
end;

bunlarda hata veriyor

[bobasturk]

merhaba şunu örnek vermek istiyorum, denemedim ama genel kullanım açısından;

Kod: Tümünü seç

procedure TForm1.Button6Click(Sender: TObject); 
begin 

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select*from tablon');
adoquery1.sql.add('where alanın like '''+edit1.text+'''');
adoquery1.open;

tek bir kriter ile arama yapmanı ve grid vs. içine dökmeni sağlar. birden fazla alanlar için arama yapma konusu ise bi hayli geçti incelersen bulacağına inanyorum.

veri giriş formu üzerinde kayda konumlanmak istersen de

Kod: Tümünü seç

ibdataset1.Locate('ALAN ADIN',Edit1.Text,[loCaseInsensitive, loPartialKey]);

bunun gibi bişi

Kolay gelsin