asp连接数据库的方法(全)

assassin

asp连接数据库的方法(全)
　
好像夜神习惯用Access，代码连接方法也都是基于Mdb数据库的，其实asp连接数据库的代码方法还有很多，后台数据库如采用SqlServer，Oracle都不尽相同，连接方式也有Oledb,Odbc等几种区别，特写此文，以作补遗。
ADO相关知识
在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command
Connection：负责打开或连接数据
Recordset：负责存取数据表
Command：负责对数据库执行行动查询命令
连接各数据库的驱动程序
连接各数据库可以使用驱动程序(OLEDB)，也可以使用数据源(ODBC)，相对来说使用OLEDB较为方便、简单。
ODBC链接（红色加粗部分为数据库类型，右方为相关连接方式）

access "Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"

dBase "Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

Oracle "Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

MSSQL server "Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"

MS text "Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txtersist SecurityInfo=false;"

Visual Foxpro "Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

MySQL "Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

OLEDB链接
access "rovider=microsoft.jet.oledb.4.0;data source=your_database_path;user id=admin;password=pass;"

Oracle "rovider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

MS SQL Server "rovider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"

MS text "rovider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"

在Asp中连接Access的数据库相关代码可以写为：
Dim db,conn,connstr
db="data/hezepolice.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

connstr="DBQ="+server.mappath("db")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

'采用Oledb方式
'connstr="rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

'字符串写法的不同
'connstr="Driver={microsoft access driver (*.mdb)};DBQ=" & Server.MapPath(db)

'采用先行建立的Dsn进行连接
'connstr="dsn=hezepolice;"
conn.open connstr
以下是数据库采用sqlserver的时候Asp建立数据连接常用的代码方式之一

Set conn=Server.CreateObject("ADODB.Connection")
on error resume next
connstr="rovider=SQLOLEDBassword=***ersist Security Info=True;User ID=sa;Initial Catalog=msdb;Data Source=localhost;Connect Timeout=15"
conn.Open connstr
微软建议在连接Access数据库使用下面的方法：
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.mdb")

eric1989