Question

vb 创建mdb文件

Dim Path As String
Dim Db As Database
Dim SQL As String

Path = App.Path & "\(Time, "hhmmss") & ".mdb" '文件名及文件存放路径
If Dir(Path) = "" Then '判断该路径是否有文件
Set Db = Workspaces(0).CreateDatabase(Path, dbLangGeneral)'创建新的文件
SQL = "Create Table " & "TEST"& " (" & "单号 text,备注 text);"
Db.Execute SQL
End if

这个我从百度知道抄下来的.但是没有database这个变量类型.请问要怎样才有.?

Answer 1

　　创建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

Answer 2

添加ADO 或 DAO

菜单：工程---引用
添加ADO选：Microsoft ActiveX Data Objects 2.8 Library
添加DAO选：Microsoft DAO 3.6 Object Library

版本不一定非要2.8 或 3.6,能用就行

看你的语句，应该用的是DAO