获取ACCESS表结构

最新推荐文章于 2021-11-05 13:24:46 发布

ACMAIN_CHM

最新推荐文章于 2021-11-05 13:24:46 发布

阅读量1.8w

点赞数 1

分类专栏： MS ACCESS 文章标签： access integer date

本文链接：https://blog.csdn.net/ACMAIN_CHM/article/details/3598577

版权

该博客展示了如何使用VBA（Visual Basic for Applications）来获取ACCESS数据库的表结构。通过定义ADODB Recordset 和 Connection 对象，作者编写了两个子程序 `getTables` 和 `getTableColumns`。`getTables` 用于列出所有表名，而 `getTableColumns` 用于打印指定表的所有字段名称及其对应的类型、数值规模和精度。代码中还包含了一个名为 `sFldType` 的函数，用于根据字段类型整数转换为易读的字段类型字符串。

摘要由CSDN通过智能技术生成

经常有朋友问怎么得到ACCESS的表结构。

 
 Public Sub getTables()
    Dim rs As New ADODB.Recordset
    Dim conn As ADODB.Connection
    Dim sSql As String
    
    
    Set conn = CurrentProject.Connection
    sSql = "select id,Name from MSysObjects where Type=1 and flags=0"
    rs.Open sSql, conn
    Do While Not rs.EOF
        Debug.Print "****"; rs.Fields("Name").Value; "****************"
        getTableColumns rs.Fields("Name").Value
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set conn = Nothing
    
End Sub
Public Sub getTableColumns(sTableName As String)
    <

最低0.47元/天解锁文章

ACMAIN_CHM

关注

1
点赞
踩
6

收藏

觉得还不错? 一键收藏
4
评论
获取ACCESS表结构

经常有朋友问怎么得到ACCESS的表结构。Public Sub getTables() Dim rs As New ADODB.Recordset Dim conn As ADODB.Connection Dim sSql As String Set conn = CurrentProject.Connection
复制链接

扫一扫

专栏目录