+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Vba Access İkinci Alan Verilerini Getir (/konu-excel-vba-access-ikinci-alan-verilerini-getir.html)
Excel Vba Access İkinci Alan Verilerini Getir - Mehmet Emin Alkan - 02/12/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.
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 SubRE: Excel Vba Access İkinci Alan Verilerini Getir - berduş - 02/12/2020
sorgu = "SELECT * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?
RE: Excel Vba Access İkinci Alan Verilerini Getir - Mehmet Emin Alkan - 02/12/2020
(02/12/2020, 21:43)berduş yazdı: sorgu = "SELECT * from bilgiler"Teşekkürler Oldu
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?
RE: Excel Vba Access İkinci Alan Verilerini Getir - berduş - 02/12/2020
Rica ederim)
İyi calismalar