SQL ile harf harf arama.

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
spectacuLar
Kilobyte2
Kilobyte2
Mesajlar: 370
Kayıt: 21 Eyl 2006, 18:04
cinsiyet: Erkek

SQL ile harf harf arama.

Mesaj gönderen spectacuLar » 20 Mar 2007, 18:09

programların help lerindeki gibi her harfe basısınızda olasılıkları elyerek listeyi küçülten bir kod oldukça kullanıslı
forma bir edit ile bir dbgrid koyun.gerekli data baglantılarını yapın.edit in on key press olayına kodu yazın
  • procedure TfrmKayit.Edit1KeyPress(Sender: TObject; var Key: Char);
    var
    sql1,sql2: string;
    begin
    if key = #8 then s := copy(s,1,length(s)-1)
    else
    s := s + key;
    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 degiskeni public tanımlanmıstır.
* tam çalısması 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;
hzr=spectacuLar



Cevapla