[求助]用SQL语言初始化 文本框 所遇见的问题,请高手相助
表 worker ID ShoolName
1 城关中学
2 洲湖中学
2 洋门中学
表 HaveNum
ID SchoolID EquipID Num
1 1 1 56
2 1 2 83
表 Equipment
ID Equipment Unit
1 光盘 套
2 电脑 台
3 投影 只
我用下面的代码生成一张输入表,要求输入框中根据 表 HaveNum 的数据进行初始化,
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>远程教育设备数量填写</title>
</head>
<%
dim schoolname
schoolname=session("admin")
%>
<body>
<form name="myform" method="post" action="equisave.asp">
<p align="center"><font size="5" face="黑体"><%=schoolname%>远程教育设备数量填写</font></p>
<table width="70%" border="0" align="center" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td width="50%" height="24">
<div align="center">设备名</div></td>
<td width="25%" height="24">
<div align="center">单位</div></td>
<td width="25%" height="24">
<div align="center">数量</div></td>
</tr>
<%
dim rs, sql
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="SELECT Equipment,Unit FROM Equipment"
rs.open sql,conn,1,3
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td height="24">
<div align="center"><%=rs("Equipment")%></div></td>
<td height="24">
<div align="center"><%=rs("Unit")%></div></td>
<td height="24">
<div align="center">
<%
dim SchoolID,EquipmentID,num
SchoolID=Conn.exeCute("select top 1 ID from worker where SchoolName='"&schoolname&"'")(0)
EquipmentID=CStr(rs("ID"))
num=Conn.exeCute("select top 1 Num from HaveNum where SchoolID='"&SchoolID&"' and
EquipID='"&EquipmentID&"'")(0)
%>
<input type="text" height="24" name="equinum" value=<%=num%>>
</div></td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs=Nothing
%>
</table>
<p> </p>
<table width="20%" border="0" align="center">
<tr>
<td><div align="center">
<input type="submit" name="Submit" value="保 存 修 改">
</div></td>
</tr>
</table>
<div align="center"></div>
<div align="center"></div>
<p> </p>
<p align="center"> </p>
</form>
</body>
</html>
运行时显示
错误类型:
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中,未找到项目。
/yjgl4/equiedit.asp, 第 43 行
请问哪里错了,应该如何写,请高手指点,谢谢!
源码下载地址:
[url=http://www.]http://www.[/url]