作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [ASP]请帮我看看问题在哪里~ 谢谢~~
时间Fri Oct 7 09:55:23 2005
※ 引述《misssun (小狐狸的小鸡姐姐)》之铭言：
: 请高手们帮我看一下,下面的程式到底是哪里出了错
: 会出现
: " Microsoft VBScript 执行阶段错误 (0x800A000D)
: 型态不符合: 'rsScore'
: line 38 "
: 这样的错误讯息呢?!
: 以下是我的程式说明：
: 这段程式码是我在进行线上考试的分数计算
: Score 就是最後的得分
: data资料表里面存有考试者的资料account(身分证号)和name以及gscore(得分)
: 这三个栏位
: 为何我的得分一直写不进去gscore这个栏位呢?
: 请大家为我解答~ 多谢多谢~~~
: <%
: Score = 0
: While Not rs.EOF
: Sel = Request( "No" & rs("题号") )
: Ans = rs("解答")
: If Ans = Sel Then
: Score = Score + rs("分数")
: End If
: rs.MoveNext
: Wend
: SQL = "Select * From data "
: SQL = SQL & "Where account=" & account & " And 姓名='" & Name & "'"
为什麽这边没有单引号
: Set rsScore = GetMdbRecordset( "data.mdb", SQL )
确定这行有执行正确吗
: rsScore("gscore") = Score ===>line 38!
'侦错
For i = 0 To rsScore.Fields.Count - 1
Response.Write(rs.Score(i)) '列出所有栏位
Next
: rsScore.Update
: %>
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43