如何解决遇到的“行集不支持反向提取”?谢谢大家!
以下的代码当运行到 Rs1.MoveLast 又出现 “行集不支持反向提取” 的错误提示,如何解决这个问题,请大家帮助,谢谢大家!
Private Sub Form_Load()
Dim Sql1 As String
Dim Stpath As String
Dim intRecCount As Integer
Dim i As Integer
Dim Rs1 As New ADODB.Recordset
If App.PrevInstance Then '检视前一版本
MsgBox "合同管理系统已启动!", 48
End
End If
' Stpath = App.Path & "\" & "db1.mdB" & ";Jet OLEDB:Database Password=" & "8"
' Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=a;Password=1234;Initial Catalog=a;Data Source=明"
Sql1 = "select DISTINCT 部门 from 用户权限"
Rs1.Open Sql1, Cnn, adOpenKeyset, adLockBatchOptimistic
Rs1.MoveLast
intRecCount = Rs1.RecordCount
Rs1.MoveFirst
For i = 1 To intRecCount
Combo2.AddItem Rs1.Fields("部门")
Rs1.MoveNext
Next i
Rs1.Close
Set Rs1 = Nothing
Cnn.Close
Combo2.Text = Combo2.List(0)
'设置窗体在屏幕最上层
Const Swp_Nosize = &H1
Const Swp_Nomove = &H2
Const Hwnd_TopMost = -1
SetWindowPos Me.hwnd, Hwnd_TopMost, 0, 0, 0, 0, Swp_Nosize Or Swp_Nomove
End Sub