如何用不同的方法实现数据库连接

[letian910]

我原来的数据库连接是用数据源，数据源名为：ac

在一个连接文件bb.asp中的代码如下：
Dim MM_bb_STRING
MM_bb_STRING = "dsn=ac;"
其他页面只用下列语句就可以了：
<!--#include file="../../../Connections/bb.asp" -->
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_bb_STRING

现在我想不用数据源，而直接用连接数据库，只改bb.asp的内容，其他文件不用变，我该怎么改？

我试过这么改bb.asp的内容：
Dim MM_bb_STRING
MM_bb_STRING = ".\database\advertise.mdb;"
但是不行，我想也肯定不行，有什么方法，请各位高手帮忙。

[summercat]

db="数据库"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.open connstr

[summercat]

db="路径/数据库"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.open connstr

[xinshou1979330]

关注一下

[xuya]

ASP连接数据库的5种方法


第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二种－这种方法用在SQL SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn



第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"



第五种运用ODBC数据源，前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3

[xinshou1979330]

关注一下

[letian910]

我把bb.asp的内容改写如下：
<%
Dim MM_bb_STRING,dbPath
dbPath = Server.MapPath ("..\b2b\database\advertise.mdb")
MM_bb_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbPath
%>

在index.asp的脚本如下：
<%
Dim R1
Dim R1_numRows

Set R1 = Server.CreateObject("ADODB.Recordset")
R1.ActiveConnection = MM_bb_STRING
。。。

可出现的错误提示如下：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/aa/dzsw/wl1/index.asp, 第 19 行
也就是R1.ActiveConnection = MM_bb_STRING那行
请各位在帮我看看。谢谢了

[summercat]

在index.asp要包含bb.asp
<!--#include file=路径/bb.asp-->

[summercat]

同时bb.asp 加两句
Dim MM_bb_STRING,dbPath
dbPath = Server.MapPath ("..\b2b\database\advertise.mdb")
MM_bb_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbPath
Set conn = Server.CreateObject("ADODB.Connection")
conn.open MM_bb_STRING
index.asp 里包含了以后，就直接用

rs.open sql,conn,1,3

[letian910]

但是我不想用 connection对象，直接用 recordset对象，

应该可以吧，可是怎么还是出现错误呢

[summercat]

Set conn = Server.CreateObject("ADODB.Connection") 建立数据库连接，必须得有他
recordset 是操作数据集的，必须在建立连接以后才可以用...建议看一下书吧.............