Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-表

遍历数据库所有表并输出各个表的数据量,有多少条记录

时 间:2023-03-29 11:58:59
作 者:ligy118   ID:81743  城市:洛阳
摘 要:近期写一个小工具,想用以前写的一个工具作模板。数据库已经很大了,想知道是哪个表的数据多删一删。固有此代码。
正 文:

      近期写一个小工具,想用以前写的一个工具作模板。数据库已经很大了,想知道是哪个表的数据多删一删。固有此代码。

Sub CountRecords()
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim rst As DAO.Recordset
    Dim strTable As String
    Dim lngCount As Long
    
    Set db = CurrentDb()
    
    For Each tbl In db.TableDefs
        If (tbl.Attributes And dbHiddenObject) <> dbHiddenObject Then
            strTable = tbl.Name
            
            If Left(strTable, 4) <> "MSys" Then
                Set rst = db.OpenRecordset(strTable)
                lngCount = rst.RecordCount
                
                Debug.Print strTable & ": " & lngCount
                
                rst.Close
            End If
        End If
    Next tbl
    
    Set rst = Nothing
    Set tbl = Nothing
    Set db = Nothing
End Sub


注:此代码为ai完成。实测可用。

点击图片查看大图

点击图片查看大图



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助