标题:[求助]怎样测试连接成功。
只看楼主
zzw668
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2005-10-18
 问题点数:0 回复次数:4 
[求助]怎样测试连接成功。
在dreamweaver中编好ASP与Access数据库连接:
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

应该怎样测试连接成功?
搜索更多相关主题的帖子: 数据库 conn driver mdb server 
2006-04-09 19:27
lanya1983
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2006-3-11
得分:0 
<%
for i=1 to rs.recordcount
name=trim(rs("music_chinese"))

response.write"<a target=_blank >"&name&"</a>"

rs.movenext
next

rs.close
set rs=nothing
%>

我的网站http:\\\\lanya. http:\\\\leilei. 主要是练练手
2006-04-09 19:33
zzw668
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2005-10-18
得分:0 

还是不清楚怎么用。讲清楚一点。放在什么地方/还要加什么吗?

2006-04-11 18:22
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
得分:0 
on error resume next

set conn = Server.CreateObject("ADODB.Connection")
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("fool.mdb")
conn.Connectionstring=str
conn.open
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"'
Response.End
End If

2006-04-11 21:12
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
还有一种办法就是利用con对象自身的属性进行判断如
set conn = Server.CreateObject("ADODB.Connection")
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("fool.mdb")
conn.Connectionstring=str
conn.open
IF conn.State=1 Then
Response.Write "数据库连接成功"
Else
Response.Write "数据库连接失败"
End IF
2006-04-11 21:51



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-56356-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.653238 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved