您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

关于label显示数据库字段的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于label显示数据库字段的问题[已结贴,结贴人:cllovelylylovecl]

发表于：2007-01-25 17:46:50 楼主

请先看这段代码：
if keyascii = 13 then
dim str as string
dim str1 as string
dim rs as adodb.recordset
str = "select max（bed_no) from bed_rec where ward_code= '030809 ' "
set rs = ＥＸＥＣutesql（str, true)
if rs.fields（0) < int（text1.text) then '输入的床位号大于最大床位号，则符合床位要求，可以查看该床位是否有病人
msgbox "没有该床位号，请重新输入！ ", vbokonly + vbexclamation, "注意 "
exit sub
end if
end if
str1 = "select t1.name,t1.patient_id,t1.sex,t1.inp_no,t1.charge_type,t2.bed_no,t2.prepayments, " _
& "t2.admission_date_time,t2.dept_code,t2.nursing_class,t2.diagnosis,t2.patient_id, " _
& "t2.patient_condition,t2.adm_ward_date_time,t2.operating_date,t2.doctor_in_charge " _
& "from pat_master_index t1,pats_in_hospital t2 " _
& "where t1.patient_id=t2.patient_id and t2.ward_code= '030809 ' "

set rs = ＥＸＥＣutesql（str1, true)

label20.caption = rs.fields（0)

我就是想在label20中显示出所查出来的字段，但是一运行就错误提示说“未找到预期from关键字”

请问怎么办???谢谢

发表于：2007-01-25 17:49:041楼得分:0

请快来，很急

发表于：2007-01-25 17:55:082楼得分:30

t2.doctor_in_charge " _
& "from

应该是
t2.doctor_in_charge " _
& " from
有空格
下边where也有这问题

发表于：2007-01-25 17:58:243楼得分:0

楼上的眼力好！的确少了几个空格。

下一篇：sql查询语句问题？很奇怪的逻辑
上一篇：ado控件显示：在进行多部操作的时候出现了问题？

其他资讯