永发信息网

DW如何连接Access数据库

答案:3  悬赏:0  手机版
解决时间 2021-02-01 11:36
  • 提问者网友:雨不眠的下
  • 2021-01-31 15:02
DW如何连接Access数据库
最佳答案
  • 五星知识达人网友:撞了怀
  • 2021-01-31 15:24
打开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链接文件。
全部回答
  • 1楼网友:woshuo
  • 2021-01-31 16:15
那给你发个类吧,你只要保存成单独的文件,如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
  • 2楼网友:迷人又混蛋
  • 2021-01-31 15:53
<%
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页面。其他页面在调用它
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯