select语句实现

[alabao]

从上一个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>

[alabao]

在线等待。。。。谢谢您的帮助！

[lzp4881]

Set rs = conn.Execute("select 客户名称 from partment where 所属部门= 'partm'")
双引号内部用单引号

[ChinaXtHuLang]

[Quote=引用 2 楼 lzp4881 的回复:]

Set rs = conn.Execute("select 客户名称 from partment where 所属部门= 'partm'")
双引号内部用单引号
[/Quote]
good

[alabao]

按照你的方法加上'后提示数据类型不匹配，期待值是1

[alabao]

数据库表的数据类型是文本型的。

[一把编程的菜刀]

呵呵，看上去是想做二级联动的功能

[ACMAIN_CHM]

Set rs = conn.Execute("select 客户名称 from partment where 所属部门= '" & partm & "'")

[alabao]

还是一样：
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。

[alabao]

或者大家可以告诉我，如何取得上一个下拉框的值

[lzp4881]

下拉框联动不是你这样弄的。
作为联动，必须由第一个下拉框触发一个事件，然后把值传给第二个，第二个再根据接收到的值到数据库中查询，把查询到的数据生成第二个下拉框。
而你现在是第一个还没有传值呢，第二个下拉框的数据就已经生成了，而且也第一个也没有触发事件和传值的动作。
本来可以帮你写一个，但你的分太少，懒得动，你还是自己搜索搜索吧，关键词：下拉框联动

[华仔lugl]

where 所属部门= "partm"")
这里应该改成：where 所属部门= '" & partm & "'")

[华仔lugl]

基础呀，以前我刚学VB是也经常犯这样的错误，建议你调试时一句一句的往下看。有变量时，我经常用msgbox显示生成的SQL字符串。

[挨踢直男]

partm
这个里面的值对不对啊

[wuwenguo22]

fewfwefewfwefwefwefwefew