ADO ile combobox doldurma

[excellcan]

Forumda emeği geçen herkese merhaba. Aşağıdaki kodlara nasıl bir ekleme
yapmalıyım ki , Sayfa2 deki ilçeler sütunundan ComboBox2'ye verileri benzersiz olarak çekebileyim. İlgilenen arkadaşlara şimdiden teşekkürler.

Private Sub UserForm_Initialize()

Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;" & _
"data source = " & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=yes"""

Set rs = con.Execute("select distinct iller from [Sayfa1$]")
If Not rs.EOF Then ComboBox1.Column = rs.getrows

Set rs = Nothing

End Sub

 

[Erdem Akdemir]

Merhaba,

If Not rs.EOF Then ComboBox1.Column = rs.getrows

Bu satırdaki değeri Combobox2 yapın.

 

[Korhan Ayhan]

Aynı zamanda aşağıdaki satırdaki kırmızı bölümleri de revize etmeniz gerekecektir.

Set rs = con.Execute("select distinct [COLOR="red"]iller[/COLOR] from [Sayfa[COLOR="Red"]1[/COLOR]$]")

 

[Erdem Akdemir]

Korhan bey örnekte de aynısı yazmıyor mu?

Ben mi yanlış görüyorum?

 

[Korhan Ayhan]

İlk mesajı dikkatli okumamışsınız sanırım...

 

[Erdem Akdemir]

Ben sizin düzeltmiş olduğunuzu sandım

Mesajı şimdi daha dikkatli okuyunca başka düzenlemelerde yapmak lazım.

Combobox1 change olayına da kod yazmak lazım ilçeler için.

Combobox1'de illerin olduğunu düşünüyorum.

Excellcan örnek dosya ekleyebilir misiniz?

 

[excellcan]

Bir karışıklığa yol açar mı bilmiyorum. Ama bu şekilde oluyor. Sayın Kuvari , Sayın Korhan Ayhan ilginiz için teşekkür ederim.

Set rs = con.Execute("select distinct iller from [Sayfa1$]")
If Not rs.EOF Then ComboBox1.Column = rs.getrows

Set rs = con.Execute("select distinct ilçeler from [Sayfa2$]")
If Not rs.EOF Then ComboBox2.Column = rs.getrows