Filtrelemedeki sorun

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Filtrelemedeki sorun

Mesaj gönderen erdogan_ozkaya »

arkadaşlar aşağıdaki kod çalışıyor fakat


SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' ');

bu işlem yapmıyor nedne olabilir acaba ?

Kod: Tümünü seç

if RadioGroup1.ItemIndex=0 then
    begin
    SERVIS_KABUL_DB.Close;
    SERVIS_KABUL_DB.SQL.Clear;
    SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.CALISILAN_FIRMA,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN, ');
    SERVIS_KABUL_DB.SQL.Add('SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI ');
   // SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN,SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID  ');
    SERVIS_KABUL_DB.SQL.Add('FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID');


    if (Edit1.Text <> '' ) then
    SERVIS_KABUL_DB.SQL.Add('WHERE URUN_ADI LIKE ''' + Edit1.Text + '%'' ');

   SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' '); 


    SERVIS_KABUL_DB.Open;
    Caption:='İşlem Kayıt Bulunan Kayıt : '+SERVIS_KABUL_DB.FieldByName('URUN_ADI').AsString;
end;
arkantos_55
Üye
Mesajlar: 25
Kayıt: 26 Nis 2011 03:18

Re: Filtrelemedeki sorun

Mesaj gönderen arkantos_55 »

Kod: Tümünü seç

SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' ');
buşekilde bir sorguda kafadan hata alırsın

Kod: Tümünü seç

SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '+#39+Ana_Pencere.DBEdit6.Text+#39  );kullanırsan daha iyi

yani

Kod: Tümünü seç

SERVIS_KABUL_DB.SQL.Add('WHERE URUN_ADI LIKE '+#39 + Edit1.Text + '%'+#39 );

şeklinde bir dene
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: Filtrelemedeki sorun

Mesaj gönderen erdogan_ozkaya »

CEVABINIZ İÇİN TEŞEKKÜRLER FAKAT NE HATA VERİYOR NEDE ÇALIŞIYOR :)
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: Filtrelemedeki sorun

Mesaj gönderen erdogan_ozkaya »

CEVABINIZ İÇİN TEŞEKKÜRLER YANLIŞ DENEMİŞİM İŞİNE YARAYAN ARKADAŞ OLURSA

Kod: Tümünü seç

procedure TSERVIS_KABUL_ISLEM_KAYIT_PENCERE.Edit1Change(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
    begin
    SERVIS_KABUL_DB.Close;
    SERVIS_KABUL_DB.SQL.Clear;
    SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.CALISILAN_FIRMA,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN, ');
    SERVIS_KABUL_DB.SQL.Add('SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI ');
    SERVIS_KABUL_DB.SQL.Add('FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID');

    SERVIS_KABUL_DB.SQL.Add('WHERE URUN_ADI LIKE ''' + Edit1.Text + '%'' ');
    SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '+#39+Ana_Pencere.DBEdit6.Text+#39);
    SERVIS_KABUL_DB.Open;
    Caption:='İşlem Kayıt Bulunan Kayıt : '+SERVIS_KABUL_DB.FieldByName('URUN_ADI').AsString;
end;

if RadioGroup1.ItemIndex=1 then
    begin
    SERVIS_KABUL_DB.Close;
    SERVIS_KABUL_DB.SQL.Clear;
    SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN, ');
    SERVIS_KABUL_DB.SQL.Add('SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI ');
    SERVIS_KABUL_DB.SQL.Add('FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID');

    SERVIS_KABUL_DB.SQL.Add('WHERE SERVIS_ID LIKE '+#39 + Edit1.Text + '%'+#39 );

    SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '+#39+Ana_Pencere.DBEdit6.Text+#39);

    SERVIS_KABUL_DB.Open;
    Caption:='İşlem Kayıt Bulunan Kayıt : '+SERVIS_KABUL_DB.FieldByName('URUN_ADI').AsString;
  end;
end;
Cevapla