VB check复选框查询数据库

来源：百度知道 编辑：UC知道 时间：2024/06/24 09:12:58
adodc连接数据库
Datagrid显示数据如下：
名称 数量
文具盒 13
铅笔 20
钢笔 99
……

查询的时候有若干个 check 选择。 选择以后查询显示符合名称的所有数据显示
check里面 有文具盒 铅笔 等 选择几个 点击按钮就显示几个显示的数据出来，比如check1(0) 和 check(12) 选中了，那就显示文具盒 和书包的数据到datagrid上
意思就是 打个比方： check1(0) 文本显示是 文具盒 check1(10)文本显示的 是铅笔 ……………… 一起有16个.现在随便勾选几个check1 然后点击按钮，datagrid上就显示数据库名称和check1上显示的文本相同的数据。

2楼的专家，好像方法还是不行

sql="select * from tablename where 1=0"
strcondion =""
for i=0 to check1.Count-1
if check1(i).value=1 then
sql= sql & " or 名称='" & check1(i).Caption &"'"
endif
next

不 是太明白你的描述 支持你

这个很简单
加个listbox，绑定你的数据库及check字段，style属性选1--checkbox，在List1_ItemCheck事件中加上查询语句的代码

sql="select * from youtable where "

for i=0 to list1.ListCount-1
sql=sql & iif(list1.Selected,"check=" & list1.list(i) & " and ","")
next
sql = IIf(Right(sql, 4) = "and ", Left(sql, Len(sql) - 3), sql)
Adodc1.Recordset.Open sql
datagrid1.Refresh

试一试这个看看：
for i=0 to check1.Count-1
sql=""
if check1(i).value=1 then
sql= sql & " or 名称='" & check1(i).Caption & "'"
endif
next
Adodc1.RecordSource ="select * from tablename where 名称='' " &