Veritabanından veri çekmede kodlama hatası

[schahi]

Arkadaşlar;
Aşağıdaki kod ile istediğim veri kümesini veri tabanından userform üzerindeki listview'e getiremedim. Öncesindeki kod bloğunda hata olmadığını biliyorum. Aşağıdaki kodu nasıl revize etmeliyim?

Kod:

strSQL = "SELECT Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.ÖB FROM Bom GROUP BY Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.ÖB HAVING (((Bom.[Bileşen Kodu] & Bom.[Bileşen Tanımı]) Like " * " & 'Me.Filtre.Value' & " * "))"

 

[akintolga15]

şöyle deneyin:

strSQL = "Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.ÖB FROM Bom GROUP BY Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.ÖB HAVING (((Bom.[Bileşen Kodu] & Bom.[Bileşen Tanımı]) Like %" & Me.Filtre.Value & "%))"

 

[schahi]

Maalesef hocam, netice alamadım.

Şu şekilde çözüldü,

Like '%" & UserForm4.Filtre.Value & "%'


Teşekkürler

 

[Zeki Gürsoy]

Veritabanı nedir?

 

[schahi]

MS access zeki hocam

 

[Zeki Gürsoy]

MS Access in benzerlik için "%" kabul ediyor mu ki? Bi terslik var sanki..

Sum, Count gibi fonksiyonları kullanmıyorsanız gruplamaya gerek yok. Benzersiz kayıt getreceğim derseniz o başka. Buna alternatif olarak "distinct" de kullanabilirsiniz.

Aşağıdaki cümleleri test edin.

strSQL = _
"SELECT Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.[ÖB] " & _
"FROM Bom " & _
"GROUP BY Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.[ÖB] " & _
"HAVING Bom.[Bileşen Kodu] & Bom.[Bileşen Tanımı] Like '*" & Me.Filtre.Value & "*'"

veya;

strSQL = _
"SELECT DISTINCT Bom.[Bileşen Kodu], Bom.[Bileşen Tanımı], Bom.[ÖB] " & _
"FROM Bom " & _
"WHERE Bom.[Bileşen Kodu] & Bom.[Bileşen Tanımı] Like '*" & Me.Filtre.Value & "*'"