VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
您好：请问一下列表框编程问题
发表在VB答疑区
2008-11-09
是否精华
是
否
版块置顶:
是
否
您好：
我是正做毕业设计的学生，我买了贵公司的《VB数据库开发自学手册》
有一个窗体：左边有一个listbox控件，右边有一个MSHFlexGrid1控件
我想实现单击listbox控件中想应内容MSHFlexGrid1控件中应显示数据库中字段内容和listbox控件所单击内容相同的记录--------vk
如：单击listbox中的“公寓”那么MSHFlexGrid1中应显示类型字段与“公寓”相等的记录；
源程序是这样的：
Dim con As New adodb.Connection
Dim rs As New adodb.Recordset
Private Sub List1_Click()
con.Open "dsn=stud"
Set rs = con.Execute("select*from sushe where 宿舍类型='" & List1.Text & "'")
rs.Update
Set MSHFlexGrid1.DataSource = rs
End Sub
运行时单击弹出了“实时错误3705：对象打开时，不允许操作”请帮我看一下,在此谢过
我是正做毕业设计的学生，我买了贵公司的《VB数据库开发自学手册》
有一个窗体：左边有一个listbox控件，右边有一个MSHFlexGrid1控件
我想实现单击listbox控件中想应内容MSHFlexGrid1控件中应显示数据库中字段内容和listbox控件所单击内容相同的记录--------vk
如：单击listbox中的“公寓”那么MSHFlexGrid1中应显示类型字段与“公寓”相等的记录；
源程序是这样的：
Dim con As New adodb.Connection
Dim rs As New adodb.Recordset
Private Sub List1_Click()
con.Open "dsn=stud"
Set rs = con.Execute("select*from sushe where 宿舍类型='" & List1.Text & "'")
rs.Update
Set MSHFlexGrid1.DataSource = rs
End Sub
运行时单击弹出了“实时错误3705：对象打开时，不允许操作”请帮我看一下,在此谢过
分享到：
