数据库中数据读取
用ACCESS建了一个数据库，想依次将里面的记录读出来。
是不是在
Recordset.MoveFirst先指向第一个记录
然后
str=Recordset.Fileds(i).Value读出第一数据
然后再
Text1.Text=str
Recordset.MoveNext
这里需指定i值读出相应的属性列，能不能一行一行的读呢？
问题点数：0、回复次数：1Top
1 楼yd44003（）回复于 2006-05-03 20:14:20 得分 0
Dim str As String
Dim i As Integer
Private Sub Cnext_Click()
i = i + 1
Call shows(i)
End Sub
Private Sub Cstart_Click()
str = shujuku.Recordset.Fields(0).Value
wenbenkuang.Text = str
shujuku.Recordset.MoveNext
End Sub
Private Sub shows(x As Integer)
On Error Resume Next
str = shujuku.Recordset.Fields(x).Value
wenbenkuang.Text = str
End Sub
Private Sub Form_Load()
shujuku.Recordset.MoveFirst
i = 0
End Sub
试了一下，能一下读，但是读完一下就不能转到下一行继续了！！！
Top
