16、使用ADO、SQL与ADOX进行数据交互及构建交互式表单

ADOX与SQL数据交互教程

wasm7browser

于 2025-08-01 16:45:19 发布

阅读量60

点赞数

CC 4.0 BY-SA版权

分类专栏：解锁Access 2003 VBA：从入门到精通文章标签： ADO SQL ADOX

本文链接：https://blog.youkuaiyun.com/wasm7browser/article/details/150596715

解锁Access 2003 VBA：从入门到精通专栏收录该内容

37 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

使用ADO、SQL与ADOX进行数据交互及构建交互式表单

1. 使用ADOX创建数据库对象

ADOX（ActiveX Data Objects Extensions for Data Definition Language and Security）库可以用于创建新的数据库、表和其他对象。以下是使用ADOX在现有数据库中创建新表的示例代码：

Sub TestCreateTable()
    Dim catCatalog As ADOX.Catalog
    Dim tblSupplier As ADOX.Table
    Set catCatalog = New ADOX.Catalog
    Set catCatalog.ActiveConnection = CurrentProject.Connection
    ' 创建并命名新表
    Set tblSupplier = New ADOX.Table
    With tblSupplier
       .Name = "tblSupplier"
       .Columns.Append "CompanyName", adVarWChar, 50
       .Columns.Append "CompanyPhone", adVarWChar, 12
    End With
    ' 将新表追加到数据库
    catCatalog.Tables.Append tblSupplier
    ' 释放内存
    Set catCatalog.ActiveConnection = Nothing
    Set catCatalog = Nothing
    S