一楼错的,是工程-引用中的,但是引用后在工具箱上看不到控件啊我有更好的答案
2010-04-05 12:18
最佳答案
呃~~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=****** 不要少了分号和冒号,最后的星号是密码。