VB 读取数据库问题

来源：百度知道编辑：UC知道时间：2024/06/06 13:07:50

Set rs1 = cn.OpenResultSet(Name:="select * from student where studentname='a'"Type:=rdOpenDynamic, LockType:=rdConcurRowver)
rs1.MoveLast
rs1.MoveFirst
rsrowcount = rs1.RowCount '这时的rsrowcount值为4
If rsrowcount > 4 Then
rsrowcount = rsrowcount - 4
rs1.AbsolutePosition = rsrowcount + 1
End If
While Not rs1.EOF
j = j + 1
MsgBox("j:"&j)'我只是想让J大于4的时候自动退出这个循环
rs1.MoveNext
Wend

'可是他会永远循环下去, 不知道是不是数据库设置有问题.还是我的代码有问题.
我用的是SQL6.5 VB5.0,因为一共只能查到4条记录

可能是你程序发的不全的缘故吧，看起来有点晕乎，呵呵。

不过你想J大于4退出，你没有写这个语句啊？
do While Not rs1.EOF
j = j + 1
if j>4 then exit do
MsgBox("j:"&j)出这个循环
rs1.MoveNext
loop

你写错了！~ 是recordcount 不是rowcount！~

vb中读取数据库中的image类型问题？ Access转换数据库由VB读取的问题数据库读取问题? jsp 读取数据库问题 asp数据库读取问题 ASP 数据库读取问题 vb 记事本读取问题 vb 怎样读取ACCESS数据库中的图片 asp读取数据库的问题!! ACCESS数据库! 远程读取数据库的问题