【求助】VB 用下列代码新建 Access 数据库版本是 95 的，怎么破，我的 Access 是 2003 的 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 【求助】VB 用下列代码新建 Access 数据库版本是 95 的，怎么破，我的 Access 是 2003 的

标题：【求助】VB 用下列代码新建 Access 数据库版本是 95 的，怎么破，我的 Acce ...

只看楼主

有钱的狗

等　级：新手上路
帖　子：5
专家分：0
注　册：2014-5-3
结帖率：33.33%

楼主

已结贴√ 问题点数：20 回复次数：4

【求助】VB 用下列代码新建 Access 数据库版本是 95 的，怎么破，我的 Access 是 2003 的

程序代码：

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