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(”
The Database link is ERROR ”) Response.End() End If On Error GoTo 0 End Sub Call DBOpen() … … conn.CLose() : Set conn=Nothing 免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!