新手，高分求教

lin45143777 2010-07-21 02:36:40
Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
oConn.Open StrSQL,StrConn,1,1
x=1
Response.Write %>"<%Response.Write"Changdu"%>":"<%=objRS.recordcount%>"
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"




Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'Write'
/station.asp, 第 18 行
...全文
248 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
lin45143777 2010-07-23
  • 打赏
  • 举报
 回复
结合了以后还是不行。我不太会VB代码。以前连接SQL2000是没问题的。但是连接2008就不行了。
不晓得是哪里的问题。请各位费心帮我看下。。加分到100
lin45143777 2010-07-23
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

dim Date_id
Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
set objRS=server.CreateObject ("adodb.Recordset")
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount & "<br>"
while (not objRS.Eof)
Response.Write "," & x & ":" & objRS("人数")
objRS.MoveNext
x=x+1
wend
objRS.close
oConn.Close
set objRS = nothing
set oConn = nothing %>




错误类型：
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Incorrect syntax near the keyword 'from'.
/station.asp, 第 15 行
lin45143777 2010-07-23
  • 打赏
  • 举报
 回复
[Quote=引用 18 楼 lin45143777 的回复:]
结合了以后还是不行。我不太会VB代码。以前连接SQL2000是没问题的。但是连接2008就不行了。
不晓得是哪里的问题。请各位费心帮我看下。。加分到100
[/Quote]
不是语句的问题。我在查询分析器测试过
sunrisehy2003 2010-07-23
  • 打赏
  • 举报
 回复
全才多啊，不是VB.net的问题，也有这么多人知道
erdong988 2010-07-23
  • 打赏
  • 举报
 回复
"from"附近语法不正确
在 查询器 中调试SQL语句
lin45143777 2010-07-22
  • 打赏
  • 举报
 回复
持续加分，请各位大侠帮忙看看
lin45143777 2010-07-22
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 lin45143777 的回复:]
全部代码在这。麻烦哪位大侠帮忙改一下！
[/Quote]
{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id
Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,StrConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}




错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/station.asp, 第 14 行
浅蓝马 2010-07-22
  • 打赏
  • 举报
 回复
楼上的代码，在objRS.Open StrSQL,oConn,1,1之前，
我想应该有objRS对象的创建，如下：
set objRS=server.CreateObject ("adodb.Recordset")
erdong988 2010-07-22
  • 打赏
  • 举报
 回复
综合了一下，自己再看看



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%Response.Expires=-10000

response.addHeader "pragma","no-cache"

response.addHeader "cache-control","private"

Response.CacheControl = "no-cache"

  

  dim Date_id

  Dim oConn,strSQL, objRS,add,StrConn

  set oconn=server.CreateObject ("adodb.connection")

  StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"

  oConn.cursorlocation=3   

  oConn.Open StrConn

  set objRS=server.CreateObject ("adodb.Recordset")

  strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"

  objRS.Open StrSQL,oConn,1,1

  x=1

  Response.Write "Changdu:" & objRS.recordcount & "<br>"

  while (not objRS.Eof)   

     Response.Write "," & x & ":" & objRS("人数")

     objRS.MoveNext   

     x=x+1

  wend

  objRS.close

  oConn.Close   

  set objRS = nothing   

  set oConn = nothing %>
fzx4936 2010-07-22
  • 打赏
  • 举报
 回复 
 <%while (not objRS.Eof)   

 Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"

  <%objRS.MoveNext  

  x=x+1

  wend%>

问题好像应该出在这里吧？


 <%while (not objRS.Eof)   

 Response.Write x &":" &objRS("人数")

 objRS.MoveNext  

 x=x+1

 wend%>

改成这样试试
浅蓝马 2010-07-22
  • 打赏
  • 举报
 回复
我上面不是说过了，在objRS.Open StrSQL,oConn,1,1之前，
应该有objRS对象的创建：
set objRS=server.CreateObject ("adodb.Recordset")
yaling_ 2010-07-22
  • 打赏
  • 举报
 回复
想网站的错误最好是把整站拿出来调试，要不然看的人比较费劲，有时提示有错的地方，不一定有错。
jhone99 2010-07-22
  • 打赏
  • 举报
 回复
你的错误很多，需要把大家的综合，大家帮你修改的你基本无视
jhone99 2010-07-21
  • 打赏
  • 举报
 回复
#7楼 得分：0回复于：2010-07-21 20:12:42{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id


Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
objRS.close
set objRS = nothing
set oConn = nothing %>
}

jhone99 2010-07-21
  • 打赏
  • 举报
 回复
{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id


Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}
erdong988 2010-07-21
  • 打赏
  • 举报
 回复
在2楼的基础上，把
oConn.Open StrSQL,StrConn,1,1
改为
objRS.Open StrSQL,StrConn,1,1
lin45143777 2010-07-21
  • 打赏
  • 举报
 回复
全部代码在这。麻烦哪位大侠帮忙改一下！
lin45143777 2010-07-21
  • 打赏
  • 举报
 回复
{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id


Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
oConn.Open StrSQL,StrConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}
lin45143777 2010-07-21
  • 打赏
  • 举报
 回复
按您说的试了下

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/station.asp, 第 18 行
浅蓝马 2010-07-21
  • 打赏
  • 举报
 回复
Response.Write %>"<%Response.Write"Changdu"%>":"<%=objRS.recordcount%>"
感觉好像多了点东西，改成下面试试
Response.Write "Changdu:" %> <%=objRS.recordcount%>
或者
Response.Write "Changdu:" & objRS.recordcount %>

下面的
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
也是同样。


加载更多回复（1）
软考高项论文50分秘籍——心法篇
讲师以52分和53分通过论文，2次高分通过，方法论经得起考验
vb/vb.net开发实战之经验分享（1）
pciture图片操作,验证码识别? WINSOCK文件传输问题 text文本显示数字的问题！ VBA   excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知) usb接口的   zebro
基础类 - SQL语句

基础类 - SQL语句

转载请标明出处： http://blog.csdn.net/hz/archive/2006/03/01/613376.asp 本文来自 CSDN 博客。x
sql server 怎么跨库查询？
如何判断字符的大小写 ?
如何得到动态 SQL 中取得的值 ?
如何定义动态游标 ?
已知：当前时间 ( 截取 yyyy-mm 目标 1 查询进销存表当中距离当前时间连续 3 个月内进货数量 =0...<
数据库帖子收集
这样的数据列表在存储过程中应该怎么样选择得到？ 请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！！！！记录集的返回。。 谁能跟我说说期初库存怎么样的一个业务逻辑!都要处理哪些内容!需要每月进...
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到下一页显示数据 下载中文名
VB基础类

7,764

社区成员

197,605

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章