如何在VBA中用ADO連接遠程的access數據庫
如何在VBA中用ADO連接遠程的access數據庫
MMTTMM
2019-04-03 05:01:08
2 回答
精慕HU
TA貢獻1845條經驗 獲得超8個贊
Option Explicit
096 Dim 數據庫 As Object
097 Private Sub Form_Load()
098 Set 數據庫 = New ADODB.Connection
099 Call 數據庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '連接數據庫
100 If ((數據庫.State) = (adStateOpen)) Then
101 MsgBox ("連接成功！")
102 Else
103 MsgBox ("連接失??！")
104 End If
105 End Sub
106 Private Sub Form_Unload(Cancel As Integer)
107 數據庫.Close '關閉數據庫
108 Set 數據庫 = Nothing '數據庫變量清除
109 End Sub
- 2 回答
- 0 關注
- 1233 瀏覽
添加回答
舉報
0/150
提交
取消