phobia
Terugkerende gebruiker
- Lid geworden
- 4 sep 2006
- Berichten
- 1.777
Ik heb al meerdere keer Bij programmeren/VB vragen gepost.
Maar daar heb ik tot op heden geen antwoorden gekregen.
Vandaar dat ik het hier eens probeer te posten.
Ik Probeer op deze manier een datagrid te vullen
Het maken van colums en het naam geven daarvan ben ik achter.
Maar hoe moet ik nu de data erin krijgen???
Mijn DataBase open ik met:
Vervolgens probeer ik hier de Datagrid te vullen:
Alvast hartelijke DANK
Maar daar heb ik tot op heden geen antwoorden gekregen.
Vandaar dat ik het hier eens probeer te posten.
Ik Probeer op deze manier een datagrid te vullen
Het maken van colums en het naam geven daarvan ben ik achter.
Maar hoe moet ik nu de data erin krijgen???
Mijn DataBase open ik met:
Code:
Private Sub openDB()
dbfile = App.Path & "\db2.mdb"
Set ws = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase(dbfile, True, False)
End Sub
Vervolgens probeer ik hier de Datagrid te vullen:
Code:
Public Sub LoadData()
SQLcode = ("SELECT * FROM TblBrilAdmin")
openDB
Set RS = db.OpenRecordset(SQLcode)
DataGrid1.ColumnHeaders = True
DataGrid1.Columns(0).Visible = False
DataGrid1.Columns(1).Caption = "Order nummer"
DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "Referentie"
DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "Datum In"
DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "Datum Uit"
db.Close
End Sub
Alvast hartelijke DANK