求助:如何用VBA新建一个MDB文件

fangqyfangsl

如何用VBA新建一个MDB文件,并新建一个表,表名为DB1,包含2个字段:F1,F2

[此贴子已经被作者于2005-10-6 10:19:42编辑过]

海狸先生

Sub CreateDatabase() On Error GoTo CreateDatabaseError Dim cat As New ADOX.Catalog cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\new.mdb'"

'Clean up Set cat = Nothing Exit Sub CreateDatabaseError: Set cat = Nothing

If Err <> 0 Then MsgBox Err.Source & "-->" & Err.Description, , "Error" End If End Sub

Sub CreateTableX1()

Dim dbs As Database

' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

Set dbs = OpenDatabase("c:\new.mdb")

' 使用两个文本字段来创建表。

dbs.Execute "CREATE TABLE DB1 " _

& "(F1 TEXT, F2 TEXT);"

dbs.Close

End Sub