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

烟雨厦江南

在ADO+ACC向ADO+SQL SERVER移植的时候，发现原来代码中的recordset.movefirst,movelast不能使用，提示行集不支持反向提取： CNN.Open "Provider=SQLOLEDB;Server=ywb019;" & _ "Database=外销备货;Integrated Security=SSPI;" & _ "User ID=sa;Password=supervisor;" strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenDynamic, adLockOptimistic RST.MoveLast'错误提示：行集不支持反向提取 intRecCount = RST.RecordCount'此处仍为-1 RST.MoveFirst For i = 1 To intRecCount Combo1.AddItem RST.Fields("姓名") RST.MoveNext Next i Set RST = Nothing Exit Sub 经多次偿试及摸索，发现只要针对recordset作一些游标类型的指定，即可以成功： Private Sub Form_Load() Dim intRecCount As Integer Dim i As Integer With CNN .ConnectionString = "Provider=SQLOLEDB;Server=ywb019;" & _ "Database=外销备货;Integrated Security=SSPI;" & _ "User ID=sa;Password=supervisor;" .CommandTimeout = 30 End With CNN.Open With RST .CursorType = adOpenStatic .CursorLocation = adUseClient End With strSQL = "select * from 用户 order by 分类 DESC" RST.Open strSQL, CNN, adOpenDynamic, adLockPessimistic intRecCount = RST.RecordCount For i = 1 To intRecCount Combo1.AddItem RST.Fields("姓名") RST.MoveNext Next i Set RST = Nothing End Sub

plxmm

谢谢分享。似乎少了点什么？

烟雨厦江南

以下是引用[I]plxmm[/I]在2006-6-14 11:00:04的发言：[BR]谢谢分享。似乎少了点什么？

还请指点

xiaoyingde

烟雨教授，帮我看看这个怎么做呀。以前问过你类似的问题。[此贴子已经被作者于2006-6-14 11:17:06编辑过]

plxmm

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

以下是引用[I]plxmm[/I]在2006-6-14 11:00:04的发言：[BR]谢谢分享。似乎少了点什么？

还请指点

指点不敢当啊。偶对ADO的东东是发怵得厉害。 只是看到代码中提到了Database=外销备货、 Combo1，感觉少了附件之类的东东啊。

烟雨厦江南

原来一直以为游标移动的问题只与提供者有关（记得好象foshan兄在一个作品向SQL SERVER移植也遇到这个问题，希望能与foshan兄分享一下），所以在移植中只能用do until(while)....loop处理,用第循环的方法移动到第一或最后一条记录。今天偶然发现可以指定recordset的游标类型来解决。

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

烟雨厦江南

to plxmm:

因为这是移植到SQL SERVER中，所以即便上传附件也无法测试，这里只是提出一种处理的方法，^O^ 。

而ADO+ACC是我以前发的贴子，附件比较大，且是VB环境，这次就没发，呵呵。

烟雨厦江南

以下是引用[I]xiaoyingde[/I]在2006-6-14 11:07:05的发言：[BR]

烟雨教授，帮我看看这个怎么做呀。以前问过你类似的问题。

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

被你这样一叫，真有点怕怕的，你的问题只要在原代码的基础略加修改应该就可以了，因没有附件，这里给你个思路：用一个判断来确定所选班级和名次，并将结果传送到SQL语句中即可。

xiaoyingde

o .您抽时间帮我帮看看好吗？

烟雨厦江南

原来的代码呢，不会要我全部重写一遍吧，想偷偷懒。