vb 6.0 关于rs.movelast的问题为什么只能到第九条记录?

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "\" & "DB_zhaolu.accdb;persist security info=false"
rs.Open " select * from 招录信息男", cn, adOpenKeyset, adLockOptimistic

Dim nan%
rs.MoveLast
nan = rs.Fields("序号")

我在招录信息表中存放超过9个记录他也只能读取到第九个记录,这是为什么?

vb

3个回答

rs.Open " select * from 招录信息男 order by id", cn, adOpenKeyset, adLockOptimistic

a741442652
a741442652 好像没什么改变
3 年多之前 回复

rs.recordcount试试,看这个数字是不是超过9

a741442652
a741442652 rs.recordcount是可以记录所有值,我还有个问题rs.MoveFirst For m = 1 To nan Dim a(100) As String a(m) = rs.Fields("招录单位") Me.Controls("zwk" & m).Caption = a(m) rs.MoveNext Next m,这段代码为什么第十个数据会出现在zw2的位置上
3 年多之前 回复
a741442652
a741442652 rs.recordcount
3 年多之前 回复

rs.MoveFirst
For m = 1 To nan
Dim a(100) As String
a(m) = rs.Fields("招录单位")
Me.Controls("zwk" & m).Caption = a(m)
rs.MoveNext
Next m
这段代码,本应该出现在zwk10.caption上的数据会出现在zwk2.caption上,我是初学者,是不是rs
移动规则的问题,求教正确的代码要怎么改

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐