我已经添加了这样的两句,可是还是不支持书签, Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim sql As String Dim wf As WFService Set wf = New WFService '用于连结数据库Set rs = New ADODB.Recordset sql = " select * from cotsysframe"rs.CursorType = adOpenStatic rs.CursorLocation = adUseClientSet rs = wf.ExecuteDb(sql) If rs.EOF Then Exit Sub End If rs.MoveFirstIf rs.Supports(adBook) Then MsgBox "it is ok" Else MsgBox "it is failure" End IfEnd Sub运行后最后的结果还是不支持。
rs.CursorLocation=adUseClient
rs.CursorType=adStatic
可以支持书签
充分必要条件应该是静态游标
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim sql As String
Dim wf As WFService
Set wf = New WFService '用于连结数据库Set rs = New ADODB.Recordset
sql = " select * from cotsysframe"rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClientSet rs = wf.ExecuteDb(sql)
If rs.EOF Then
Exit Sub
End If
rs.MoveFirstIf rs.Supports(adBook) Then
MsgBox "it is ok"
Else
MsgBox "it is failure"
End IfEnd Sub运行后最后的结果还是不支持。
,所以不能正确的打开游标。