VB 用下列代码新建 Access 数据库版本是 95 的，怎么破

最新推荐文章于 2021-08-02 15:19:00 发布

原创最新推荐文章于 2021-08-02 15:19:00 发布 · 158 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍使用VBA在Access中创建数据库及其内部表的方法。通过示例代码，展示了如何利用CommonDialog组件选取保存路径，并根据指定路径创建新的Access数据库文件及包含特定字段的表。

程序代码：

Private Sub Command1_Click()
    Dim path As String
    Dim db As Database
    Dim sql As String
    With CommonDialog1
        .Filter = "Access文件(*.mdb)|*.mdb|所有文件(*.*)|*.*|"
        .DialogTitle = "另存为"
        .CancelError = True
        .DefaultExt = "mdb"
        .ShowSave
        path = .FileName
    End With
    
    If Dir(path) = "" Then
        Set db = Workspaces(0).CreateDatabase(path, dbLangGeneral)
        sql = "create table" & " test " & "(" & " 单号 text,备注 text);"
        db.Execute sql
    End If
End Sub