Skip to main content

AccessTr.neT


Excel Vba Access İkinci Alan Verilerini Getir

Mehmet Emin Alkan
Mehmet Emin Alkan
3
517

Excel Vba Access İkinci Alan Verilerini Getir

Çözüldü #1
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
Cevapla
#2
sorgu = "SELECT  * from bilgiler"
Burada * yerine sadece istediginiz alanın adını yazmayı denediniz mi?
Cevapla
#3
(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
Cevapla
#4
Rica ederim)
İyi calismalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da