| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 443 人关注过本帖
标题:[求助]这个程序中的错误怎么改
只看楼主 加入收藏
alalei_2006
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2006-5-8
收藏
 问题点数:0 回复次数:2 
[求助]这个程序中的错误怎么改
Dim strSQL
If Cbodep.ListIndex = 0 Then
strSQL = "select * from teacher order by serial"
Else
strSQL = "select * from teacher where dept_id= '" & Cbodep.ItemData(Cbodep.ListIndex) & "'"
End If

Dataenv.rsteacher.Close
Dataenv.rsteacher.Open strSQL
错误:标准表达式中数据类型不匹配
我要实现的功能是:在下拉列表框Cobdep中选择全部,显示所有的教师信息
在下拉列表框Cobdep中选择某个具体的系则显示本系的教师信息
teacher.dept_id的数据类型为:数字
department.id 的数据类型为:数字
Cobdep中数据实在form_load中加载的department中的name 字段.
department表共有两个字段:id name
搜索更多相关主题的帖子: 表达式 teacher color 
2006-05-08 16:20
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 

Dim strSQL
If Cbodep.ListIndex = 0 Then
strSQL = "select * from teacher order by serial"
Else
strSQL = "select * from teacher where dept_id= '" & Cbodep.text & "'"
End If

Dataenv.rsteacher.Close
Dataenv.rsteacher.Open strSQL

数字类型的不用单引号

[此贴子已经被作者于2006-5-8 17:57:43编辑过]


IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-08 17:49
alalei_2006
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2006-5-8
收藏
得分:0 
vb爱上我
知道了,谢谢,太感谢你了
2006-05-08 21:46
快速回复:[求助]这个程序中的错误怎么改
数据加载中...
 
   



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

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