VB 创建MDB，然后将一个MDB中的表复制到新建的MDB

最新推荐文章于 2023-09-27 21:33:05 发布

qq37724861

最新推荐文章于 2023-09-27 21:33:05 发布

阅读量1.4k

点赞数

分类专栏： Vb

本文链接：https://blog.csdn.net/qq37724861/article/details/51839756

版权

Vb 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

'=======================================================================
    '创建MDB文件，需要先执行【工程】－【引用】 Microsoft ADO Ext. 2.8 for DDL and......
    Dim cata As New ADOX.Catalog
    cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & AccFullName & "")
    Set cata = Nothing
    '=======================================================================

    '=======================================================================
    '将AIS中的表复制到上面建立的MDB文件中
    Set rs = conn.OpenSchema(adSchemaTables)
    While Not rs.EOF
        If rs!table_type = "TABLE" Then
            conn.Execute ("select * into [" & AccFullName & "].[" & rs!table_name & "] from [" & rs!table_name & "]")
        End If
        rs.MoveNext
    Wend