Ado ile ComboBox'a veri alma.

[vardar07]

Merhaba. Ekteki dosyada ki userform daki combobox'a tekrarsız veri almaya çalışıyorum. For döngüsü ile sonuç alabiliyorum. Lakin Ado ile tür uyuşmazlığı hatası alıyorum. Nerede hata yapıyorum?

 

[vardar07]

Konu güncel.

 

[merakli_72]

Selam;
ilgili Sub'u aşağıdaki gibi güncellermisiniz

Private Sub CommandButton2_Click()
ComboBox1.Clear
Baglan
sorgu = "select distinct [Ürün] from [Veri$] Where [Ürün]<>''  Order By [Ürün]"
rs.Open sorgu, con, 1, 1
ComboBox1.Column = rs.getrows
Set rs = Nothing
End Sub

 

[vardar07]

Selam;
ilgili Sub'u aşağıdaki gibi güncellermisiniz

sorgu = "select distinct [Ürün] from [Veri$] Where [Ürün]<>''  Order By [Ürün]"

Çok teşekkürler. Listede boş satır ve verilerde boşluk yok hiç aklıma gelmedi. Anlaşılan Her dosya için ayrı kod yazmak gerekiyor.

 

[FERAZ]

Merhaba bence kodda order by a gerek yok.
Zaten kid sıralama yapıyor standart olarak küçükten büyüğe.

Saygılar

 

[hlojan]

Merhaba;

Yukardaki kodu kullandm.

Private Sub ComboBox1_DropButtonClick()

Yeni.ComboBox1.Clear
Call BaglanDB
kyt.Open "select distinct segment1 from analiste;", bgln, 1, 1

Yeni.ComboBox1.Column = kyt.GetRows
 
End Sub

Db bağlanıyor. Açılan listede kayırlar gözüküyor. Ama tıklayamıyorum

İstediğim kayıta tıklayınca Liste kapanıyor. V ecombobox boş kalıyor.

Yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Şu satırı silip deneyiniz.

Yeni.ComboBox1.Clear

 

[hlojan]

Teşekkürler oldu. Farklı yerlerde de hep clear konuyor. Dropbutton kullandığım içinmi sildim. Nedenini açıklarsanız sevinirim.

 

[Korhan Ayhan]

Bunun sebebini en güzel kodu F8 tuşu ile adımlayarak çalıştırdığınızda görebilirsiniz.

 

[hlojan]

Korhan Bey; bu sorunun cevabı çoğu şeyin cevabı oldu. Teşekkür ederim. f8 bir nimetmiş.