Filrelemedeki Hata ?

[erdogan_ozkaya]

arkadaşlar bu kod çalışıyor

Kod: Tümünü seç

     ILCELER_DB_1.Close;    
     ILCELER_DB_1.SQL.Add('SELECT DISTINCT NUFUS_ILI, NUFUS_ILCESI FROM SECMEN Where NUFUS_ILI = 'KARS'); 
     ILCELER_DB_1.Open;

bu kod çalışmıyor nerede hata var acaba ?

Kod: Tümünü seç

     ILCELER_DB_1.Close;    
     ILCELER_DB_1.SQL.Add('SELECT DISTINCT NUFUS_ILI, NUFUS_ILCESI FROM SECMEN Where NUFUS_ILI = '+DBLookupComboBox1.Text+'); 
     ILCELER_DB_1.Open;

[esistem]

Kod: Tümünü seç

 ILCELER_DB_1.Close;   
     ILCELER_DB_1.SQL.Add('SELECT DISTINCT NUFUS_ILI, NUFUS_ILCESI FROM SECMEN Where NUFUS_ILI = '+DBLookupComboBox1.KeyValue+');
     ILCELER_DB_1.Open;

şeklinde yapın.

[unicorn64]

aslında birebir kopyaladıysanız ilki de çalışmaz hatta derlenmez bile tırnak hatasından dolayı...

Kod: Tümünü seç

ILCELER_DB_1.SQL.Add('SELECT DISTINCT NUFUS_ILI, NUFUS_ILCESI FROM SECMEN Where NUFUS_ILI = '+ QuotedStr(DBLookupComboBox1.Text)); 

şeklinde bir deneyin bir de tabi bu noktaya bir breakpoint koyup DBLookupComboBox1.Text den istediğiniz değerin gelip gelmediğini bir kontrol edin

[erdogan_ozkaya]

TEŞEKKÜRLER

aslında birebir kopyaladıysanız ilki de çalışmaz hatta derlenmez bile tırnak hatasından dolayı...

Kod: Tümünü seç

ILCELER_DB_1.SQL.Add('SELECT DISTINCT NUFUS_ILI, NUFUS_ILCESI FROM SECMEN Where NUFUS_ILI = '+ QuotedStr(DBLookupComboBox1.Text)); 

şeklinde bir deneyin bir de tabi bu noktaya bir breakpoint koyup DBLookupComboBox1.Text den istediğiniz değerin gelip gelmediğini bir kontrol edin