Question

如何用vb动态创建数据库的表？

要求一个表，但是字段不确定，就是列数根据需要可变，怎么办？（更难的问题就是，根据我的需要，字段名是在程序运行后，我输入什么他就显示什么，并可以不断增加字段，太复杂了，可以先解决第一个问题）
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = pstr & "Data Source=" & fm
cat.Create pstr '创建数据库
Dim tbl As New Table
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "name", adVarWChar, 8
For i = 2 To 6
tbl.Columns.Append "i", adInteger '表的第一个字段
Next i

cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
我的i那个地方出错， tbl.Columns.Append "i", i在表中不能显示为2.3.4.5.6，所以不能使用循环语句创建表

Answer 1

For i = 2 To 6
tbl.Columns.Append "MyField" & i, adInteger '表的第i个字段
Next i

可以使用循环语句创建表