[vb2008] check table is empty?

[Dummy1912]

Hallo,

Iemand die mij kan helpen hoe ik deze kan checken als de database table leeg is.

            Call Connect()
            EditPass.Open("select * from UserActive ", CN, 1, 2)
            EditPass.MoveFirst()
            Active.Text = EditPass.Fields("User_Load").Value

'call connect is

    Public CN As New ADODB.Connection
    Public EditPass As New ADODB.Recordset

    Public Sub Connect()
        If CN.State = 1 Then CN.Close()
        CN.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
              Replace(Application.StartupPath, "bin", "") & "\PhoneBook.phb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;User Id=admin;Jet OLEDB:Database Password=")

    End Sub

bedankt

Dummy1912

 

[OctaFish]

Zoiets?

With EditPass
    .Open("select * from UserActive ", CN, 1, 2)
    If .RecordCount = 0 Then Exit Sub
    .MoveFirst()
    Active.Text = .Fields("User_Load").Value 'call connect is
End With

 

[Dummy1912]

@OctaFish,

cool bedankt

werkt prima.

Dummy1912