MyException - 我的异常网
当前位置:我的异常网» VB » 请教:ADO对象访问数据库的有关问题

请教:ADO对象访问数据库的有关问题

www.MyException.Cn  网友分享于:2013-01-30  浏览:4次
请问:ADO对象访问数据库的问题
我用ADO对象访问Access数据库,连接上数据库了,将结果集中的数据显示在DataGrid中
Dim   cn2   As   New   ADODB.Connection
Dim   rs2   As   New   ADODB.Recordset
Dim   varSource1   as   string
cn2.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\luntai.mdb "
cn2.Open
varSource1   =   "select   *   from   TireData   where   TireManufacturer= ' "   &   Text1.Text   &   " '   and   DataNo=1 "
rs2.Open   varSource1,   cn2,   3,   3
Set   DataGrid1.DataSource   =   rs2
DataGrid1.Visible   =   True

但是我想选定DataGrid1中一条记录以该记录中得部分字段值为查询条件再次连接数据库从中SELECT数据,前面的数据连接我又不能关掉

Private   Sub   Command2_click()
Dim   cn   As   New   ADODB.Connection
Dim   rs   As   New   ADODB.Recordset
Dim   varSource   As   String
If   rs2.EOF   =   True   Or   rs2.BOF   =   True   Then
MsgBox   "请选择数据 ",   vbOKOnly,   "信息提示 "
End   If
var1   =   rs2.Fields(0)
var2   =   rs2.Fields(1)
var3   =   rs2.Fields(2)
var4   =   rs2.Fields(3)
var5   =   rs2.Fields(4)
var6   =   rs2.Fields(5)
var7   =   rs2.Fields(6)
var8   =   rs2.Fields(7)
varSource   =   "select   *   from   TireData   where   TireManufacturer=   var1   and   TireSize=var2   and   TireConstruction=var3   and   WheelSize=var4   and   Pressure=var5   and   RoadSurface=var6   and   TestDate=var7   and   SampleRate=var8   and   TestState=纯侧偏 "
cn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Persist       Security       Info=False;Data       Source= "   &   App.Path   &   "\luntai.mdb "
cn.Open
rs.CursorLocation   =   adUseClient
rs.Open   varSource,   cn,   3,   3
操作的时候提示找不到可安装的ISAM,就是第二次连接不成功是吧,可怎么做才能行呢
写的有点乱,谢谢各位了,急啊

------解决方案--------------------
将cn rs 申明为全局变量,然后再 form_load 里面就把cn 打开了,在你的按钮里面只打开rs。
还有就是你两个cn都连一个mdb 浪费了,只用一个cn就可以了。

文章评论

我的丈夫是个程序员
我的丈夫是个程序员
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
程序员和编码员之间的区别
程序员和编码员之间的区别
鲜为人知的编程真相
鲜为人知的编程真相
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
程序员应该关注的一些事儿
程序员应该关注的一些事儿
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
漫画:程序员的工作
漫画:程序员的工作
旅行,写作,编程
旅行,写作,编程
那些争议最大的编程观点
那些争议最大的编程观点
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
为什么程序员都是夜猫子
为什么程序员都是夜猫子
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
如何成为一名黑客
如何成为一名黑客
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
程序员都该阅读的书
程序员都该阅读的书
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
我是如何打败拖延症的
我是如何打败拖延症的
Java程序员必看电影
Java程序员必看电影
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
程序员的鄙视链
程序员的鄙视链
代码女神横空出世
代码女神横空出世
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
 程序员的样子
程序员的样子
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
编程语言是女人
编程语言是女人
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
总结2014中国互联网十大段子
总结2014中国互联网十大段子
每天工作4小时的程序员
每天工作4小时的程序员
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有