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

combo的使用情况

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

combo的使用情况

发表于：2007-06-26 00:52:27 楼主

msgbox tempid
dim txtsql, msgtext as string
dim intcount as integer
dim pid as integer
dim mrc as adodb.recordset
dim mrc2 as adodb.recordset

intcount = productview.myflexgrid.row
txtsql = "select * from product where id= " + tempid + " "
'msgbox txtsql
set mrc = ＥＸＥＣutesql（txtsql, msgtext)
glmc.text = mrc.fields（ "glmc ").value '锅炉名称

'列出锅炉类型
txtsql = "select * from class where pid=1 "
set mrc2 = ＥＸＥＣutesql（txtsql, msgtext)
do while not mrc2.eof
gllx.additem trim（mrc2.fields（ "id ")) + "- " + trim（mrc2.fields（ "class "))
mrc2.movenext
loop

mrc2.close

gllx.text = mrc.fields（ "gllx ").value '锅炉类型

下一篇：关于存储过程调用
上一篇：怎样在循环中对recordsets写入

其他资讯