[分享]ADO+ACC向ADO+SQL SERVER移植的游标移动问题

xiaoyingde

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
Cells(14, "b").Resize(300, 11).ClearContents
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim strSql As String, DbPath
DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=NO';data source=" & ThisWorkbook.FullName

CNN.Open DbPath
strSql = "select top " & Val(Cells(2, "g")) & " * from [七年级总成绩册$H3:r300] order by f10"
RST.Open strSql, CNN, adOpenKeyset, adLockPessimistic
Cells(14, "b").CopyFromRecordset RST
Set RST = Nothing
CNN.Close
End If
End Sub

原来是在G2格输入N的值，显示“七年级总成绩册”中的前N名。

[此贴子已经被作者于2006-6-14 11:50:50编辑过]

xiaoyingde

您在这个附件的基础帮我改改，好吗？

现有年级成绩总表，欲通过点击“班级复选按钮”和输入要查看的名次 前N名（从高分到低分）， 显示所选班级的前N名的记录 (比如，选择1、2、3班，输入N为20//就显示1、2、3班的总前20名，共20人的成绩。选择1、4、5班，就显示1、 4、5班的总前N名，共N个人的成绩记录)。
并统计各班在前N名中所占人数及各班的平均分。
最后按一个按钮，将刚才产生的表生成一个和母表一样格式的新excel文件。”

爱歌学习

以下是引用[I]烟雨厦江南[/I]在2006-6-14 10:56:58的发言：[BR]在ADO+ACC向ADO+SQL SERVER移植的时候，发现原来代码中的recordset.movefirst,movelast不能使用， With RST .CursorType = adOpenStatic .CursorLocation = adUseClient End With

测试结果如下： 若需要用 RST.RecordCount 得到记录个数，则需设置引用，之后代码如下： Sub Form_Load1() Dim intRecCount%, i% Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset CNN.Open "Provider=SQLOLEDB;Server=ywb019;Database=外销备货;Integrated Security=SSPI;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenStatic '或 adOpenKeyset intRecCount = RST.RecordCount For i = 1 To intRecCount Cells(i, "a") = RST!姓名 RST.MoveNext Next RST.Close: CNN.Close Set RST = Nothing: Set CNN = Nothing End Sub 若不需要由 RST.RecordCount 得到个数，只希望逐条处理记录，则可以不设置引用，代码如下： Sub Form_Load22() Dim i% Set CNN = CreateObject("ADODB.Connection") Set RST = CreateObject("ADODB.Recordset") CNN.Open "Provider=SQLOLEDB;Server=ywb019;Database=外销备货;Integrated Security=SSPI;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN i = 2 Do While Not RST.EOF Cells(i, "a") = RST!姓名 RST.MoveNext i = i + 1 Loop RST.Close: CNN.Close Set RST = Nothing: Set CNN = Nothing End Sub 你们的测试结果是这样吗？

烟雨厦江南

以下是引用[I]爱歌学习[/I]在2006-6-14 12:59:30的发言：

以下是引用[I]烟雨厦江南[/I]在2006-6-14 10:56:58的发言：
在ADO+ACC向ADO+SQL SERVER移植的时候，发现原来代码中的recordset.movefirst,movelast不能使用， With RST .CursorType = adOpenStatic .CursorLocation = adUseClient End With

测试结果如下： 若需要用 RST.RecordCount 得到记录个数，则需设置引用，之后代码如下： Sub Form_Load1() Dim intRecCount%, i% Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset CNN.Open "Provider=SQLOLEDB;Server=ywb019;Database=外销备货;Integrated Security=SSPI;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenStatic '或 adOpenKeyset intRecCount = RST.RecordCount For i = 1 To intRecCount Cells(i, "a") = RST!姓名 RST.MoveNext Next RST.Close: CNN.Close Set RST = Nothing: Set CNN = Nothing End Sub

我的是VB6.0+SQL SERVER2000，rst.recordcount为-1 另：不单单是为了取得记录数，还有就是要实现数据库常用的上一条，下一条，第一条和最后一条的功能

[此贴子已经被作者于2006-6-14 13:16:58编辑过]

烟雨厦江南

以下是引用[I]烟雨厦江南[/I]在2006-6-14 13:14:44的发言：[BR]

以下是引用[I]爱歌学习[/I]在2006-6-14 12:59:30的发言：

以下是引用[I]烟雨厦江南[/I]在2006-6-14 10:56:58的发言：
在ADO+ACC向ADO+SQL SERVER移植的时候，发现原来代码中的recordset.movefirst,movelast不能使用， With RST .CursorType = adOpenStatic .CursorLocation = adUseClient End With

测试结果如下： 若需要用 RST.RecordCount 得到记录个数，则需设置引用，之后代码如下： Sub Form_Load1() Dim intRecCount%, i% Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset CNN.Open "Provider=SQLOLEDB;Server=ywb019;Database=外销备货;Integrated Security=SSPI;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenStatic '或 adOpenKeyset intRecCount = RST.RecordCount For i = 1 To intRecCount Cells(i, "a") = RST!姓名 RST.MoveNext Next RST.Close: CNN.Close Set RST = Nothing: Set CNN = Nothing End Sub

我的是VB6.0+SQL SERVER2000，rst.recordcount为-1(VBA下没有测试） 另：不单单是为了取得记录数，还有就是要实现数据库常用的上一条，下一条，第一条和最后一条的功能

爱歌学习

我这里是 Excel2003+SQL SERVER2000 再次测试，若要使用 RST.MoveLast，MovePrevious ，则不能采用第二种不加引用的方式，只能用第一种添加引用的方式： Sub Form_Load1() Dim intRecCount%, i% Dim CNN As New ADODB.Connection Dim RST As New ADODB.Recordset CNN.Open "Provider=SQLOLEDB;Server=ywb019;Database=外销备货;Integrated Security=SSPI;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenStatic '或 adOpenKeyset RST.MoveLast '移到最后一条 intRecCount = RST.RecordCount RST.MoveFirst '移到第一条 For i = 2 To intRecCount Cells(i, "a") = RST!姓名 RST.MoveNext '移到下一条 Next RST.MovePrevious '移到上一条 Cells(i, "a") = RST!姓名 RST.Close: CNN.Close Set RST = Nothing: Set CNN = Nothing End Sub 如果你那里用这种方式确实不行，会不会是 VB 和 VBA 的差异引起的？ 另外，你的代码中 RST.Open strSQL, CNN, adOpenDynamic, adLockOptimistic 跟我的 RST.Open strSQL, CNN, adOpenStatic '或 adOpenKeyset 不一样，会是这里的原因吗？

烟雨厦江南

adopendynamic,adopenforwardonly,adopenkeyset,adopenstatic全部试过，结果一样，看来是VB与VBA的差异

爱歌学习

刚才又在 VB6 下测试，上面代码一样可以通过啊，你那里不行又会是什么原因呢？SQLSERVER的设置不同？

烟雨厦江南

以下是引用[I]爱歌学习[/I]在2006-6-14 16:12:34的发言：
刚才又在 VB6 下测试，上面代码一样可以通过啊，你那里不行又会是什么原因呢？SQLSERVER的设置不同？

我也不太明白，记得好象foshan也提出过这个问题，不能移植，所以我才贴出来的，希望给遇到同样问题的家人一点帮助。SQLSERVER的是默认设置，我没有改动啊

[此贴子已经被作者于2006-6-14 17:33:19编辑过]

ifhwfu

了解，但不甚解？？？