vb 从ACCESS 里读数

来源：百度知道 编辑：UC知道 时间：2024/05/25 11:27:43
vb 从ACCESS 里读数

自建的数据库名Fn,表名2009
表里的内容有二列,列一是序号A,列二是数据B
如何写一个简的VB程式,可以读出,在text1.text里显示A,在text2.text里显 B

Timer执行时,Text1.text和Text2.text会持续读出数据表里的下一行.
谢谢了,不要写得太复杂的,能读出就好.

'首先 在工程里 引用 Microsoft DAO 3.6 Object Library
Dim db As Database
Dim rs As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\Fn.mdb")
Set rs = db.OpenRecordset("2009")
rs.MoveFirst
Text1.Text = rs.Fields("A")
Text2.Text = rs.Fields("B")
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
rs.MoveNext
Text1.Text = rs.Fields("A")
Text2.Text = rs.Fields("B")
If rs.EOF Then
Timer1.Enabled = False
MsgBox "无数据可用！"
End If
End Sub

'有问题联系278005218

'1、在工程里 引用 Microsoft DAO 3.6 Object Library
'2、在窗体内已有Timer1控件，并设置好Interval的值
'3、复制下面代码，修改其中的数据库名和表名，运行即可。

Option Explicit
Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\Fn.mdb")
Set rs