高考问答刘行本进谏隋主是:ASP连接SQL的问题。。。在线等。。
来源：百度文库 编辑：高考问答 时间：2024/05/05 17:03:53
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
我用上面这段代码来连接数据库，但是如果SQL 服务器没有打开，连接不上的话就会有错；加一段什么代码，能够判断SQL服务器有没有打开，连接是否成功？？？
怎么捕获异常？？？？可行吗？
Microsoft OLE DB Provider for ODBC Drivers '80004005'
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
SQL没开时就报上面的错，怎么防止这种情况？并显示提示信息！！！
Function OpenDB()
on error resume next
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
if err then
Response.Write("数据库发生错误")
err.clear
Exit Function
end if
If conn.State = 1 Then
Response.Write "与数据库连接成功"
conn.Close
Else
Response.Write "与数据库连接失败!"
End If
Set conn = Nothing
End Function
on error resume next
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
if err then
err.clear()
response.Write("连接失败")
Set conn = Nothing
else
response.Write("连接成功")
end if
连接数据库根本就不用那么麻烦..所以我不建议你再去研究这一个连接数据库的语句了.我推荐你用以下数据连接吧
dim conn
set conn=server.CreatObject("Adodb.connection")
conn.open "dbq="&server.MapPat(数据库路径直)&";driver={microsot access driver (*.mdb0};"
这一小段就可以了.
sub con()
on error goto er
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
exit sub
er:
Response.Write "与数据库连接失败!"
end sub
可以捕获异常的吧