Hallo,
Ik heb een programma gescreven in VB die laat zien hoeveel records er in een record set zitten. Maar dit programma geeft altijd -1 aan. Dit terwijl er 3 records in de tabel Adressen zitten. Hier is de code:
Wat is er mis met deze code?
Ik heb een programma gescreven in VB die laat zien hoeveel records er in een record set zitten. Maar dit programma geeft altijd -1 aan. Dit terwijl er 3 records in de tabel Adressen zitten. Hier is de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Public dbAdressen As ADODB.Connection
Public rsAdressen As ADODB.Recordset
Private Sub Form_Load()
Set dbAdressen = New ADODB.Connection
Set rsAdressen = New ADODB.Recordset
con_str = "Provider=microsoft.jet.OLEDB.3.51;" & _
"Data Source=" & _
App.Path & "\Adressen.mdb"
With dbAdressen
.ConnectionString = con_str
.Open
End With
rsAdressen.Open "SELECT * FROM Adressen", dbAdressen, adOpenForwardOnly, adLockReadOnly
MsgBox "rsAdressen.RecordCount: " & CStr(rsAdressen.RecordCount)
End Sub |
Wat is er mis met deze code?