查询代码问题`请Wangtiecheg进来看看

cs356258 2008-01-08 05:35:13
<%@ LANGUAGE="VBScript" %>
<html>
<head><title>资料查询</title></head>
<body onload="fqs.course.value=''">
<center>
<h2>实用型查询网页</h2><hr>
<form name="fqs" action="qst07b.asp" method="post">
<table>
<tr><td colspan="6"><font color="blue">查询条件</font></td></tr>
<tr><td colspan="6"><hr></td></tr>
<tr>
<td>身份证号码</td>
<td><input name="id" type="text" maxlength="8" size="10"> </td>
<td>出生地</td>
<td><select name="address">
<%
' 注释：数据库连接代码
Set objConn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Access Driver (*.mdb)};"
DBPath = "DBQ=" & Server.MapPath("1111.mdb")
objConn.Open Driver & DBPath
' 注释：创建并打开Recordset对象
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.Source = "SELECT id, address FROM 身份证"
objRS.Open
' 注释：读取记录集中所有的课程记录
Do While Not objRS.EOF
%>
<option value=<% = objRS("id") %><% = objRS("address") %>><% = objRS("address") %></option>
<%
objRS.MoveNext
Loop
' 注释：断开数据库连接
objRS.Close ' 关闭记录集
Set objRS = Nothing
objConn.Close ' 关闭数据库连接
Set objConn = Nothing
%>
</select> </td>
<td><input type="submit" value="查询"> </td>
<td><input type="reset" value="重设"></td>
<tr><td colspan="6"><hr></td></tr>
<tr><td colspan="6"><font color="blue">查询结果</font></td></tr>
</table>
</form>
<%
If Request("id") <> "" And Request("address") <> "" Then
' 注释：数据库连接代码
Set objConn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Access Driver (*.mdb)};"
DBPath = "DBQ=" & Server.MapPath("1111.mdb")
objConn.Open Driver & DBPath
' 注释：创建并初始化Recordset对象
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.Source = "SELECT * FROM 身份证 " & _
"WHERE id = '" & Request("id") & "' " & _
"AND address = '" & Request("address") & "' "
objRS.CursorType = 3 ' 记录集指针类型设为静态指针
objRS.Open
' 注释：显示查询条件
Response.Write("身份证号码【" & Request("id") & "】，")
Response.Write("出生地【" & Request("address") & "】，")
Response.Write("出生日期：")
' 注释：读取并显示成绩信息
If objRs.RecordCount>0 then
Response.Write(objRs("date") & "号 ，")
Else
Response.Write("没有找到!")
End if
Response.Write("姓名: ")
If objRs.RecordCount>0 then
Response.Write(objRs("name") & " ")
Else
Response.Write("没有找到!")
End if
' 注释：断开数据库连接
objRS.Close ' 关闭记录集
Set objRS = Nothing
objConn.Close ' 关闭数据库连接
Set objConn = Nothing
End If
%>
</center>
</body>
</html>

...全文
106 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
OracleRoob 2008-01-18
  • 打赏
  • 举报
 回复
不是Access问题。

转Web开发或VBScript相关版去问吧
cs356258 2008-01-18
  • 打赏
  • 举报
 回复
%>
<option value="<%=objRS("id")%> <%=objRS("title")%>"> <% =objRS("title")%> </option>
<%


有什么问题吗这语句？？？
cs356258 2008-01-18
  • 打赏
  • 举报
 回复
````我门用的是VB的脚本语言啊``````VBA是怎样的呢`？ 请说的详细点``谢谢```
OracleRoob 2008-01-11
  • 打赏
  • 举报
 回复
VBScript 代码，还是与Access的VBA有差别的
liuyann 2008-01-11
  • 打赏
  • 举报
 回复 
%>

       <option value="<%=objRS("id")%> <%=objRS("address")%>"> <% =objRS("address")%> </option> 

<%
liuyann 2008-01-11
  • 打赏
  • 举报
 回复 
%>

       <option value="<%=objRS("id")%> <%=objRS("title")%>"> <% =objRS("title")%> </option> 

<%
cs356258 2008-01-11
  • 打赏
  • 举报
 回复
还是没有成功``老毛病```请大哥多帮忙``
cs356258 2008-01-11
  • 打赏
  • 举报
 回复
<%@ LANGUAGE="VBScript" %>
<html>
<head><title>成绩查询</title></head>
<body onload="fqs.course.value=''">
<center>
<h2>实用型成绩查询网页</h2><hr>
<form name="fqs" action="qst07b.asp" method="post">
<table>
<tr><td colspan="6"><font color="blue">查询条件</font></td></tr>
<tr><td colspan="6"><hr></td></tr>
<tr>
<td>学生学号</td>
<td><input name="stid" type="text" maxlength="8" size="10"> </td>
<td>课程名称</td>
<td><select name="course">
<%
' 注释：数据库连接代码
Set objConn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Access Driver (*.mdb)};"
DBPath = "DBQ=" & Server.MapPath("score.mdb")
objConn.Open Driver & DBPath
' 注释：创建并打开Recordset对象
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.Source = "SELECT id, title FROM Course"
objRS.Open
' 注释：读取记录集中所有的课程记录
Do While Not objRS.EOF
%>
<option value=<% = objRS("id") %><% = objRS("title") %>><% = objRS("title") %></option>
<%
objRS.MoveNext
Loop
' 注释：断开数据库连接
objRS.Close ' 关闭记录集
Set objRS = Nothing
objConn.Close ' 关闭数据库连接
Set objConn = Nothing
%>
</select> </td>
<td><input type="submit" value="查询"> </td>
<td><input type="reset" value="重设"></td>
<tr><td colspan="6"><hr></td></tr>
<tr><td colspan="6"><font color="blue">查询结果</font></td></tr>
</table>
</form>
<%
If Request("stid") <> "" And Request("course") <> "" Then
' 注释：数据库连接代码
Set objConn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Access Driver (*.mdb)};"
DBPath = "DBQ=" & Server.MapPath("score.mdb")
objConn.Open Driver & DBPath
' 注释：创建并初始化Recordset对象
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.Source = "SELECT mark FROM Sreport " & _
"WHERE stid = '" & Request("stid") & "' " & _
"AND coid = '" & Left(Request("course"),4) & "' "
objRS.CursorType = 3 ' 记录集指针类型设为静态指针
objRS.Open
' 注释：显示查询条件
Response.Write("学号【" & Request("stid") & "】，")
Response.Write("课程【" & Mid(Request("course"),5) & "】，")
Response.Write("成绩：")
' 注释：读取并显示成绩信息
If objRS.RecordCount > 0 then
Response.Write(objRS("mark") & "分")
Else
Response.Write("没有找到！")
End If
' 注释：断开数据库连接
objRS.Close ' 关闭记录集
Set objRS = Nothing
objConn.Close ' 关闭数据库连接
Set objConn = Nothing
End If
%>
</center>
</body>
</html>

这个是书里的`可以运行``我试按着修改的``可以运行``但是显示的答案还是有错误....
cs356258 2008-01-11
  • 打赏
  • 举报
 回复
其实我就是想把那个地址输入栏改成下拉菜单的形式，
<option value= <% = objRS("id") %> <% = objRS("address") %> > <% = objRS("address") %> </option>
这不是有2个ADDRESS吗？ 我把后面的删除一个`那个下拉菜单就什么也不显示``就是一片空白```
OracleRoob 2008-01-11
  • 打赏
  • 举报
 回复
首先确保处理逻辑没有问题。

逐行调试，检查中间引用的字段值是否为空，或值是否正确。
cs356258 2008-01-10
  • 打赏
  • 举报
 回复
```我试下``
OracleRoob 2008-01-08
  • 打赏
  • 举报
 回复
中断代码，逐行调试一下，检查用到的字段值是否为空
cs356258 2008-01-08
  • 打赏
  • 举报
 回复
可以运行 但是不论选什么都是只显示ID和ADDRESS 名字和生日都不显示``都显示“没有找到”！！！还有那个下拉菜单``地址有很多重复的````我的是这样的``默认的是彩甸`下面有武汉`武汉``青岛``大连``武汉``武汉``武汉``我想问下```这样把重复的消除```这每一个地址都是刚刚对应前面的那个ID。。谢谢```急.............
网页版“桌面时钟”（已为你构建完成） “桌面时钟”Java 代码逻辑，为你构建了一个功能完全一致的 Web 版桌面时钟 它具备以下特点： 外观一致：320x120 大小，半透明黑底，白色微软雅黑字
网页版“桌面时钟”（已为你构建完成） “桌面时钟”Java 代码逻辑，为你构建了一个功能完全一致的 Web 版桌面时钟。它具备以下特点： 外观一致：320x120 大小，半透明黑底，白色微软雅黑字体。 实时更新：每秒更新时间。 可拖拽：你可以直接在预览窗口中用鼠标拖动它。 双击退出：双击时钟会模拟“退出”效果。 ———————————————— 版权声明：本文为CSDN博主「Arenaschi」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。 原文链接：https://blog.csdn.net/s_sos0/article/details/159770352
STC89C52智能花盆自动浇水方案（含完整电路图、传感器手册与可运行代码）
一套基于STC89C52单片机实现的实用型自动浇花系统，支持手动调节和自动响应双模式。硬件部分包含土壤湿度传感器（4线制）、DHT11温湿度模块、ADC0832模数转换芯片、LCD1602液晶屏显示、继电器控制水泵电路、独立按键设置单元及稳定电源模块。软件提供完整Keil工程（.uvproj/.uvopt）、主程序main.c、启动文件STARTUP.A51，以及清晰的功能说明图、函数流程图、芯片引脚图与时序图。配套资料齐全：土壤湿度模块使用说明书、电路原理图、单点采集测试程序、温度模块验证代码、串口调试工具、Proteus仿真工程和编译输出文件（Objects、Listings）。所有代码已实测可运行，传感器接线与标定方法均有详细说明，适合电子类专业学生直接用于课程设计或毕业设计开发，无需额外调试即可上手搭建实物。
山东潍坊昌邑市产业发展分析建议：数字化转型赋能科技创新，构筑现代产业体系.docx
山东潍坊昌邑市产业发展分析建议：数字化转型赋能科技创新，构筑现代产业体系
LangChain:LangGraph实战开发指南【苍狮技术团队】.pptx
LangChain:LangGraph实战开发指南【苍狮技术团队】
县域年末金融机构贷款余额、金融机构储蓄存款余额数据2000-2024年
数据介绍 县域金融机构存贷款数据是观察地方经济活力、金融资源配置效率及政策实施效果的重要微观窗口‌。数据反映资金流向与区域经济结构特征，衡量区域经济发展水平与增长动能，评估金融资源错配与服务普惠性，检验货币政策传导机制的有效性，支持产业转型与金融协同机制研究，构建区域金融风险预警模型等。 数据名称：县域年末金融机构贷款余额、金融机构储蓄存款余额数据 数据年份：2002-2023年 数据指标 统计年度 地区编码ID 县域名称 所属地级市 所属省份 县域代码 年末金融机构贷款余额/亿元 年末金融机构存款余额/亿元 年末城乡居民储蓄存款余额/亿元
Access

7,732

社区成员

28,799

社区内容

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

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

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

+ 用AI写文章