VB如何连接网络数据库

在工程里找到Microsoft ADO Data Control控件,拖到窗体上,事件中这么写:

Private Sub Coammand1_Click()

Adodc1.connectionstring="Driver={SQL Server}Server=服务器IPUid=用户名Pwd=密码DataBse=数据库名"

Adodc1.RecordSource="SELECT * FROM 表名 WHERE 条件"

Adodc1.Refrsh

End Sub

要进行数据 *** 作就这样引用:

Adodc1.RecordSet.Fields("字段名")这就是 *** 作数据字段

把Adodc1绑定到数据控件那就是绑定数据源

最简单的访问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比较合适，这样的话，只需要比单机多出一台网络数据库的机器即可。其实单机数据库就是整合后的网络数据库，只是程序和数据库都放在了一台机器上而已。

---