| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 884 人关注过本帖
标题:[求助]用SQL语言初始化 文本框 所遇见的问题,请高手相助
取消只看楼主 加入收藏
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
 问题点数:0 回复次数:5 
[求助]用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]
搜索更多相关主题的帖子: SQL 语言 文本 远程教育 
2007-11-24 16:09
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
得分:0 
有没有哪位好心人帮忙呀,
有没有哪位好心人帮忙呀?
2007-11-25 11:06
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
得分:0 
是这一行有问题,
                  EquipmentID=CStr(rs("ID"))
但我改成
                  EquipmentID=2
           EquipmentID="2"  进行测试时
又显示
错误类型:
Microsoft JET Database Engine (0x80040E07)
标准表达式中数据类型不匹配。
/yjgl4/equiedit.asp, 第 45 行
第 45 行是:
num=Conn.exeCute("select top 1 Num from HaveNum where SchoolID='"&SchoolID&"' and
EquipID='"&EquipmentID&"'")(0)
2007-11-25 15:36
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
得分:0 
我找到了错误,不过又有新问题
我把文件改成了
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>远程教育设备数量填写</title>
</head>
<%
   dim schoolname,SchoolID
   schoolname=session("admin")
   SchoolID=Conn.exeCute("select top 1 ID from worker where       SchoolName='"&schoolname&"'")(0)
%>

<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 * 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>
        
    <%
       dim EquipmentID    
       EquipmentID=CStr(rs("ID"))
     %>
    
      <td height="24">
        <div align="center">
                <%
                  dim num
                   num=Conn.exeCute("select top 1 Num from HaveNum where SchoolID="&CStr(SchoolID)&" and EquipID="&EquipmentID&"")(0)
'                   num=Conn.exeCute("select Num from HaveNum where SchoolID="&CStr(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
'   conn.Close
'   set conn=Nothing
%>
  </table>
  <p>&nbsp;</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>&nbsp;</p>
  <p align="center">&nbsp; </p>
  </form>
</body>
</html>


  sql="SELECT Equipment,Unit FROM Equipment"
   改成了
  sql="SELECT * FROM Equipment"



而且把
num=Conn.exeCute("select top 1 Num from HaveNum where SchoolID='"&SchoolID&"' and
EquipID='"&EquipmentID&"'")(0)
中的单引号去掉了

不过又出新问题:

错误类型:
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/yjgl4/equiedit.asp, 第 49 行
第49行是
                   num=Conn.exeCute("select top 1 Num from HaveNum where SchoolID="&CStr(SchoolID)&" and EquipID="&EquipmentID&"")(0)
2007-11-25 16:12
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
得分:0 
也就是说我当某行不存在时,能不能让 num 的值为 "" 或 "0" ?  请高手指点
2007-11-25 16:14
afliult
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2007-7-22
收藏
得分:0 
谢谢这位朋友,现在有用了
谢谢这位朋友,现在有用了,非常感谢,祝好人一生平安
2007-11-26 16:56
快速回复:[求助]用SQL语言初始化 文本框 所遇见的问题,请高手相助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031550 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved