Excel vba access ikinci alan verilerini getir

Katılım
13 Temmuz 2016
Mesajlar
613
Excel Vers. ve Dili
Excel 2010 & 2016 Türkçe
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.

Kod:
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Şunu denermisiniz.
Kod:
sorgu = "SELECT  F2 from bilgiler"
 
Üst