harolda1980
Gebruiker
- Lid geworden
- 7 aug 2007
- Berichten
- 488
in de onderstaande code krijg ik kan gegevenslid of methode niet vinden.
Terwijl ik de juiste bibliotheken heb gekoppeld zoals ik vaker gebruik!
Iemand een idee hoe ik dit kan verhelpen?
De fout melding zit in:
Complete code
Terwijl ik de juiste bibliotheken heb gekoppeld zoals ik vaker gebruik!
Iemand een idee hoe ik dit kan verhelpen?
De fout melding zit in:
Code:
lslocaties.ListItems.ListSubItems.Add , , rstrLoad!lc_naam
Complete code
Code:
Private Sub locaties_inladen()
Dim rstrLoad As ADODB.Recordset
Dim Strsql As String
Dim lv_item As Long
Dim code As String
listviewini
lv_item = 1
Strsql = "SELECT tbl_loc.lcid, tbl_loc.lc_naam, tbl_bu.bun, tbl_loc.lc_dt FROM tbl_bu INNER JOIN tbl_loc ON tbl_bu.buid = tbl_loc.lc_bu;"
Set rstrLoad = New ADODB.Recordset
rstrLoad.Open Strsql, cnn_system, adOpenForwardOnly, adLockReadOnly
lslocaties.ListItems.Clear
Do While Not rstrLoad.EOF
lslocaties.ListItems.Add , , rstrLoad!lcid
lslocaties.ListItems.ListSubItems.Add , , rstrLoad!lc_naam
lv_item = lv_item + 1
rstrLoad.MoveNext
Loop
rstrLoad.Close
Set rstrLoad = Nothing
End Sub