Excel Vba Access İkinci Alan Verilerini Getir

02/12/2020, 21:30

Mehmet Emin Alkan

Merhabalar
Excel userform daki ComboBox1'e Access ten verileri alıyorum. Yalnız ComboBox1 'e alan1( 1 sütun) verileri görünüyor. Benim istediğim alan2( 2 sütun) kodda nasıl bir değişiklik yapabilirim.

Private Sub ComboBox1_DropButtonClick()

ComboBox1.Clear
Dim yol As String
Dim rs As ADODB.Recordset
yol = ThisWorkbook.Path
Set con = New ADODB.Connection

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & yol & "\DATA.mdb;"
On Error Resume Next
Set rs = New ADODB.Recordset

  sorgu = "SELECT  * from bilgiler"

rs.Open sorgu, con, 1, 3
j = rs.RecordCount

With ComboBox1

.Clear
.ColumnWidths = "50"
.ColumnCount = 1


.Column = rs.getrows
End With


Set rs = Nothing
Set con = Nothing
End Sub
02/12/2020, 21:43

berduş

sorgu = "SELECT  * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?
02/12/2020, 21:45

Mehmet Emin Alkan

(02/12/2020, 21:43)berduş yazdı: sorgu = "SELECT  * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?
Teşekkürler Oldu
02/12/2020, 21:48

berduş

Rica ederim)
İyi calismalar