Question

VB 6.0 点击(下一条记录)按钮的时候，怎么一直查询下去。以下代码只能查询到

问题：点击(下一条记录)按钮的时候，怎么一直查询下去。以下代码只能查询到

第二条记录，如果我再次点击下一条，那结果就不会跳转到第3条记录

Private Sub Command3_Click() '下一个

Call p(mycon) '调用

Set myrs = mycon.Execute("select * from book") '执行

Set Text1.DataSource = Adodc1 '绑定数据库

myrs.MoveNext '查询下一条记录

Text1.Text = myrs.Fields("图书编号") '绑定字段

mycon.Close '关闭连接

Set mycon = Nothing '从内存中删除连接

End Sub

Answer 1

把myrs定义为全局变量
把下面这两句移到Form_load过程里去，试试
Set myrs = mycon.Execute("select * from book") '执行

Set Text1.DataSource = Adodc1 '绑定数据库

追问

这个问题我昨晚已经解决了。不过还是谢谢你

追答

不客气。

追问

我在学vb6.0。后面还有很多问题。比如显示一张二维表格。饼图表，柱状图表。
。比如怎么获取sql值更新消息(就是执行sql都有一个：影响了多少行这个消息)

又比如怎么用sql创建的user表来登录窗体。。。。。

追答

有问题可以一起探讨。