用VB连接ACCESS

来源：百度知道 编辑：UC知道 时间：2024/05/21 18:48:24
用ADO和GATEGIRD空件
把ACCESS表内所有的内容显示在GATEGIRD表中

Private Sub Form_Activate()
Data1.RecordSource = "select * from 表名"
Data1.Refresh
End Sub

Private Sub Form_Load()
'连接数据库
Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If
strAppPath = strAppPath & "数据库名"
Data1.DatabaseName = strAppPath
Data1.RecordSource = "表名"

End Sub