asp程序连接ms sql2000数据库

wenjie01123 发布于 2008-11-13 11:51， 734 次点击

各位大侠，我现在碰到一棘手的问题，请大家帮我解答，在线等候！
  我将access数据库数据导入ms sql2000 ，ms sql 查询分析器也能将数据读取出来，程序连接数据库测试也提示连接成功，但是首页登录时总是提示--用户名、密码错误--
  我的程序是asp写的，我用过各种连接方式，现将ODBC连接数据库代码贴出：

  %
dim ConnStr
dim startime

startime=timer()
set Conn=server.createobject("adodb.connection")
Conn.connectionstring="driver={SQL server}; server=(local);datebase=stock; uid=sa; pwd=sa"
Conn.open ConnStr

sql="select * from userinfo"
  Set rs=conn.Execute(sql)
          if rs.eof or rs.bof then
          response.write"数据不存在！"
          else
          response.write"数据连接成功！"
          end  if

Conn.close
Set Conn=nothing
%>

请各位大侠帮我解忧！

问题：无法正确读取数据库数据，可以肯定数据已存在数据库中

9 回复

hmhz2008-11-13 12:11

程序代码：

<%
dim Conn
set Conn=server.createobject("adodb.connection")
Conn.open "provider=sqloledb;server=(local);database=stock;uid=sa;pwd=sa;"

Set rs=conn.Execute("select * from userinfo")
if rs.eof or rs.bof then
   response.write"数据不存在！"
else
   response.write"数据连接成功！"
end if
rs.close

Conn.close
Set Conn=nothing
%>

wenjie011232008-11-13 15:15

换成楼上说的程序后又出现了以下错误，无错误也是之前我所碰到的！

错误类型：
Microsoft VBScript 编译器错误 (0x800A0411)
名称重定义
/conn.asp, line 42, column 4
dim ConnStr
---^

hmhz2008-11-13 15:22

已经告诉你重复定义了
dim ConnStr
删掉这个就行了

wenjie011232008-11-13 15:29

回复 4# 的帖子

还是不行的哦，进不了系统！提示数据库连接成功，但是登录系统时用户名密码错误

lili06102008-11-13 15:30

Set Conn = Server.Createobject("ADODB.connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=计算机名;UID=sa;PWD=密码;DATABASE=数据库"
这就可以了

hmhz2008-11-13 15:36

pwd=sa 密码是sa吗？

wenjie011232008-11-13 15:50

回复 7# 的帖子

对的，版主
我用ms sql的查询分析器执行命令都可以的！

此系统原本数据库是access的，现将access数据库数据导入ms sql 2000中，程序我还没有做更改，数据库连不上我后边就没办法做！

如果你需要我可以把程序给到版主，请版主帮忙分析！

hmhz2008-11-13 15:53

你把改后的代码发出来看看

#10

wenjie011232008-11-13 16:07

回复 7# 的帖子

<%
dim ConnStr
dim startime

startime=timer()
set Conn=server.createobject("adodb.connection")
Conn.connectionstring="driver={SQL server}; server=(local);datebase=stock; uid=sa; pwd=sa"
Conn.open ConnStr

Set rs=conn.Execute("select * from userinfo")
if rs.eof or rs.bof then
   response.write"数据不存在！"
else
   response.write"数据连接成功！"
end if
rs.close

Conn.close
Set Conn=nothing
%>

版主你用这个“Conn.open "provider=sqloledb;server=(local);database=stock;uid=sa;pwd=sa;"
”好似有问题的
页面提示数据不存在！

方便的话可以加我QQ：305715412  or MSN：wenjie01123@

thank you!