2.8w+
社区成员
- 主页
select语句实现
从上一个select 中取得一个值作为下一个select的条件
报错的语句是：Set rs = conn.Execute("select 客户名称 from partment where 所属部门= "partm"")
代码如下：
<td><select name="partm">
<%
Set rs = conn.Execute("select 所属部门 from partment")
while not rs.eof
Response.Write "<option value='" & rs("所属部门") & "'>" & rs("所属部门") & "</option>"
rs.MoveNext
wend
rs.close
%>
<select></td>
</tr>
<tr>
<td>使用人:</td>
<td><select name="use">
<%
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= "partm"")
while not rs.eof
Response.Write "<option value='" & rs("客户名称") & "'>" & rs("客户名称") & "</option>"
rs.MoveNext
wend
rs.close
%>
<select></td>
报错的语句是：Set rs = conn.Execute("select 客户名称 from partment where 所属部门= "partm"")
代码如下：
<td><select name="partm">
<%
Set rs = conn.Execute("select 所属部门 from partment")
while not rs.eof
Response.Write "<option value='" & rs("所属部门") & "'>" & rs("所属部门") & "</option>"
rs.MoveNext
wend
rs.close
%>
<select></td>
</tr>
<tr>
<td>使用人:</td>
<td><select name="use">
<%
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= "partm"")
while not rs.eof
Response.Write "<option value='" & rs("客户名称") & "'>" & rs("客户名称") & "</option>"
rs.MoveNext
wend
rs.close
%>
<select></td>
...全文
请发表友善的回复…
发表回复
wuwenguo22 2010-07-09
fewfwefewfwefwefwefwefew
挨踢直男 2010-07-09
partm
这个里面的值对不对啊
这个里面的值对不对啊
华仔lugl 2010-07-08
基础呀，以前我刚学VB是也经常犯这样的错误，建议你调试时一句一句的往下看。有变量时，我经常用msgbox显示生成的SQL字符串。
华仔lugl 2010-07-08
where 所属部门= "partm"")
这里应该改成：where 所属部门= '" & partm & "'")
这里应该改成：where 所属部门= '" & partm & "'")
lzp4881 2010-07-08
下拉框联动不是你这样弄的。
作为联动，必须由第一个下拉框触发一个事件，然后把值传给第二个，第二个再根据接收到的值到数据库中查询，把查询到的数据生成第二个下拉框。
而你现在是第一个还没有传值呢，第二个下拉框的数据就已经生成了，而且也第一个也没有触发事件和传值的动作。
本来可以帮你写一个，但你的分太少，懒得动，你还是自己搜索搜索吧，关键词：下拉框联动
作为联动，必须由第一个下拉框触发一个事件，然后把值传给第二个，第二个再根据接收到的值到数据库中查询，把查询到的数据生成第二个下拉框。
而你现在是第一个还没有传值呢，第二个下拉框的数据就已经生成了，而且也第一个也没有触发事件和传值的动作。
本来可以帮你写一个，但你的分太少，懒得动，你还是自己搜索搜索吧，关键词：下拉框联动
alabao 2010-07-08
或者大家可以告诉我，如何取得上一个下拉框的值
alabao 2010-07-08
还是一样：
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
ACMAIN_CHM 2010-07-08
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= '" & partm & "'")
一把编程的菜刀 2010-07-08
呵呵，看上去是想做二级联动的功能
alabao 2010-07-08
数据库表的数据类型是文本型的。
alabao 2010-07-08
按照你的方法加上'后提示数据类型不匹配，期待值是1
ChinaXtHuLang 2010-07-08
[Quote=引用 2 楼 lzp4881 的回复:]
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= 'partm'")
双引号内部用单引号
[/Quote]
good
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= 'partm'")
双引号内部用单引号
[/Quote]
good
lzp4881 2010-07-08
Set rs = conn.Execute("select 客户名称 from partment where 所属部门= 'partm'")
双引号内部用单引号
双引号内部用单引号
alabao 2010-07-08
在线等待。。。。谢谢您的帮助！