一楼错的，是工程-引用中的，但是引用后在工具箱上看不到控件啊我有更好的答案
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=****** 不要少了分号和冒号，最后的星号是密码。
原文地址：https://www.jb51.cc/vb/256844.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
