您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

关于vb中的recordset问题，谢谢大家帮助一下

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于vb中的recordset问题，谢谢大家帮助一下

发表于：2007-01-27 20:49:54 楼主

private sub a_click（)
dim rs as new adodb.recordset
dim sql as string
dim num as integer
sql= "select * from a where b= "+num
rs.open connection,adopenkeyset,adlockpressimistic
datagrid.allowaddnew=false
datagrid.allowupdate=false
datagrid.allowdelete=false
set datagrid.datasource=rs
end sub

a是个combolist 每次选的不同所以num会不同，sql语句的集合也就会不同，但是
每次点击都要从新更新rs，可以总是报rs打开不容许操作，但是我在最后又不能关闭rs,因为关闭以后datagrid数据会没有的而且我要进行修改更新datagrid所以只能打开着rs,请高手帮忙一下怎样才能实现每次更新一下rs呢

发表于：2007-01-27 22:16:581楼得分:0

sql= "select * from a where b= " & num & " "
if rs.state=adstateopen then rs.close
rs.open connection,adopenkeyset,adlockpressimistic

发表于：2007-11-02 16:22:372楼得分:0

把取数据的代码对立出来

private rs as recordset

private sub form_load（)
filldata
end sub

private sub filldata（)
dim sql as string
sql= "select * from a"
rs.open connection,adopenkeyset,adlockpressimistic
datagrid.allowaddnew=false
datagrid.allowupdate=false
datagrid.allowdelete=false
set datagrid.datasource=rs
end sub

private sub a_click（)
dim num as integer
rs.filter = "b= " & num
end sub

发表于：2007-11-06 18:37:423楼得分:0

一楼的方法就好

发表于：2007-11-06 22:18:364楼得分:0

用rs.filter 比较快速不用每次都重新查找数据库

发表于：2007-11-06 22:57:525楼得分:0

用一楼的方法因该可以

下一篇：insert问题
上一篇：为什么编译的时候老出现"无法找到可插入的isam"?

其他资讯