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

Question

Dim DB As Database 
Dim RS As Recordset 
Private Sub Command3_Click() 
RS.MoveNext 
Text1.Text = RS.AbsolutePosition'执行到这一句就提示(这种对象类型不支持该操作) 
End Sub 我用的是对象操作数据库的方法. 
我换了用控件操作数据库都没问题. 
应该怎么改?

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

Private Sub Form_Load()
    Set DB = OpenDatabase("C:\Documents and Settings\Administrator\桌面\录像\DB1.MDB")
    Set RS = DB.OpenRecordset("表1")
End SubPrivate  Sub  Command3_Click()    
RS.MoveNext    
Text1.Text  =  RS.AbsolutePosition'执行到这一句就提示(这种对象类型不支持该操作)    
End  Sub  我用的是DAO对象操作数据库

Answer 5

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

Answer 6

OpenRecordset方法加上第二个参数就行了：
Private Sub Form_Load()
    Set DB = OpenDatabase("C:\Documents and Settings\Administrator\桌面\录像\DB1.MDB")
    Set RS = DB.OpenRecordset("表1",dbOpenDynaset)'这里第二个参数dbOpenDynaset
End Sub

Answer 7

可以看看visdata它对dao的应用说得很清析