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

For i = 2 To 6

tbl.Columns.Append "MyField" &i, adInteger '表的第i个字段

Next i

可以使用循环语句创建表

我的作法是,先创建一个空的access数据库

如

1.mdb

放在程序的目录

Dim

destPath

As

String

destPath

=

App.Path

&

"\hello.mdb"

FileCopy

App.Path

&

"\1.mdb",

destPath '复制成新的,相当于建立

Dim

cn

As

New

ADODB.Connection

cn.Open

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

destPath

&

""

Dim

sql

As

String

sql

=

"create

table

table1

(姓名

ntext

not

null,

家庭住址

ntext

null)"

cn.Execute

sql

sql

=

"create

table

table2

(电话号码

ntext

not

null)"

cn.Execute

sql

cn.Close

Set

cn

=

Nothing

---