关于 Bookmark的使用疑问？该如何处理

关于 Bookmark的使用疑问？
为了修改数据，采用Bookmark方法，但发现没有达到效果:
思路:
先获取选定数据的标签:

VB code

WIS_Search_MDB_Str = "Select * from TModuleList where ToolType ='" & Trim(Select_ToolInfo_ToolType) & "' and ItemName='" & Mid(Select_ToolInfo_ToolModule, 1, InStr(Select_ToolInfo_ToolModule, "@") - 1) & "'"
Set WIS_Base_Rs = WIS_Base_Connect(WIS_Search_MDB_Str)
tem_BookMark = WIS_Base_Rs.Bookmark

修改的时候，再将标签赋值给数据库:

VB code

WIS_Base_Rs.Bookmark = tem_BookMark
With WIS_Base_Rs
.Fields(1).Value = Trim(txtNewName.Text)
.Fields(2).Value = Trim(txtAbbrName.Text)
.Fields(3).Value = Mid(comType.Text, 1, 1)
.Fields(4).Value = Trim(txtComment.Text)
.Update
.Close
End With

但是修改的并非所选定的数据..而是其他的..
能否帮忙看看什么地方出了问题？
谢谢

------解决方案--------------------
Set WIS_Base_Rs = WIS_Base_Connect(WIS_Search_MDB_Str)

WIS_Base_Rs定义了记录集吗？

如果db是Connect，一般需要作以下工作：

set db=new connect
db.open constr 'constr为数据库连接字符串
Set WIS_Base_Rs =db.execute(WIS_Search_MDB_Str)

------解决方案--------------------
标签、游标这类东西已经过时了⋯⋯
最好不要用了。
修改时直接用SQL 的Update语句要好很多，不管是稳定性还是效率。
------解决方案--------------------
tem_BookMark 是在哪定义的？
WIS_Base_Rs是recordset对象？
WIS_Base_Connect(WIS_Search_MDB_Str)是你自己的自定义函数？
cursorlocation是否是aduseclient?

------解决方案--------------------

探讨
VB code
Private tem_BookMark As String

'Base Info DB

VB code
Public WIS_Base_Con As New ADODB.Connection
Public WIS_Base_Rs As New ADODB.Recordset

'********************************
'A……

关于 Bookmark的使用疑问？该如何处理

相关推荐