UC知道在VB中求ACCESS表 共有多少条记录(出问题了)
来源：百度知道 编辑：UC知道 时间：2024/05/26 06:31:21
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim Num1 As Long
Set db = OpenDatabase(App.Path & "\J.mdb")
Set rs = db.OpenRecordset("Jc")
rs.MoveFirst
Do While Not rs.EOF()
Num1 = Num1 + 1
rs.MoveNext
Loop
Debug.Print Num1
Label2.Caption = Num1& "件"
End Sub
以上这段代码能计算出 表JC里面有多少条记录..但是问题出在.如果JC为空表格的时候,这条代码就算出错...怎么解决呢?能不能做到..为空表的时候,就当他是"0"来处理~或者有好的代码实现我要的这个效果??
Dim db As Database
Dim rs As Recordset
Dim Num1 As Long
Set db = OpenDatabase(App.Path & "\J.mdb")
Set rs = db.OpenRecordset("Jc")
rs.MoveFirst
Do While Not rs.EOF()
Num1 = Num1 + 1
rs.MoveNext
Loop
Debug.Print Num1
Label2.Caption = Num1& "件"
End Sub
以上这段代码能计算出 表JC里面有多少条记录..但是问题出在.如果JC为空表格的时候,这条代码就算出错...怎么解决呢?能不能做到..为空表的时候,就当他是"0"来处理~或者有好的代码实现我要的这个效果??
直接用
Set db = OpenDatabase(App.Path & "\J.mdb")
Set rs = db.OpenRecordset("Jc")
Num1=Rs.RecordCount
Label2.Caption=Num1 & "件"
呵呵
计算多少条记录用rs.RecordCount即可
你上面的出错在rs.MoveFirst
应这样if not (rs.bof and rs.eof) then rs.MoveFirst
if rs.EOF =true then
Do While Not rs.EOF()
Num1 = Num1 + 1
rs.MoveNext
Loop
end if
取记录集的count 直接写rs.recordcount就可以了！~