UC知道如何将ACCESS数据库的连接改MS SQL的连接？
来源：百度知道 编辑：UC知道 时间：2024/05/27 01:55:09
<%
dim conn,db
dim connstr
db="/Databases/database.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
谁告诉我把这段ACCESS数据库的连接改成MS SQL的连接啊，SQL库名“paper”,求根据这段连接代码写全写详细，谢谢啦！
dim conn,db
dim connstr
db="/Databases/database.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
谁告诉我把这段ACCESS数据库的连接改成MS SQL的连接啊，SQL库名“paper”,求根据这段连接代码写全写详细，谢谢啦！
<%
Dim conn
Dim connstr
'-----------------------SQL数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "paper" '数据库名
SqlUsername = "sa" '用户名根据你自己的改
SqlPassword = "sa" '用户密码根据你自己的改
SqlLocalName = "localhost" '连接名（本地用local，外地用IP）
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'-------------------------------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请打开数据库连接文件。"
Response.End