之前看完了Office系列裡的Excel跟Word兩個應用程式的控制
當然Office裡不是只有這兩個，還有Outlook、Powerpoint及Access
但是小弟心想在未來的應用裡可能用到的地方不多
於是就先跳過啦...
今天看的是資料庫的操作...
連接/切斷MDB(Open方法、Close方法)
ADODB.Connection物件是用來連線資料庫的
並利用ADODB.Connection物件的Open方法來做連線
用Close方法來做切斷。
可以用以下幾種方式來寫連線的程式：
一、先做屬性設定再連線

Option Explicit

Private DBPath
With CreateObject("Scripting.FileSystemObject")
	DBPath = .BuildPath _
		(.GetParentFolderName(WScript.ScriptFullName) _
		, "Test.mdb")
End With

With CreateObject("ADODB.Connection")
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	.Properties.Item("Data Source").Value = DBPath
	.Open 
	.Close
End With

二、先做ConnectionString屬性的設定，再連線

Option Explicit

Private DBPath
With CreateObject("Scripting.FileSystemObject")
	DBPath = .BuildPath _
		(.GetParentFolderName(WScript.ScriptFullName) _
		, "Test.mdb")
End With

With CreateObject("ADODB.Connection")
	.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                            & "Date Source=" & DBPath & ";"
        .Open 
	.Close
End With

三、直接在Open方法的引數指定連接字串再連線

Option Explicit

Private DBPath
With CreateObject("Scripting.FileSystemObject")
	DBPath = .BuildPath _
		(.GetParentFolderName(WScript.ScriptFullName) _
		, "Test.mdb")
End With

With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
              & "Date Source=" & DBPath & ";"
	.Close
End With

在測試時請先在同一資料夾內建立一個「Test.mdb」的檔案
要不它會告訴你：找不到檔案或是連結不到資料庫…等錯誤訊息

提供給有需要的人..