Question

VB 在数据库里新建表

我想编个程序，用来存储数据。运行的时候先检查有关数据库是否存在，不存在则新建，同时在数据库里新建相应表。我用的是access2007，该怎么实现？网上说的用Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"，我做不到，因为找不到这两个部件，我是6.0企业版的。有的给出了代码，但没有说清楚，有些根本没有赋值就在引用。谁帮个忙啊…………
说清楚明白些啊，说清楚了加分！

Answer 1

下面的代码是引用的，但测试可以通过。Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"都是可以找到的，不过不是部件，而是在【工程】【引用】中添加的

1. 新建一个工程，找到VB编辑器主窗体的【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft ADO Ext. 2.X for DDL and Security】，“2.X”表示版本。
2. 在窗体中选择Form_Load( )，在其中输入如下代码：
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim pstr As String
Dim db As String

db = App.Path & "\" & "tmp.mdb"

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97

pstr = pstr & "Data Source=" & db

cat.Create pstr

cat.ActiveConnection = pstr ‘相当于打开数据库

tbl.Name = "Table_One"

tbl.Columns.Append "No", adInteger

tbl.Columns.Append "Name", adVarWChar, 20
tbl.Columns.Append "Age", adInteger

cat.Tables.Append tbl 'Create table 1

Set tbl = Nothing 'Reset Adox table

Set tbl = New ADOX.Table

tbl.Name = "Table_Two" 'Create table 2, Next 3,4,....
tbl.Columns.Append "No", adInteger
tbl.Columns.Append "Count", adVarBinary
tbl.Columns.Append "Time", adDate

cat.Tables.Append tbl
调试，通过。