数据库连接方法总汇

 1、为了共享连接字符串，一般将连接字符串写到一个文件中，比如：conn.asp:  
  conn.asp中的内容：  
  <%  
  dim   conn  
  dim   connstr  
  dim   db  
  db="agr.mdb"  
  on   error   resume   next  
  Set   conn   =   Server.CreateObject("ADODB.Connection")  
  connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   Server.MapPath(""&db&"")  
  conn.Open   connstr  
  if   err   then    
  err.clear  
  set   conn=nothing  
  response.write("数据库连接错误，请检查conn.asp")  
  response.end  
  end   if  
      sub   endConnection()  
              conn.close  
              set   conn=nothing  
      end   sub  
  %>

 

 

第一种 - 这种方法[通常用的都是这种方法].就是OLEDB提供者方式

<%

db="data/test.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

conn.open connstr

%>

如果是较老的版本[2000以前的]的Access可以使用下面的连接方式,这种方式的兼容性是最好的:

<%
db="data/test.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(db)

conn.open connstr
%>

建立一个conn.asp文件,把上面的代码复制进去,在需要操作数据库的页面里把这个文件包含进去,如:

 

<!--#include file="conn.asp" -->

 

 

第二种方法就是用odbc连接数据库[在这里常用的是系统DSN]

建立方法如下:

在控制面板中打开数据源[odbc],界面如下:

[attach]19739[/attach]

[attach]19740[/attach]

[attach]19741[/attach]
<%
connstr="DSN=testdns;UID=xx;PWD=xxx"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
%>

 

下面介绍了5种连接数据库德方法：

 

方法一:

 

Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath="*.mdb"
Set a=Server.CreateObject("ADODB.Connection")
a.open Connstr

 

方法二:

 

dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
    SQL="select * from auth where id="" & user_id &"""
    SET uplist=dbconnection.EXECUTE(SQL)

 

方法三:

 

set dbconnection=Server.CreateObject("ADODB.Connection")
    DBPath = Server.MapPath("customer.mdb")
    dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
    SQL="select * from auth where id="" & user_id &"""
    SET uplist=dbconnection.EXECUTE(SQL)

 

方法四:

 

DBPath = Server.MapPath("customer.mdb")
    set session("rs")=Server.CreateObject("ADODB.Recordset")
"   rs=Server.CreateObject("ADODB.Recordset")
    connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
    SQL="select * from auth where id="" & user_id &"""
    session("rs").Open sql,connstr,1,3

 

方法五:

 

建odbc源xxx
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer

 

 

下面是各种数据库连接的代码:

 

1、MS Access数据库连接

用DSN连接并且没有用户名和密码：

 

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>

 

用DSN连接并且有用户名和密码：

 

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>

 

用实际的数据库绝对路径连接：

 

<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\qixin\database.mdb"
conn.Open Strconn
%>

 

用实际的数据库相对路径连接：

 

<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/qixin.mdb")
conn.Open Strconn
%>

 

2、MS SQL Server数据库连接

用DSN连接：

 

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>

 

不用DSN连接：

 

<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>

3、FoxPro数据库连接

 

<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\qixin\database.dbc"
Conn.Open ConnStr
%>

4、Oracle数据库连接：

 

<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=qixin;Data Source=xxx.world"
conn.open DSNtemp
%>