asp³£¼ûµÄÁ¬½Ó×Ö·û´®

Access Á¬½Ó×Ö·û´®
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ĬÈÏֵΪYES±íʾµÚÒ»ÐÐΪ×Ö¶ÎÃû, ·ñÔòµÚÒ»Ðн«×÷ΪÄÚÈÝ
Excel 2007 Á¬½Ó×Ö·û´®
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=C:\MyWorkbook.xlsx;”
Îı¾Îļþ(Îı¾ÎļþÒ²Äܵ±Êý¾Ý¿âʹÓÃ)
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Text;Data Source=C:\Files\;”
ßÀ, ²ÎÊýData SourceΪ°üº¬ÎļþµÄĿ¼Ãû, ¶ø²»ÊÇÎļþÃû³Æ. Èç¹ûÎı¾ÎļþµÄµÚÒ»Ðв»°üº¬×Ö¶ÎÃû³Æ, Ôò±ØÐëÔÚ²ÎÊýExtended PropertiesÖвμÓHDR=No(ͬExcel), ÒÔ±ÜÃⶪʧµÚÒ»ÐеÄÊý¾Ý.
ʹÓÃÁ¬½Ó×Ö·û´®
¸´ÖÆ´úÂë ´úÂëÈçÏÂ:
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
Ïêϸ³ö´¦²Î¿¼£ºhttp://www.jb51.net/article/20869.htm