Hej udviklere
Kan ét af jer kloge hoveder ikke fortælle mig hvordan man tæller antallet af records i et recordset.
Her er min kode.
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=K:\\Ansattes mapper\\Thomas\\TestBase.mdb;"
cnn.Open()
If cnn.State = 1 Then
MessageBox.Show("Der er forbindelse til databasen")
ElseIf cnn.State = 0 Then
MessageBox.Show("Der er ikke forbindelse til databasen")
End If
rs.Open("SELECT * FROM Student", cnn, ADODB.CursorTypeEnum.adOpenUnspecified)
Do While Not rs.EOF
ListBox1.Items.Add(rs.Fields!ID.Value)
ListBox2.Items.Add(rs.Fields!Navn.Value)
rs.MoveNext()
Loop
Dim antal2 As Integer = 0
antal2 = rs.MaxRecords()
Label3.Text = antal2
Dim antal As Integer = 0
antal = ListBox1.Items.Count
Label1.Text = antal
cnn.Close()
rs = Nothing
cnn = Nothing