急救!连sqlserver怎么总是连不上呀错在哪,100分急救,在线

[Andy83]

<%
dim conn
dim connstr
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;DATA SOURCE=local;UID=sa;PWD=;DATABASE=data_zzyd"
conn.Open connstr
if err.number<>0 then '如果测试不通过
response.Write("访问数据库时出错，请检测数据库链接参数设置")
response.end
end if
%>

为什么总是连上不呀,这代码测试代码应该没错吧.
我在odbc里配置sql是这样配置的.

在"系统DNS"添加
->选择SQL server
->name为aa,server选择local
->在login id里,选择with windows nt authentication using the network login id
在connect to sql server 里,选择默认的
->change the default database to:选择data_zzyd
->下一步是默认的
->完成.
不知道我这个odbc配置是不是错了.

[Andy83]

谁帮我解决,我另开贴送分!!先谢谢各位

[baisun]

你的方法就不需要配置ODBC了。
Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;PWD=;Initial Catalog=data_zzyd;Data Source=(local)
...
if conn.errors.count > 0 then
for errnum=0 to conn.errors.count-1
response.write conn.errors.item(errnum)
next
response.write "请尝试重新登录。"
response.end
end if

[Andy83]

那你的意思是说,我现在这种方法是,配置odbc,等于和没配置一样,是吗

[纪俊]

点那个测试DSN
看看DSN好用不？
如果实在不好用就换用ADODB打开方法，具体方法搜索下代码很多
/////////////////////////////////////////////////////////////////////
欢迎大家使用编程文档手册V3.6,编程辅助类软件
下载：http://www.skycn.com/soft/11906.html

[Andy83]

to baisun(蟋蟀.NET)
可以写全吗
errnum是什么意思呀


to blow_jj(阿俊)
adodb打开方法,这个比DNS好些吗,我以前用access的时候,都是用DNS呀,
我不知道哪个好用,sql server我用得少

[ttkkyy]

ado方式不需要配置（微软的东西）
直接写连接就行了
<%
dim conn
dim connstr
connstr="Driver={sql server};uid=cq_jlfmyj;pwd=O08q5M3cWv;database=jlfmyj;server=db62.ce.net.cn"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

[futurepro]

直接用驱动就可以了，不用建ＯＤＢＣ了麻烦
set con=server.CreateObject("adodb.connection")
constr="provider=sqloledb;user id=sa;password=密码;
initial catalog=数据库名;datasource=本ＩＰ地址或１２７．０．０．１"
con.open constr

[街头小贩]

现在支持DSN的空间很少了吧!而且也极不完全!ADO省事

[纪俊]

ADODB比DSN更灵活些
效率几乎没有什么区别

[baisun]

dim conn
dim connstr
dim errnum
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;PWD=;Initial Catalog=data_zzyd;Data Source=(local)"
conn.open connstr
if conn.errors.count > 0 then
for errnum=0 to conn.errors.count-1
response.write conn.errors.item(errnum)
next
response.write "请尝试重新登录。"
response.end
end if

[underone]

密码是不是空啊
一般都应该有密码的

[coolwindkaka]

Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "数据库名"
SqlPassword = ""
SqlUsername = "sa"
SqlLocalName = "(local)"
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
End If
注：连接本地SQL