Question

vb中的movenext的使用方法

我插入的ADO的控件，具体代码如下：Private Sub Command1_Click()rs.MoveFirstEnd SubPrivate Sub Command2_Click()If rs.BOF <> True Thenrs.MovePreviousEnd IfEnd SubPrivate Sub Command3_Click()If rs.EOF = False Thenrs.MoveNextEnd IfEnd SubPrivate Sub Command4_Click()rs.MoveLastEnd SubPrivate Sub Command5_Click()main.ShowUnload MeEnd SubPrivate Sub Form_Load()Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open "provider=microsoft.jet.oledb.4.0;data source=I:\vb\深圳华新雨伞厂\db1.mdb;persist security info=false"sql = "select * from product_info"rs.Open sql, cn, 1, 1Text1.Text = rs("厂品编号")Text2.Text = rs("厂品类别")Text3.Text = rs("规格明细")Text4.Text = rs("伞头材料")Text5.Text = rs("伞布材料")Text6.Text = rs("备注")Text7.Text = rs("伞骨材料")Text8.Text = rs("伞套材料")Text9.Text = rs("厂品单价")str = rs("图片")Image1.Stretch = TrueImage1.Picture = LoadPicture(str)End Sub但是我在运行的时候点击下一个的按钮时没有反应。请问这是为什么，怎样修改这段代码？

Answer 1

Private Sub Command1_Click()
rs.MoveFirst
End Sub
Private Sub Command2_Click()
If rs.BOF <> True Then
rs.MovePrevious
End If
End Sub
Private Sub Command3_Click()
If rs.EOF = False Then
rs.MoveNext
End If
End Sub
Private Sub Command4_Click()
rs.MoveLast
End Sub
Private Sub Command5_Click()
main.Show
Unload Me
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordsetcn
cn.Open "provider=microsoft.jet.oledb.4.0;data source=I:\vb\深圳华新雨伞厂\db1.mdb;persist security info=false" '对比一下这一句。这句才是打开数据库连接
sql = "select * from product_info"
rs.Open sql, cn, 1, 1
rs.MoveFirst ’指针移动到第一条记录。
Text1.Text = rs("厂品编号")
Text2.Text = rs("厂品类别")
Text3.Text = rs("规格明细")
Text4.Text = rs("伞头材料")
Text5.Text = rs("伞布材料")
Text6.Text = rs("备注")
Text7.Text = rs("伞骨材料")
Text8.Text = rs("伞套材料")
Text9.Text = rs("厂品单价")
str = rs("图片")
Image1.Stretch = True
Image1.Picture = LoadPicture(str)
End Sub

复制以上代码再试试

Answer 2

数据库没有和文本框绑定，移动记录集的指针后，还要写代码更新文本框