asp 连接数据sql数据库未发现数据源名称并且未指定默认驱动程序

Question

高手指点：浏览提示：未发现数据源名称并且未指定默认驱动程序
我的数据库连接字符串为：
<%
dim objconn
dim connstr
set objconn=server.CreateObject("ADODB.connection")
connstr="dirver={SQL Server};server=127.0.0.1;UID=sa;PWD=sa"&_
"database=db"
objconn.open connstr
objconn.close
set objconn=nothing
%> 我就那么多分了，全给！

Answer 1

ACC&SQL通杀,根据情况改一下设置就可以了
<%
Response.Buffer=True
IsSqlDataBase=0 '定义数据库类别，0为Access数据库，1为SQL数据库
If IsSqlDataBase=0 Then
'''''''''''''''''''''''''''''' Access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Db = "database/aaa.mdb" '数据库路径
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
IsSqlVer="ACCESS"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUserName ="sa" '用户名
SqlPassword ="1" '用户密码
SqlDatabaseName="aaaaa" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUserName & "; Password=" & SqlPassword & "; Initial CataLog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
SqlNowString="GetDate()"
IsSqlVer="SQL"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
END IF

On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write ""&IsSqlVer&"数据库连接出错，请检查连接字串。"
Response.End
End If
%>

Answer 2

把那个127.0.0.1去了

三.ADO连接SQL
set con=server.CreateObject("adodb.connection")
con.open ("Driver={SQL Server};server=.;uid=sje;pwd=123;database=pubs;")
response.Write(con.state)

四.OLEDB连接SQL
set con=server.CreateObject("adodb.connection")
con.open("provider=sqloledb;datesource=.;uid=sje;pwd=123;datebase=pubs")
set rs=con.execute("select * from authors order by au_id desc")
response.Write(rs("address"))

Answer 3

人家要连sql server 你给access有什么用
没指定哪个库
connstr="dirver={SQL Server};server=127.0.0.1;UID=sa;PWD=sa;database=db"
里面的db换成你的数据库

Answer 4

connstr="dirver
别的不知道，最起码你上面代码写错了
set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("kklk.mdb")
conn.Open connstr