- Katılım
- 13 Temmuz 2016
- Mesajlar
- 613
- Excel Vers. ve Dili
- Excel 2010 & 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-03-2020
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.
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