Records uit Access halen en in een lijst in Excel tonen

[R.T. Singadji]

Hallo,

Ik wil vanuit Excel data uit Access halen en deze data in een keuzelijst in Excel tonen.
Mij lukt het niet met onderstaand code.

Wie heeft tips???

Alvast bedankt!

Richard.

CODE:

Private Sub UserForm_Activate()

Dim selectString As String
Dim test As Recordset

selectString = "SELECT * FROM Klanten order by bedrijfsnaam"

cnnKlant.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DocumentsandSettings\access\contact.mdb"

test = rstKlant.Open(selectString, cnnKlant, adOpenKeyset, adLockOptimistic, adCmdText)

ListBox1.RowSource = test

End Sub

 

[joost verdaasdo]

Hai,

Met deze code komt het goed:

Private Sub UserForm_Initialize()
Dim cn      As ADODB.Connection
Dim rst     As ADODB.Recordset
Dim sSQL    As String
Dim vArray  As Variant
Dim iCnt    As Integer

 sSQL = "SELECT Klanten FROM Klanten ORDER BY Bedrijfsnaam ASC;"
 Set cn = New ADODB.Connection
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & ThisWorkbook.Path & "\Test.mdb;"
 
 Set rst = New ADODB.Recordset
 rst.Open sSQL, cn, adOpenStatic, adLockBatchOptimistic
    With rst
        .MoveLast
        .MoveFirst
        iCnt = .RecordCount
        vArray = .GetRows(iCnt)
    End With
    Me.ComboBox1.Column = vArray
 rst.Close
 cn.Close
 Set rst = Nothing
 Set cn = Nothing
End Sub

En denk ook aan de verwijzing naar de ADO 2.1 biblio!

Zie voorbeeldje voor een werkende combo...
Succes! :thumb:

 

[John van Opstal]

Andersom

Hoi,

De onderstaande code heeft mij enorm op weg geholpen om gegevens uit een access database te gebruiken als input van een combobox in excel.

Kan iemand mij helpen aan een voorbeeld waarin je vanuit excel d.m.v. een formulier de database in access kan aanvullen/ bijwerken...

Ben zeer benieuwd.


Groetjes John