UC知道关于记录集读取问题,菜鸟请教！
来源：百度知道 编辑：UC知道 时间：2024/05/29 10:14:27
我的数据库里有28条信息。但我只想用固定的MSFlexGrid行数与列数用计时器控制按时间段读取不同的信息。比如说第一次读0~13的下一次读14~28的信息，如何做到哪？部分代码
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;" _
& "Data Source=" & App.Path & "\Bank.mdbersist Security Info=False" '连接ACCESS数据库
cn.Open
strSQL = "select * from alldata"
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open strSQL, cn
intCount = rs.RecordCount
If intCount > 0 Then
With MSF2
.Rows = intCount + 1
rs.MoveFirst
For i = 0 To 13
.Row = i
For j = 0 To .Cols - 1 ‘这里设置对齐方式
.Col = j
.CellAlignment = 3
Next j
'把数据库的数据给各数据格
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;" _
& "Data Source=" & App.Path & "\Bank.mdbersist Security Info=False" '连接ACCESS数据库
cn.Open
strSQL = "select * from alldata"
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open strSQL, cn
intCount = rs.RecordCount
If intCount > 0 Then
With MSF2
.Rows = intCount + 1
rs.MoveFirst
For i = 0 To 13
.Row = i
For j = 0 To .Cols - 1 ‘这里设置对齐方式
.Col = j
.CellAlignment = 3
Next j
'把数据库的数据给各数据格
你打开数据库时是取了全部的数据
就是这句:strSQL = "select * from alldata"
然后移动到第一条:rs.MoveFirst
所以,每次调用这个过程的时候都会调出全部,然后移至第一行,重复14次
第一次调用没有错,第二次调时,您应该把记录游标移动14行再开始进入FOR循环
移动方法
rs.move 14