UC知道求助ASP与sql2000数据库连接的问题
来源：百度知道 编辑：UC知道 时间：2024/05/21 07:33:47
原来的网站是accsse数据库,代码如下:
<%
On Error Resume Next
dim conn,connstr,db
db="database/#dgcxssdef.asa"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
Set rs = Server.CreateObject("ADODB.RecordSet")
sub closedb()
conn.close
set conn=nothing
end sub
%>
想改用SQL数据库,SQL数据库已经建立,用网上找到的代码都解决不了问题,恳请高手帮忙解决!
<%
On Error Resume Next
dim conn,connstr,db
db="database/#dgcxssdef.asa"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
Set rs = Server.CreateObject("ADODB.RecordSet")
sub closedb()
conn.close
set conn=nothing
end sub
%>
想改用SQL数据库,SQL数据库已经建立,用网上找到的代码都解决不了问题,恳请高手帮忙解决!
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db")
里面的 "& &" 不需要了
楼上的回答好像还是ACCESS吧，我不懂。
<%
Set conn= Server.CreateObject("ADODB.Connection")
sql="DRIVER={SQL Server};SERVER=pc-07;UID=sa;PWD=123;DATABASE=newdb"
conn.open sql
%>
server是服务器名称，UID是用户名，PWD是密码，database是数据库名称
也可以这样写：
<%
set Conn=server.createobject("adodb.Connection")
constr="Provider=sqloledb;server=(local);UID=sa;PWD=000;database=newdb"
conn.Open constr
%>
最后，可以加个判断,看是否连接成功：
<%
if conn.errors.count>1 then
response.Write("<script>this.location.reload()</script>")
response.Write("数据连接有问题，请查看与SQL SERVER的数据连接")
response.End()
end if
%>