第二天工作就遇到问题!求救 :(

netcrawller 2002-04-03 11:14:38
<%
dim conn
dim connstr
on error resume next
connstr="Driver={SQL Server};Server=DEMOSERVER;Satabase=Hy;uid=sa;pwd=1234;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

Dim Rs
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Rs.Open "select * from tbl_members",conn,3,2
Response.write("Test")
' Rs.MoveNext
Response.Write(Rs("用户名"))
%>


数据库中有两条记录了 但什么也读不出来。没有出错信息!

...全文
40 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
rohn 2002-04-04
  • 打赏
  • 举报
回复
可能是你安装sqlserver的时候没有注意,默认的是windows的用户验证密码的,而不是sa这个密码,你用sql的查询分析器用sa登录或建立一个odbc登录看看是什么密码,如果sa不对的话,请在打开企业管理器后,在你的数据库的用户那里把用户名和密码改成sa与空密码或设一个密码。
wwwfwww 2002-04-03
  • 打赏
  • 举报
回复
UID=sa,PWD=空
netcrawller 2002-04-03
  • 打赏
  • 举报
回复
一个刚安装好的SQL SERVER 2000
它的UID和PWD是什么?
netcrawller 2002-04-03
  • 打赏
  • 举报
回复
我现在是这样,
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;UID=administrator;PWD=1234888;DATABASE=HySoft"
set conn = server.createobject("adodb.connection")
conn.open strconn

Dim Rs
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Rs.Open "select * from tbl_members",conn,1,1
Response.write("Test")
' Rs.MoveNext
Response.Write Rs("用户名")
%>



错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
/NewHyWeb/Test.asp, 第 4 行


shot_big 2002-04-03
  • 打赏
  • 举报
回复
应该没有什么问题了?楼上对不对啊!
Studio 2002-04-03
  • 打赏
  • 举报
回复
可以了吗?
cmsoft 2002-04-03
  • 打赏
  • 举报
回复
我又改了一下,不知行不行!

<%
dim conn,connstr
connstr="Driver={SQL Server};Server=127.0.0.1;database=Hy;uid=sa;pwd=1234;" '我改了这句
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

Dim Rs,SQLStr
Set Rs=Server.CreateObject("ADODB.RECORDSET")
SQLStr="select * from tbl_members"
Rs.Open SQLStr,conn,1,1
do while not rs.eof
response.write rs("username") 'username是字段名
rs.movenext
loop
%>


rohn 2002-04-03
  • 打赏
  • 举报
回复
database = Hy 而不是 Satabase=Hy
Studio 2002-04-03
  • 打赏
  • 举报
回复
connstr="Driver={SQL Server};Server=DEMOSERVER;Satabase=Hy;uid=sa;pwd=1234;"


database吧 拼写错了
netcrawller 2002-04-03
  • 打赏
  • 举报
回复
把On error resume next 去了后。
出现这个错误:

错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
/NewHyWeb/Test.asp, 第 7 行


浏览器类型:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页:
GET /NewHyWeb/Test.asp

时间:
2002年4月2日, 11:21:34


详细信息:
Microsoft 支持
cmsoft 2002-04-03
  • 打赏
  • 举报
回复
是这个样子吧

<%
dim conn
dim connstr
on error resume next
connstr="Driver={SQL Server};Server=DEMOSERVER;Satabase=Hy;uid=sa;pwd=1234;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

Dim Rs
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Rs.Open "select * from tbl_members",conn,1,1
do while not rs.eof
response.write rs("username") 'username是字段名
rs.movenext
loop
%>


netcrawller 2002-04-03
  • 打赏
  • 举报
回复
拼写错误不计。
cmsoft 2002-04-03
  • 打赏
  • 举报
回复

<%
dim conn
dim connstr
on error resume next
connstr="Driver={SQL Server};Server=DEMOSERVER;Satabase=Hy;uid=sa;pwd=1234;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

Dim Rs
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Rs.Open "select * from tbl_members",conn,1,1
'Response.write("Test")
' Rs.MoveNext
Response.Write(Rs("用户名"))
do while not rs.eof
response.write rs("username")
rs.movenext
loop
%>

netcrawller 2002-04-03
  • 打赏
  • 举报
回复
会不会是的wingate的原因?

我只要一用wingate,interdev就出错;
我关了wingate,公司其它机器就不能上网。:P

我用Access的连接了一下完全通的,就sql的不行我快疯了。
香辣五花肉 2002-04-03
  • 打赏
  • 举报
回复
<%
Dim conn,connstr
set conn=Server.CreateObject("Adodb.Connection")
connstr="PROVIDER=SQLOLEDB;Server=DEMOSERVER;Database=Hy;uid=sa;pwd="
conn.Open connstr
set rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open "Select * from tbl_members",conn

Response.Write Rs("用户名")

conn.Close
set conn=nothing

%>


流星尔 2002-04-03
  • 打赏
  • 举报
回复
我觉得代码好像没错。会不会是驱动有错。另外登录
sql的密码你也要测试测试,是否正确
fogheart 2002-04-03
  • 打赏
  • 举报
回复
<%
Dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "SQLOLEDB"
CONN.Properties("Data Source").Value = "你的机器的IP"
CONN.Properties("User ID").Value = "sa"
CONN.Properties("Password").Value = ""
CONN.Properties("Initial Catalog").Value = "HySoft"
CONN.Open
set rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open "Select * from tbl_members",1,3 %>
试试看!
9742wsx 2002-04-03
  • 打赏
  • 举报
回复
Rs.Open "select * from tbl_members",conn,1,3
希偌 2002-04-03
  • 打赏
  • 举报
回复
去掉conn.Open connstr这句
Rs.Open "Select * from tbl_members",1,3
-->
Rs.Open "Select * from tbl_members",conn,1,3
jsidiot 2002-04-03
  • 打赏
  • 举报
回复
connstr="PROVIDER=SQLOLEDB;Server=Demoserver;Database=HySoft;Trusted_Connection=No;Application Name=test;Network Library=DBMSSOCN;PacketSize=8192;uid=sa;pwd="
改为
connstr="driver={sql server};uid=sa;pwd=;server=demoserver;datebase=hysoft;"

再试试呢
加载更多回复(2)

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧