VB check复选框查询数据库
adodc连接数据库Datagrid显示数据如下:名称数量文具盒13铅笔20钢笔99……查询的时候有若干个check选择。选择以后查询显示符合名称的所有数据显示check...
adodc连接数据库
Datagrid显示数据如下:
名称 数量
文具盒 13
铅笔 20
钢笔 99
……
查询的时候有若干个 check 选择。 选择以后查询显示符合名称的所有数据显示
check里面 有文具盒 铅笔 等 选择几个 点击按钮就显示几个显示的数据出来,比如check1(0) 和 check(12) 选中了,那就显示文具盒 和书包的数据到datagrid上
意思就是 打个比方: check1(0) 文本显示是 文具盒 check1(10)文本显示的 是铅笔 ……………… 一起有16个.现在随便勾选几个check1 然后点击按钮,datagrid上就显示数据库名称和check1上显示的文本相同的数据。
2楼的专家,好像方法还是不行 展开
Datagrid显示数据如下:
名称 数量
文具盒 13
铅笔 20
钢笔 99
……
查询的时候有若干个 check 选择。 选择以后查询显示符合名称的所有数据显示
check里面 有文具盒 铅笔 等 选择几个 点击按钮就显示几个显示的数据出来,比如check1(0) 和 check(12) 选中了,那就显示文具盒 和书包的数据到datagrid上
意思就是 打个比方: check1(0) 文本显示是 文具盒 check1(10)文本显示的 是铅笔 ……………… 一起有16个.现在随便勾选几个check1 然后点击按钮,datagrid上就显示数据库名称和check1上显示的文本相同的数据。
2楼的专家,好像方法还是不行 展开
4个回答
展开全部
这个很简单
加个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
加个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 名称='' " & sql
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 名称='' " & sql
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不 是太明白你的描述 支持你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询