在ADODB中怎样用Microsoft.Jet.OLEDB.4.0驱动创建一个数据库？以及其中的表和字段？

Question

 我在明日科技出版的VB开发技术大全一书中看到一个用ADODB对象创建数据库的例子：
Private Sub Command1_Click()
        con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=."
         sql = "use master CREATE DATABASE [" & Text1.Text & "] ON ( NAME = '" & Text1.Text & "' ,FILENAME ='" & App.Path & "\" & Text1.Text & ".mdf ',SIZE = 20,MAXSIZE = 50,FILEGROWTH = 5) "
        con.Execute (sql)                                               
        con.Close
End Sub
运行时出现“找不到提供者"，可能是我没有装SQL的缘故，我想把Provider改成Microsoft.Jet.OLEDB.4.0，提示：多步OLE DB操作产生错误，请检查每个OLE DB 的状态，请问如何用Microsoft.Jet.OLEDB.4.0来创建一个数据库呢，

Answer 1

Jet的话，可以用ADOX
参考
http://support.microsoft.com/search/default.aspx?query=adox+mdb+create&catalog=LCID%3D1033&mode=r

Answer 2

哎同一个程序里面，一会引用ADOB一会引用ADOX，太麻烦，能不能就用ADOB呢

Answer 3

为什么不使用FSO创建数据库,然后再使用ADODB使用SQL语句创建数据表?这样简单些.

Answer 4

    Dim TabExit As Boolean
    TabExit = False
    Dim cn As New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123456"
    Set rstSchema = cn.OpenSchema(adSchemaTables)
    Do Until rstSchema.EOF
        If rstSchema!TABLE_TYPE = "TABLE" And rstSchema!TABLE_NAME = "库存表" Then
            TabExit = True '表格已经存在
            Exit Do
        End If
        rstSchema.MoveNext
    Loop
    rstSchema.Close
    Set rstSchema = Nothing
    If TabExit = False Then '表格不错在
        cn.Execute "CREATE TABLE 库存表 (材料名称 TEXT, 规格型号 TEXT);"
    Else
        aa = MsgBox("该表已经存在，删除么重新建立么？？", vbQuestion + vbYesNo, "表存在")
        If aa = vbYes Then
            cn.Execute "DROP TABLE 库存表"
            cn.Execute "CREATE TABLE 库存表 (材料名称 TEXT, 规格型号 TEXT,记录日期 DATETIME,库存数量 INTEGER);"
        End If
    End If
    cn.Close
    Set cn = Nothing

Answer 5

 楼上的啥时候放出来的，有阵子没来，看来CSDN又发生了很多是

Answer 6

http://download.csdn.net/source/1483924