首頁猿問如何在VBA中用ADO連接遠程的a...

如何在VBA中用ADO連接遠程的access數(shù)據(jù)庫

SQL Server

MMTTMM 2019-04-03 05:01:08

查看完整描述

2 回答

精慕HU

TA貢獻1845條經(jīng)驗獲得超8個贊

Option Explicit
096 Dim 數(shù)據(jù)庫 As Object
097 Private Sub Form_Load()
098 Set 數(shù)據(jù)庫 = New ADODB.Connection
099 Call 數(shù)據(jù)庫.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '連接數(shù)據(jù)庫
100 If ((數(shù)據(jù)庫.State) = (adStateOpen)) Then
101 MsgBox ("連接成功！")
102 Else
103 MsgBox ("連接失敗！")
104 End If
105 End Sub
106 Private Sub Form_Unload(Cancel As Integer)
107 數(shù)據(jù)庫.Close '關(guān)閉數(shù)據(jù)庫
108 Set 數(shù)據(jù)庫 = Nothing '數(shù)據(jù)庫變量清除
109 End Sub