Hoe haal je waarden uit een database en plaats je die in een listbox? Mijn begin van de code is:
Private Sub lst_reservations_delete_Click()
Dim dbs As DAO.DataObject
Dim rstTable As DAO.Recordset
Dim rstquery As DAO.Recordset
Dim strFilePath As String
Dim strReservation As String
strFilePath = "C:\Project\Sail\reservations.mdb"
Set dbs = OpenDatabase(strFilePath)
Set rstTable = dbs.OpenRecordset("Reservations")
.... nu weet ik het niet meer
End Sub
Wie weet wat de code is?
Private Sub lst_reservations_delete_Click()
Dim dbs As DAO.DataObject
Dim rstTable As DAO.Recordset
Dim rstquery As DAO.Recordset
Dim strFilePath As String
Dim strReservation As String
strFilePath = "C:\Project\Sail\reservations.mdb"
Set dbs = OpenDatabase(strFilePath)
Set rstTable = dbs.OpenRecordset("Reservations")
.... nu weet ik het niet meer
End Sub
Wie weet wat de code is?