我在使用ADO的时候,使用同一个连接,如果同时打开两个记录集,则总是出现问题,烦请高手给点经验!!!
解决方案 »
- control.visible = false 出现错误!怎么隐藏菜单?
- 终于加星:)散分
- 晕死了,用了XP风格菜单控件后认不出菜单类型
- 请问一个菜问题,如何用另一个表的数据更新当前表(UPDATE)结构差不多
- 如何将日期写入数据库
- 请问*.vip文件该用什么软件打开?
- 关于ApiBeep函数
- 用VB 开发:自动切换在IE8中打开的多个网页
- 在VB中如何实现对二进制文件和十六进制文件的打开,编辑,保存?
- 求救!急!急!急!请问报表Crystal Reports Pro怎样改变页面大小?高分送出!
- 哪里有 comdlg32.ocx 的函数参考?
- 请问在sourcesafe中如何才能让几个开发员同时check out vbp文件?
说一下你怎么连接的,出现什么问题
set rs=new adodb.recordset
rs.CursorLocation=adUseClient
rs.open "sleect * from XXX表",cn,3,3
set datagrid1.datasource=rs
datagrid1.refresh
rs.close'第一次使用后关闭记录集对象
rs.CursorLocation=adUseClient
rs.open "select name,sex from XXX",cn,3,3
set datagrid1.datasource=rs
datagrid1.refresh
rs.close'用完后关闭记录集
set rs=nothing'释放记录集
Dim adoCnn As New ADODB.Connection
Dim adoCmm As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim RsOrder As New ADODB.Recordset adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", adoCnn, adOpenDynamic, adLockBatchOptimistic
RsOrder.CursorLocation = adUseClient
RsOrder .Open "select * from order", adoCnn, adOpenDynamic, adLockBatchOptimistic Set MSHFlexGrid1.DataSource = RsOrder Set DataGrid1.DataSource = RsRs.Close '关闭记录集
RsOrder.Close
Set Rs=Nothing
Set RsOrder=Nothing '释放资源