vb中如何判断一个表是否为空

来源：百度知道 编辑：UC知道 时间：2024/05/11 16:13:13
和数据库相连，要进行初始化的操作，即删除表里的内容，首先要判断这个表是否为空，如何判断呢

如果你是使用ADO控件来连接数据库，那么这样：
If Adodc1.Recordset.RecordCount = 0 Then MsgBox "这个数据表是空的！！"

如果是使用ADODB对象来连接数据库的（像下面那样）：
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tada.mdb;Persist Security Info=False"
Set Rs = New ADODB.Recordset
Rs.Open "Select * from data", Conn, adOpenKeyset, adLockOptimistic

那么这样：
If Rs.RecordCount = 0 Then MsgBox "这个数据表是空的！！"

记录指针指到第一条记录如果是EOF就是空的了