用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

VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1。

打开ADODC1控件属性页使用连接字符串，选生成。在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

---