用vb制作db数据库文件

如果用vb来建立数据库的话，用adox对象就可以了，主要用到下面几个对象：

Dim

cat

As

New

ADOX.Catalog

'对应数据库

数据库文件

Dim

tb()

As

New

ADOX.Table

'数据库里的表

Dim

cl

As

New

ADOX.Column

'数据库里的字段

不过这种方法比较麻烦，简单的办法是用文本文件来存储(如果你不想让别人知道你用文本文件存储的数据，你可以文本文件的

后缀名

你可以改成dat,tpl,log....)。给你附带一个比较完整的文本文件读写的代码：

'以下是读记事本代码，读取后的数据存储在数组hs()中：

Dim

i

As

Long,

hs()

As

String

i

=

0

ReDim

hs(0)

Open

App.Path

&

"\1.txt"

For

Input

As

#1

Do

While

Not

EOF(1)

ReDim

Preserve

hs(i)

Line

Input

#1,

hs(i)

i

=

i

+

1

Loop

Close

#1

'以下是写记事本代码：

dim

filename

as

string

filename

=

"这是第一行"

&

chr(13)

&

chr(10)

&

"这是第二行"

&

chr(13)

&

chr(10)

&

"这是第三行"

&

chr(13)

&

chr(10)

Open

App.Path

&

"\2.txt"

For

Output

As

#1

Seek

#1,

1

Print

#1,

filename

Close

#1

vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。

前提条件：必须安装微软access数据库。

步骤：

1、找好要存放数据库的路径，如C盘data路径；

2、路径下空白处点右键，新建-Microsoft

Access数据库，如图：

3、这时路径下就有了一个access文件，可以右键-重命名来为数据库起名，如，起名叫测试数据库；

4、双击access文件，在里边创建所要的表，函数等等即可。

---