DW如何连接Access数据库

DW如何连接Access数据库

打开DW，在“应用程序”下，点击“数据库”项目下的“+”号，选择“自定义连接字符串”随后会弹出一个对话框，在“连接”名称那里填写“conn”在下面的“连接字符串”中，我们敲下如下代码："Driver={Microsoft Access Driver (*.mdb)};Dbq=E:\web\DB\#data.mdb;"-->这里的数据库路径换成你自己的最后点击确定，退出。。我们会在网站根文件夹下，DW自动生成了一个名为“connections”的文件夹。打开，我们会发现里面有个名为“conn.asp”的连接文件。双击它，代码如下：<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
'MM_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=e:\web\DB\#date.mdb"我们在这段话前面加个“'”，使其在DW中变成灰色，也就是注释。。然后添加下面这段代码：MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/DB/#date.mdb")
%>
兼顾本地和服务器的conn.asp链接文件。

那给你发个类吧,你只要保存成单独的文件,如con.asp ,然后页面上包含引用进来就可以了调用了.代码如下: <%
Class DataBaseClass
Private IConnStr Public Property Let ConnStr(Val)
IConnStr = Val
End Property

Public Property Get ConnStr()
ConnStr = IConnStr
End PropertyPrivate Sub Class_initialize()
dbpath="/datamdb/aershantravel.asp" '这里是数据库连接路径
ConnStr = "provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath(dbpath)
End Sub Private Sub Class_Terminate()
ConnStr = Null
End Sub Public Function OpenConnection()
Dim TempConn
Set TempConn = Server.CreateObject("ADODB.Connection")
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("")
Response.End
end if
End Function
End Class
%>
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>=============引用========= set rsb=server.createobject("Adodb.recordset")
sql="select * from BaseClass where plb=2 order by id asc"
rsb.open sql,conn,1,1

<%
connstr = "DBQ=" + server.mappath("/数据库的相对路径") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if

sub endConnection()
conn.close
set conn=nothing
end sub
%>保存为一个asp页面。其他页面在调用它