为什么不能创建数据库??以下代码

netcolt

Sub 创建进销存表数据库()
'*******************************************
'作者：bengdeng
'功能：在程序文件同一目录创建进销表一个进销存表数据库
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版
' 由于要创建一个新的数据库，还要引用microsoft ado ext.2.x for ddl and security
' 利用ADOX的Create方法来创建，其中2.X为版本号，本例引用了2.8版
'*******************************************
Dim MyCat As ADOX.Catalog
Dim conn As ADODB.Connection
Dim WN As String
Dim sSql As String
WN = "进销存表.mdb"
Set MyCat = New ADOX.Catalog
MyCat.Create "Provider=Microsoft.Jet.Oledb.4.0; _
Data Source=" & ThisWorkbook.Path & "\" & WN
Set conn = New ADODB.Connection
conn.ConnectionString = MyCat.ActiveConnection
conn.Open
If conn.State = adStateOpen Then
sSql = "CREATE TABLE 明细表 ( 物品名称 Char(255)," & _
" 结余日期 Date, 结余数量 Float," & " 进仓数量 Float, 出仓数量 Float)"
conn.Execute sSql
sSql = "CREATE TABLE 进仓表 ( 进仓日期 Date, 物品名称 Char(255), 进仓数量 Float)"
conn.Execute sSql
sSql = "CREATE TABLE 出仓表 ( 出仓日期 Date, 物品名称 Char(255), 出仓数量 Float)"
conn.Execute sSql
MsgBox "创建数据库成功！" & vbCrLf & "数据库文件名为：" & WN & vbCrLf & _
"保存位置：" & ThisWorkbook.Path
conn.Close
End If
Set conn = Nothing
End Sub

roych

可以的。但需要同时引用ADO和ADOX（ADO Ext）库。

netcolt

roych 发表于 2011-8-24 20:34
可以的。但需要同时引用ADO和ADOX（ADO Ext）库。

数据库我是小鸟，什么也不懂，能具体一点吗？

roych

不熟悉的话，建议自行在Access里建立表算了，没必要搞那么复杂。退一万步来说，即便这样创建很简单，却无论如何都是无法显示出数据表之间的关系的。

zhangjimfu

工具---->引用

roych

发哥的引用库还少一个（运行一次就知道了）：
Dim MyCat As ADOX.Catalog对应的是ADO Ext 库（目的在于创建MDB文件）。
原则上并不建议大家用代码来建立数据表（原因已经在4L说明了），即便为了方便，也应该创建了MDB文件后再用代码来创建表，代码会简化很多。