内容载入中...
1、OLE驱动方式
Dim conn,connstr,Db
Db = "data/dvbbs7.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If
2、用DSN连接并且没有用户名和密码
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
3、用DSN连接并且有用户名和密码
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
4、用实际的数据库绝对路径连接(服务器版本较低时采用此种方式)
Dim conn,Strconn,Db
Db="e:\dvbbs\dvbbs.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=Db"
conn.Open Strconn
MS SQL Server数据库连接
1、用DSN连接
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
2、不用DSN连接：
Dim conn,Strconn
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={SQL Server};SERVER=SName;UID=USER;PWD=pwd;DATABASE=DBname"
conn.open Strconn
3、SQL server OLE DB连接方法
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _
"user ID=***;Password=***;"& _
"inital Catalog=数据库名"
FoxPro数据库连接
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=uID;SourceType=DBC;SourceDB=D:\DB.dbc"
Conn.Open ConnStr
Oracle 连接方法
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"
Oracle OLE DB 连接方法
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"
DBase 连接方法:
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=-----;"
mySQL 连接方法:
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourDB;uid=uid;pwd=pwd;option=16386;"
MS text 连接方法
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"
MS text OLE DB 连接方法
Dim adocon
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_
"Extended Properties'text;FMT=Delimited'"
