arama

[husonet]

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select*from Arsiv');
query1.SQL.Add('where ((ADI) OR (SOYADI) OR (BABA_ADI)) LIKE aram1');
query1.ParamByName('Param1').AsString :=edit8.text;
query1.Open;

Düzeltme yapıyorum

Kod: Tümünü seç

query1.Close; 
query1.SQL.Clear; 
query1.SQL.Add('select*from Arsiv'); 
if ((Edit3.Text <> '') and (Edit2.Text <> '')) and (Edit1.text <> '') Then //Edit 3 den geriye doğru tek tek bak bakalım veri olan edit varmı yoksa en son edit1'e bak
Begin
      query1.SQL.Add('where ADI =:PADI and SOYADI =:PSOYADI and BABA_ADI=:PBABA_ADI');     
      query1.ParamByName('PADI').AsString :=edit1.text; 
      query1.ParamByName('PSOYADI').AsString :=edit2.text; 
      query1.ParamByName('PBABA_ADI').AsString :=edit3.text; 
      query1.Open;
End
Else
if (Edit1.text <> '') and (Edit2.text <> '') Then
Begin
      query1.SQL.Add('where ADI =:PADI and SOYADI =:PSOYADI');     
      query1.ParamByName('PADI').AsString :=edit1.text; 
      query1.ParamByName('PSOYADI').AsString :=edit2.text; 
      query1.Open;
End
if Edit1.text <> ''Then
Begin
      query1.SQL.Add('where ADI =:PADI');     
      query1.ParamByName('PADI').AsString :=edit1.text; 
      query1.Open;
End
Else
      query1.Open; //Edit ler boşsa bütün tabloyu dök
     

Serüven bu şekilde uzayıp gider.
Mantık bu şekilde olmalı kodları test etmedim.

İyi Geceler.
Kolay Gelsin...

[husonet]

İlk gönderdiğim kodu değiştirdim.

İyi Geceler Uyku bastırdı.

[dtgb]

mrb
tam olarak hatırlamıyorum ama sanırım query nesnesinin requestlive ozelligiyle ilgili olabilir. bence properties e bi bak.

[bobasturk]

Hüseyin abi çok teşekkür ederim verdiğin kod çalışıyor.

Sana ve çevreye verdiğim sıkıntıdan dolayı özür diler terkar teşekkür ederim.

saygı ve sevgilerle.

[husonet]

Estağfurullah.

Kolay Gelsin...