VB中如何显示ACCESS中表内内容以及如何实现连接ACCESS中的表

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:06:49
VB中新建一个窗体,建立三个TEXTBOX及一个COMMANDBUTTON
ACCESS中新建一个表db1
有三个项a,b,c
如何实现VB中按下COMMAND能够使ACCESS中表里三个项的内容出现在三个TEXT中?
这是DAO方法,有谁会用ADO的方法呢?

ACCESS中的表
tablet
______________字段:
num 数字
datetime 文本
txt 文本
_____________

Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub

Private Sub COMMANDBUTTON_Click() '
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=路径\db1.mdb;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select num,txt,datetime from tablet", db, adOpenStatic, adLockOptimistic

Dim oText As TextBox
'绑定文本框到数据
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

以上TextBox为空件组,