vb 引用adodb问题

呃~~Adodb是没有控件的，所以看不到，但已经引用了。你打开视图-->对象浏览器就能看到了。

连接数据库的代码如下：

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\a.mdb"

'data source后面是数据库的路径和文件名

rs.Open "Select * From TableName", db, 1, 1

'这个方式打开的是只读的，想要写就把最后那个参数改为3。具体的参数说明随后附上。自己看实际需要修改。

'这里写下数据库相关操作的语句，实现你想要的功能

rs.Close

db.Close

RS.OPEN SQL,CONN,A,B

参数A为设定游标的类型，其取值为：

adOpenForwardOnly 表示只允许在记录集内的记录间往前移动。这个是缺省值。

adOpenKeyset 反映由其它用户所做的对记录的改变或者删除动作，但并不反映由其它用户做作的添加新记录的动作。

adOpenDynamic 反映由其它用户所做的对记录的改变或者删除动作，包括添加的新记录

adOpenStatic 不反映其它用户对记录所做的修改，添加，删除动作。

他们的常量值定义分别是：

adOpenForwardOnly = 0

adOpenKeyset = 1

adOpenDynamic = 2

adOpenStatic = 3

参数B为记录集的锁定类型，其取值为：

adLockReadOnly 数据不能改变，这是缺省值！

adLockPessimistic 数据提供者在开始编辑数据的时候锁定记录

adLockOptimistic 仅当调用update方法时，数据提供者锁定记录

adLockBatchOptimistic 用于批处理修改

他们的常量值定义分别是：

adLockReadOnly = 1

adLockPessimistic = 2

adLockOptimistic = 3

adLockBatchOptimistic = 4

最后说明一下，

如果数据库有密码，把连接字符串改一下，在最后加上：（仍在双引号里面）

;User ID=admin;Password=;Jet OLEDB:Database Password=******

不要少了分号和冒号，最后的星号是密码。