VB textBOX显示数据库数据

Question

Private Sub Command1_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub Form_Load()
Text1.Text = Adodc1.Recordset.Fields("类别").Value
End Sub
我想让textbox显示数据库的值，但又不能随Adodc1.Recordset.MoveNext变化，该怎么写代码？
不行啊 游标一动 text1.text的值就动

Answer 1

引入中间变量，只要不讲将Recordset与textbox绑定就可以了

Answer 2

你这样就是不随Adodc1.Recordset.MoveNext变化了
只显示了第一条

------------------
Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst '跳到第一条记录

For a = 0 To 2
Text1(a).Text = Adodc1.Recordset.Fields("类别").Value
Adodc1.Recordset.MoveNext
Next a

End Sub

Answer 3

Private Sub Command1_Click()
if not adodc1.recordset.eof
Adodc1.Recordset.MoveNext
else
msgbox "eof",vbokonly,"info"
end if
End Sub