Soru Combobox vba recordset

[emreeyy]

Merhabalar,

Dim adoCN As Object, myFile As String, strSQL As String

Set adoCN = CreateObject("ADODB.Connection")

SourceFile = ThisWorkbook.Path & Application.PathSeparator & "veritabani.xlsm"

adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
adoCN.Properties("Data Source") = SourceFile
adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
adoCN.Open

strSQL = "SELECT parcaNo FROM [VT$]"
Set rs = adoCN.Execute(strSQL)
Me.Combobox1.AddItem = rs



Me.Combobox1.AddItem = rs bu kod ile combobox 'a recordset'te bulunan veriyi aktaramıyorum.
Yardımcı olur musunuz?

 

[Orion1]

Merhabalar,

Dim adoCN As Object, myFile As String, strSQL As String

Set adoCN = CreateObject("ADODB.Connection")

SourceFile = ThisWorkbook.Path & Application.PathSeparator & "veritabani.xlsm"

adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
adoCN.Properties("Data Source") = SourceFile
adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
adoCN.Open

strSQL = "SELECT parcaNo FROM [VT$]"
Set rs = adoCN.Execute(strSQL)
Me.Combobox1.AddItem = rs



Me.Combobox1.AddItem = rs bu kod ile combobox 'a recordset'te bulunan veriyi aktaramıyorum.
Yardımcı olur musunuz?

Deneyiniz.

Me.Combobox1.column = rs.getrows

 

[emreeyy]

Deneyiniz.

Me.Combobox1.column = rs.getrows

Teşekkür ederim verdiğiniz kod çalıştı fakat combobox'ta ilk sıra boş çıkıyor.

Deneme yanılma yaparak farkettim ilk sırada metin değeri olduğu için veri gelmiyor. Bunun sebebi ne olabilir ?

 

[Haluk]

Aşağıdaki satırda kırmızı ile belirtilen ilaveyi yapın ...

adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes;Imex=1"

.

 

[emreeyy]

Tşe

Aşağıdaki satırda kırmızı ile belirtilen ilaveyi yapın ...

adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes;Imex=1"

.

Teşekkürler az önce internetten bulmuştum dediğinizi şuan çalışıyor.
Bir noktada daha yardımınızı rica ederim.

Veritabanı excel dosyamda 3|5|5|3|6|6 gibi | karakteri ile birleştirip sıraladığım bir hücrem mevcut.
Bunu split ile ayırıp ayrı ayrı hücrelere değer olarak yapıştırabilir miyim ?