??? filtreleme

[erdogan_ozkaya]

arkadaşlar, aşağıdaki kodda ki hata nedir acaba ?

Kod: Tümünü seç

  Cari_Sec_DB.Close;
    Cari_Sec_DB.SQL.Clear;
    Cari_Sec_DB.SQL.Add('SELECT Cari_ID, Genel_Cari_Unvan, Calisilan_Firma_ID');
    Cari_Sec_DB.SQL.Add('FROM Cari_Kart_Liste');

    if (Edit3.Text <> '') then
    Cari_Sec_DB.SQL.Add('WHERE Genel_Cari_Unvan LIKE ''' + Edit3.Text + '%'' ');

 Cari_Sec_DB.SQL.Add(' AND (Calisilan_Firma_ID = "' + Ana_Pencere.DBEdit6.text + '")');  // bu satırda hata veriyor

    Cari_Sec_DB.Open;
    Caption:='Bulunan Kayıt : '+Cari_Sec_DB.FieldByName('Genel_Cari_Unvan').AsString;

[varyemez]

if yazarken begin ......... end bloğunu atlamışsınız

Kod: Tümünü seç

 Cari_Sec_DB.Close;
    Cari_Sec_DB.SQL.Clear;
    Cari_Sec_DB.SQL.Add('SELECT Cari_ID, Genel_Cari_Unvan, Calisilan_Firma_ID');
    Cari_Sec_DB.SQL.Add( 'FROM Cari_Kart_Liste');

    if (Edit3.Text <> '') then
   begin
    Cari_Sec_DB.SQL.Add(' WHERE Genel_Cari_Unvan LIKE ' + Quotedstr(Edit3.Text);
   Cari_Sec_DB.SQL.Add(' AND (Calisilan_Firma_ID = '+ Quotedstr(Ana_Pencere.DBEdit6.text+'%'));  // bu satırda hata veriyor
  end;  // firma ID nin string olduğunu varsaydık  ,  eğer integer ise gerekli çevirmeyi yapın

    Cari_Sec_DB.Open;
    Caption:='Bulunan Kayıt : '+Cari_Sec_DB.FieldByName('Genel_Cari_Unvan').AsString;

[unicorn64]

Genel_Cari_Unvan alanı için sadece edit3 e değer girilmişse kontrol koymak istyorsanız

Kod: Tümünü seç

    Cari_Sec_DB.SQL.Add('SELECT Cari_ID, Genel_Cari_Unvan, Calisilan_Firma_ID');
    Cari_Sec_DB.SQL.Add('FROM Cari_Kart_Liste WHERE (1=1) ');

    if (Edit3.Text <> '') then
       Cari_Sec_DB.SQL.Add(' AND Genel_Cari_Unvan LIKE ''' + Edit3.Text + '%'' ');

    Cari_Sec_DB.SQL.Add(' AND (Calisilan_Firma_ID = "' + Ana_Pencere.DBEdit6.text + '")');  // bu satırda hata veriyor

[erdogan_ozkaya]

kardeş denedim fakat olmadı Cari_Sec_DB.SQL.Add('FROM Cari_Kart_Liste WHERE (1=1) '); hata veriyor

Genel_Cari_Unvan alanı için sadece edit3 e değer girilmişse kontrol koymak istyorsanız

Kod: Tümünü seç

    Cari_Sec_DB.SQL.Add('SELECT Cari_ID, Genel_Cari_Unvan, Calisilan_Firma_ID');
    Cari_Sec_DB.SQL.Add('FROM Cari_Kart_Liste WHERE (1=1) ');

    if (Edit3.Text <> '') then
       Cari_Sec_DB.SQL.Add(' AND Genel_Cari_Unvan LIKE ''' + Edit3.Text + '%'' ');

    Cari_Sec_DB.SQL.Add(' AND (Calisilan_Firma_ID = "' + Ana_Pencere.DBEdit6.text + '")');  // bu satırda hata veriyor

[erdogan_ozkaya]

arkadaşlar aşağıdaki kod çalışıyor fakat sadece firma ünvanına göre filtreleme yapıyor tabloda "Calisilan_Firma_ID" die field var aynızamanda buna görede filtreleme yapmalı nasıl ne yapabilirim ?

Kod: Tümünü seç

procedure TCari_Kart_Sec.Edit3Change(Sender: TObject);
begin
    CariKart_DB_Cari_Sec_DB.Close;
    CariKart_DB_Cari_Sec_DB.SQL.Clear;
    CariKart_DB_Cari_Sec_DB.SQL.Add('SELECT Cari_ID, Genel_Cari_Unvan, Calisilan_Firma_ID');
    CariKart_DB_Cari_Sec_DB.SQL.Add('FROM Cari_Kart_Liste');
    if (Edit3.Text <> '') then
     CariKart_DB_Cari_Sec_DB.SQL.Add('WHERE Genel_Cari_Unvan LIKE ''' + Edit3.Text + '%'' ');
    CariKart_DB_Cari_Sec_DB.Open;
    Caption:='Bulunan Kayıt : '+CariKart_DB_Cari_Sec_DB.FieldByName('Genel_Cari_Unvan').AsString;
end;

teşekkürler

[erdogan_ozkaya]

işine yarayan olur

Kod: Tümünü seç

    Cari_Sec_DB.Close;
    Cari_Sec_DB.SQL.Clear;
    Cari_Sec_DB.SQL.Add('SELECT * FROM Cari_Kart_Liste');
    Cari_Sec_DB.SQL.Add('WHERE Genel_Cari_Unvan');
    Cari_Sec_DB.SQL.Add('LIKE ''%'+Edit3.Text+'%''');
    Cari_Sec_DB.Sql.Add('and Calisilan_Firma_ID = '''+Ana_Pencere.DBEdit6.Text+''' ');
    Cari_Sec_DB.Open;