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

vb中如何得到当前记录指针的位置

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

vb中如何得到当前记录指针的位置[已结贴,结贴人:lshowlee]

发表于：2007-07-29 01:27:52 楼主

dim db as database
dim rs as recordset
private sub command3_click（)
rs.movenext
text1.text = rs.absoluteposition '执行到这一句就提示（这种对象类型不支持该操作)
end sub

我用的是对象操作数据库的方法.
我换了用控件操作数据库都没问题.
应该怎么改?

发表于：2007-07-29 02:09:191楼得分:0

应该和rs的打开方式有关.
比如 rs.open sql,db,1,3 应该就支持absoluteposition 属性了

发表于：2007-07-29 02:11:542楼得分:30

具体察看
http://www.chinahtml.com/programming/1/2006/rs-open-asp-11374868493194.shtml

发表于：2007-07-29 02:15:533楼得分:0

上面写反了应该是
rs.open sql,db,3,1

发表于：2007-07-29 02:22:594楼得分:0

private sub form_load（)
set db = opendatabase（ "c:\documents and settings\administrator\桌面\录像\db1.mdb ")
set rs = db.openrecordset（ "表1 ")
end sub

private sub command3_click（)
rs.movenext
text1.text = rs.absoluteposition '执行到这一句就提示（这种对象类型不支持该操作)
end sub

我用的是dao对象操作数据库

发表于：2007-07-29 02:26:355楼得分:20

貌似这样打开方式不支持 absoluteposition 了不过执行效率比rs.open要高点

发表于：2007-07-29 10:23:136楼得分:40

openrecordset方法加上第二个参数就行了：
private sub form_load（)
set db = opendatabase（ "c:\documents and settings\administrator\桌面\录像\db1.mdb ")
set rs = db.openrecordset（ "表1 ",dbopendynaset) '这里第二个参数dbopendynaset
end sub

发表于：2007-07-29 11:33:037楼得分:10

可以看看visdata

它对dao的应用说得很清析

发表于：2007-07-29 11:53:558楼得分:0

对的.就是打开方式的问题.谢谢大家.

下一篇：前辈们,数据库中的东西显示不出来
上一篇：求教如何从sql中查询的数据放到文本框中？

其他资讯