求助vb ACCESS空数据表判断问题

Question

ACCESS数据库的多个表中，循环打开数据库表过程中如果遇到空数据库表时让停止循环打开。 这个怎么做呢

Answer 1

那就统计一下表的记录select Count(1) from Table如果没有记录则退出

Answer 2

Private Function fun_TableHaveData(ByVal strTableName As String) As Boolean
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSql As String
    Dim i As Integer
    Dim j As Integer
    
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\mydb.mdb;Persist Security Info=False"
        
    rs.Open "select * from " & strTableName, cn, adOpenStatic, adLockOptimistic
    
    If rs.RecordCount > 0 Then
        fun_TableHaveData = True
    Else
        fun_TableHaveData = False
    End If
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    
End FunctionPrivate Sub Command1_Click()
    If fun_TableHaveData("table1") Then
        'continue
    Else
        'Stop
    End If
    
End Sub