VB中,如何把数据库内容引入combox下拉列表中
数据库名称:参数;表名称:尺寸;有3个字段A、B、C1.如何把access中字段A的值显示在combox下拉列表中2.如果选中列表中某一值,可以把同一行的B、C字段值写入...
数据库名称:参数;表名称:尺寸;有3个字段A、B、C
1.如何把access中字段A的值显示在combox下拉列表中
2.如果选中列表中某一值,可以把同一行的B、C字段值写入B.text、C.text
我没什么分了,请高手帮帮忙,感激不尽
根据我提供信息,写一段combox的click事件代码? 展开
1.如何把access中字段A的值显示在combox下拉列表中
2.如果选中列表中某一值,可以把同一行的B、C字段值写入B.text、C.text
我没什么分了,请高手帮帮忙,感激不尽
根据我提供信息,写一段combox的click事件代码? 展开
展开全部
添加内容到combox中:
dim con as new adodb.connection
dim rs as new adodb.recordset
private sub form_load() '在窗体加载事件中,设置两个文本框内容为空,
B.text="" '设置文本框B内容为空
C.text="" '设置文本框C内容为空
打开数据库连接
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=参数.mdb;persist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
combox.additem.rs.fields("A") '添加内容到combox中
rs.movenext
wend
end if
end sub
private combox_click()
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸 where A='" & combox.text & "'",con,1,3
if rs.eof=false and rs.bof=false then
B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C
C.text=rs.fields("C")
end if
end sub
dim con as new adodb.connection
dim rs as new adodb.recordset
private sub form_load() '在窗体加载事件中,设置两个文本框内容为空,
B.text="" '设置文本框B内容为空
C.text="" '设置文本框C内容为空
打开数据库连接
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=参数.mdb;persist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
combox.additem.rs.fields("A") '添加内容到combox中
rs.movenext
wend
end if
end sub
private combox_click()
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸 where A='" & combox.text & "'",con,1,3
if rs.eof=false and rs.bof=false then
B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C
C.text=rs.fields("C")
end if
end sub
更多追问追答
追问
大哥啊,这段代码怎么运行不起来啊,我的QQ:55828281
我们在详细交流
谢谢你的回复
追答
如何运行不起来,提示什么错误贴上来,我看一下
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询