vb动态建立一个access数据库

我的作法是,先创建一个空的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

access可以使用复制空白数据库的方式来省成新的数据库。

首先需要有一个空白数据库，没有任何表。例如000.mdb。

通过fso把000.mdb复制到制定路径，并改名为text1

然后用CREATE TABLE创建表text2

用UPDATE添加纪录就行了text3

CREATE TABLE和UPDATE都是标准的SQL

---