delphi+SQL(LIKE)

[dtgb]

slm arkadaslar tablolarını access te olusturdugum bir bir program yazıyorum delphide. fakat olusturdugum sql cumlesinde like komutunu calıstıramadım yardımcı olabilirmisiniz??

begin
a:=edit1.Text;
dm.Qiplik.Close;
dm.Qiplik.SQL.Clear;
dm.Qiplik.SQL.Text := 'select * from dbo_Iplikler where IplikKodu LIKE' + #39 + a + #39 ;
dm.Qiplik.Prepare;
dm.Qiplik.Open;
end;
sizce sorun nerede??

[TRSoft]

Sanırım lıkedan sonra buşluk vermemişsin..

[mussimsek]

Merhaba,

öncelikle aramıza hoşgeldiniz

1. Öncelikle SQL'i Access'te deneyip çalıştırın. Bir de Access'te değişik kullanımlar olabiliyor. Emin olmamakla birlikte % yerine # kullanılıyor galiba. LIKE'ın standart kullanımı şu şekildedir :

SELECT *
FROM TABLO_ADI
WHERE ALAN_ADI LIKE 'AAA%'

2. DM.Qiplik.Open satırından önce, query'i açmadan SQL'e bakarak yanlışı tespit edin.

ShowMessage(DM.Qiplik.SQL.Text)

Kolay gelsin.

[rsimsek]

Kod: Tümünü seç

dm.Qiplik.SQL.Text := 'select * from dbo_Iplikler where IplikKodu LIKE '''%' + a +'%'''; 

Çalıştıramadım derken herhangi bir sonuç mu döndürmüyor, yoksa başka bir hata mı alıyorsun pek anlaşılmasa da yukarıdaki şekilnde yazarsan çalışacaktır.

[dtgb]

Hosbulduk
malesef arkadaslar komut hala calısmadı yani calısmadı derken like komustu islevini yapmıyor.
Tesekkurler...

[mussimsek]

Merhaba,

kodunuzu ve varsa aldığınız hata belirtirseniz daha kolay çözüm bulunabilir.

[dtgb]

begin
a:=edit1.Text;
dm.Qiplik.Close;
dm.Qiplik.SQL.Clear;
dm.Qiplik.SQL.Text := 'select * from dbo_Iplikler where IplikKodu LIKE ' + #39 + a + #39 ;
// ShowMessage(dm.Qiplik.SQL.Text);
dm.Qiplik.Prepare;
dm.Qiplik.Open;
end;
program calısıyor hatta edit 1 in icindeki deger de a degiskeninin icin
e geliyor fakat like komutu calısmıyor
mesela iplik kodum ac21 ise ac yazdıgımda hicbir keyıt ekrana gelmiyor sadece ac21 yazdıgımda ekrana kayıt geliyor
sebebi ni pek anlayamadm ama accessten kaynaklanıyor olabilir.
yardımcı olursanız sevinirim...

[fahrettin]

o zaman bir hata vermemesine ragmen sonuç beklediğiniz gibi degil....
Bu durumlarda yazdıgınız sql cümlesini sql Explorer gibi veya kullandığınız veritabanının ilgili sql calıştırma aracı içinden deneyin. Orada çalıştığından emin olduğunuz kodu delphi icinden run time de oluşturmaya çalışın...

[name]

Gerekli cevap zaten verilmiş ama @dtgb kendi kodu üzerinde değişiklik yapıldığında daha iyi anlayacak. 5. satırda yapılmış değişikliklere dikkat edin.

Kod: Tümünü seç

1. begin 
2.   a:=edit1.Text; 
3.   dm.Qiplik.Close; 
4.   dm.Qiplik.SQL.Clear; 
5.   dm.Qiplik.SQL.Text := 'select * from dbo_Iplikler where IplikKodu LIKE ' + #39 +''+'%' + a+'' + #39 ; 
6.   // ShowMessage(dm.Qiplik.SQL.Text); 
7.   dm.Qiplik.Prepare; 
8.   dm.Qiplik.Open; 
9. end; 

Benim tavsiyem şu şekilde kullanmanız.

Kod: Tümünü seç

1. begin 
2.   s:='select * from dbo_Iplikler where IplikKodu LIKE ''%%s''';
3.   a:=edit1.Text; 
4.   dm.Qiplik.Close; 
5.   //dm.Qiplik.SQL.Clear; // "SQL.Text :=" kullanıldığı için bu satıra gerek yok
6.   dm.Qiplik.SQL.Text :=format(s,[a]);  
7.   // ShowMessage(dm.Qiplik.SQL.Text); 
8.   dm.Qiplik.Prepare; 
9.   dm.Qiplik.Open; 
10. end; 

[pentiumkivanc]

Sorunun üstünden 1 yıl geçmiş ama yinede bununla ilgili bende like konusunda bir sıkıntı yaşadım. Access te like sorgusunda kullanımı şu şekilde yaptım:

Kod: Tümünü seç

select * from stok where stokadi like "*[aranan_kelime]*" 

umarım faydalı olur

[Berdem]

ADODataSet1.CommandText :='SELECT * FROM tablo WHERE alan Like "%'+Edit1.Text+'%"';
gibi tanımlama ile çözüm olabilir...