VB访问局域网中的数据库

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

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

最简单的访问SQL连接,假定服务器地址:192.168.0.1,数据库名:TEMPDB

先引用ADO

dim

db

as

new

adodb.connection

dim

dbs

as

new

adodb.recordset

db.open

"provider=sqloledb.1

persist

security

info=falseuser

id=sainitial

catalog=TEMPDBdata

source=192.168.0.1"

Set

dbs

=

db.Execute("select

*

from

表")

就数据库连接来说可以简单的理解为单机和网络是一样的，区别在于连接数据库的SERVER地址不同罢了。

当然，我们可以采用ODBC的方式来连接数据库，这样不管是单机还是网络，只要在需要的时候更改以下ODBC的设置即可在不更改任何程序代码的情况下正常使用。

一般VB搭配MS SQL SERVER比较合适，这样的话，只需要比单机多出一台网络数据库的机器即可。其实单机数据库就是整合后的网络数据库，只是程序和数据库都放在了一台机器上而已。

---