strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/MyDatabase.mdb;”
Access 2007 連接字符串
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:/MyDatabase.accdb;”
MSSQL Server 連接字符串
strConnect = “Provider=SQLOLEDB;Data Source=ServerName/InstanceName;Initial Catalog=DatabaseName;User ID=UserName;Password=password;”
Excel 連接字符串
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=”"Excel 8.0;HDR=YES”";Data Source=C:/MyWorkbook.xls;”
其中HDR默認(rèn)值為YES表示第一行為字段名, 否則第一行將作為內(nèi)容
Excel 2007 連接字符串
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=C:/MyWorkbook.xlsx;”
文本文件(文本文件也能當(dāng)數(shù)據(jù)庫使用)
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Text;Data Source=C:/Files/;”
呃, 參數(shù)Data Source為包含文件的目錄名, 而不是文件名稱. 如果文本文件的第一行不包含字段名稱, 則必須在參數(shù)Extended Properties中參加HDR=No(同Excel), 以避免丟失第一行的數(shù)據(jù).
使用連接字符串
復(fù)制代碼代碼如下:
Dim conn
Sub DBOpen()
Dim db : db=Server.MapPath(”zzz.mdb”)
Set conn=Server.CreateObject(”Adodb.Connection”)
On Error Resume Next
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & db
If Err.Number<>0 then
Err.Clear
Response.Write(”<h1>The Database link is ERROR</h1>”)
Response.End()
End If
On Error GoTo 0
End Sub
Call DBOpen()
… …
conn.CLose() : Set conn=Nothing
