如何使用adodb进行链接数据库

CnStr = "Provider=SQLOLEDBData Source=" &DbIp &"DATABASE=" &DbName &"UID=" &DbUser &"pwd=" &DbPw

DbIp ip地址

DATABASE 数据库名字

DbUser 用户名

DbPw 密码

Dim conn As New ADODB.Connection

CnStr = "Provider=SQLOLEDBData Source=192.168.29.21DATABASE=dsyUID=sapwd=abc"

Conn.Open cnstr

Sql = "select * from 表名" 'SQL查询语句

Set rs = New ADODB.Recordset '新建一个记录集实例

rs.Open Sql, conn, 1, 3 '后面的3是确定读写权限的

ADODB是VB的数据库类，

需要在加载项里勾选启用这个类，然后就可以这样定义了

.Connection是数据库连接类

Dim

oConn

As

ADODB.Connection

这样定义后，去连接了数据库就可以用这个变量进行筛选等数据库读写

---