Distinct + Boşluk

[vivident]

Merhaba

Combobox6 listesine "MPMList" adlı access dosyasının "Uet" isimli sütunundan benzersiz verileri alıyorum. Buraya kadar herşey Ok.

Lakin "Uet" isimli sütun içinde boş olan satırlarda olduğu için, benzersiz veriler yüklenirken Combobox6 içine 1 adette boş satırda atanmış oluyor. Ben boş satırın olmasını istemiyorum. Aşağıdaki kodda nasıl değişiklik yaparız

ComboBox6.Column = baglan.Execute("select distinct [Uet] from [MPMList]").getrows

 

[Necdet]

Selam,

Şart koyun boşluklar gelmesin. Deneme şansım yok.
ComboBox6.Column = baglan.Execute("select distinct [Uet] from [MPMList] Where [Uet] <> ''").getrows

gibi

 

[vivident]

Sayın Necdet bey
Ben bu kodu denedim, olmamıştı, sonra konuyu açtım. Lakin ;
Şimdi kontrol ettim "" işaretinde yanlışık yapmışım. Çok teşekkür ederim. Ben aşağıdaki gibi kullanmıştım

ComboBox6.Column = baglan.Execute("select distinct [Uet] from [MPMList] Where [Uet] <> """).getrows

 

[Necdet]

Evet sql de tek tırnak içinde veriliyor değerler

 

[vivident]

Konu aynı ama farklı bir örneğim var. Bu örneğide uygulamak istiyorum. Burada da where ile koşul kullanılıyor

Ayrıca bu kodu nasıl ilave edebilirim [Uet] <> '' bunu nasıl ilave edebilirim bu kodun içine where 1=1" & a & b & D & e & f & g


UserForm0.ComboBox6.Column = baglan.Execute("select distinct [Uet] from [MPMList] where 1=1" & a & b & D & e & f & g).getrows

Sub Combodoldur()
a = ""
If UserForm0.ComboBox4.Value <> "" Then a = " and Durum='" & UserForm0.ComboBox4.Text & "'"
If UserForm0.ComboBox5.Value <> "" Then b = " and Hat='" & UserForm0.ComboBox5.Text & "'"
If UserForm0.ComboBox6.Value <> "" Then c = " and Uet='" & UserForm0.ComboBox6.Text & "'"
If UserForm0.ComboBox7.Value <> "" Then D = " and Sorumlu='" & UserForm0.ComboBox7.Text & "'"
If UserForm0.ComboBox8.Value <> "" Then e = " and Servis='" & UserForm0.ComboBox8.Text & "'"
If UserForm0.ComboBox9.Value <> "" Then f = " and Dokumantasyon='" & UserForm0.ComboBox9.Text & "'"
If UserForm0.ComboBox10.Value <> "" Then g = " and Referans='" & UserForm0.ComboBox10.Text & "'"
Call baglanti
UserForm0.ComboBox4.Column = baglan.Execute("select distinct [Durum]  from [MPMList] where 1=1" & b & c & D & e & f & g).getrows
UserForm0.ComboBox5.Column = baglan.Execute("select distinct [Hat]  from [MPMList] where 1=1" & a & c & D & e & f & g).getrows
UserForm0.ComboBox6.Column = baglan.Execute("select distinct [Uet]  from [MPMList] where 1=1" & a & b & D & e & f & g).getrows
UserForm0.ComboBox7.Column = baglan.Execute("select distinct [Sorumlu]  from [MPMList] where 1=1" & a & b & c & e & f & g).getrows
UserForm0.ComboBox8.Column = baglan.Execute("select distinct [Servis]  from [MPMList] where 1=1" & a & b & c & D & f & g).getrows
UserForm0.ComboBox9.Column = baglan.Execute("select distinct [Dokumantasyon]  from [MPMList] where 1=1" & a & b & c & D & e & g).getrows
UserForm0.ComboBox10.Column = baglan.Execute("select distinct [Referans]  from [MPMList] where 1=1" & a & b & c & D & e & f).getrows
End Sub