VB访问局域网中的数据库

如果你是新手，就在VB的部件中添加ADO控件，然后点击控件，按鼠标右键，点击属性，在属性页中选择“生成”，选择你要访问的数据类型，最后就会出现“数据库连接属性”，服务器的名称可以用名或IP，填好数据库访问密码，选择好数据库。填好之后点击“测试连接”看连接是否成功。确定后返回属性页，记录源选择“2”，再选好一个表。完成。

你还可以在完成后添加一个datagrid的控件，将datasource设定为上述的ADO控件，这样就可以看到数据库内容了。在了解这个数据 *** 作的基础上再将ADO的内容转为语句。当然，你如果有一定的数据库 *** 作基础，ADO是很容易上手的。

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

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT

jet

4.0

OLE

DB

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

此外一楼说的ACCESS数据库不支持共享修改,但可共享只读访问.

以下给出代码:

Private

Sub

Form_Load()

With

Adodc1

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source=E:\db1.mdbPersist

Security

Info=False"

Adodc1.RecordSource

=

"select

name

from

b1

order

by

name"

Adodc1.Refresh

DataGrid1.Refresh

End

With

End

Sub

---