BoDyGuArD

harf harf arama
________________________________________
programların help lerindeki gibi her harfe basışınızda olasılıkları elyerek listeyi küçülten bir kod oldukça kullanışlı
forma bir edit ile bir dbgrid koyun.gerekli data bağlantılarını yapın.edit in on aaa press olayına kodu yazın

procedure TfrmKayit.Edit1aaaPress(Sender: TObject; var aaa: Char);
var
sql1sql2: string;
begin
if aaa = #8 then s := copy(s1length(s)-1)
else
s := s + aaa;
sql1 := 'select * from T082003';
sql2 := 'where Firma like "%' + s + '%"';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(sql1);
query1.SQL.Add(sql2);
datasource1.DataSet := query1;
query1.Open;
end;
* s değişkeni public tanımlanmıştır.
* tam çalışması için onenter olayına da su kodu yazın

edit2.Clear;
s := ";
s := edit1.Text;
sql1 := 'select * from T082003';
sql2 := 'where Firma like "%' + s + '%"';
query1.Active := false;
query1.SQL.Clear;
query1.SQL.Add(sql1);
query1.SQL.Add(sql2);
datasource1.DataSet := query1;
query1.Active := true;

royiv24

peki bana isim sayı olarak felan aramayı gösterirmisin veri tabanım access ve veri tabaından kayıt yapıp görüntü almak istiyorum mümkünse videolu anlatım olursa sevinirim

MUNYEZ

Gerekli databağlantılarını yapın demişsin fakat Affınıza sığınarak söyluyorum ki ; bir çok baglantı şekli var sızın de bıldıgınız gıbı.Baglantı seklını de yazarsanız daha faydalı olucagına ınanıyorum.(query olmadan da baglantı saglanabilir)