Mdb dosyasından Comboboxa veri almak.

[Kuzey1907]

Merhaba,
Ekteki dosyada 1 excel ve birde mdb dosyası mevcut mdb dosyasında bulunan personel tablosundan comboboxa operatör isimlerini getirmek mümkünmüdür?

Teşekkürler...

 

[Murat OSMA]

Dosyanız Office 2003 versiyon üzeri olduğu için açamadım.
Ama aşağıdaki kodlar işinizi görecektir;
Dosya, tablo ve alan adlarını kendinize göre düzeltiniz...

Private Sub CommandButton1_Click()
    Dim con, rs As Object
    Dim dosya As String
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    dosya = ThisWorkbook.Path & "\dosyaadi.mdb"
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & dosya
    rs.Open "select [Operatör] from [Personel]", con, 1, 1
    ComboBox1.Column = rs.getrows
    rs.Close: con.Close
    dosya = vbNullString: Set rs = Nothing: Set con = Nothing
End Sub

 

[Kuzey1907]

Dosyanız Office 2003 versiyon üzeri olduğu için açamadım.
Ama aşağıdaki kodlar işinizi görecektir;
Dosya, tablo ve alan adlarını kendinize göre düzeltiniz...

Private Sub CommandButton1_Click()
    Dim con, rs As Object
    Dim dosya As String
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    dosya = ThisWorkbook.Path & "\dosyaadi.mdb"
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & dosya
    rs.Open "select [Operatör] from [Personel]", con, 1, 1
    ComboBox1.Column = rs.getrows
    rs.Close: con.Close
    dosya = vbNullString: Set rs = Nothing: Set con = Nothing
End Sub

Murat Bey teşekkür ederim.Elinize Sağlık... :icelim:

 

[Murat OSMA]

Rica ederim, iyi günler.