注册 登录
编程论坛 VB6论坛

求助:查询问题

kissis 发布于 2022-09-20 19:05, 1557 次点击
窗体有一组文本框数组控件一组复选框数组控件有一个文本框且定为text1(户主姓名 )现要查询满足以text1为条件筛选出复选框选定的字段数据
代码如何编写,请各位大佬多多帮助

[此贴子已经被作者于2022-9-20 19:08编辑过]

9 回复
#2
yuma2022-09-20 20:06
这个有点难,建议到网上下载源码。
#3
suzhanpeng2022-09-21 10:44
遍历数组
#4
apull2022-09-21 11:40
遍历数组,拼接查询字符串。
#5
kissis2022-09-23 10:30
大佬们能不能写个示例示范一下。另
Adodc1.RecordSource = "select * from MBDA where 户主姓名 like '%" + Trim(Text2.Text) + "'+ '%'"
现有一strCond,strCond包含了复选框所勾选的值并用,号连接,现如何把*号置换成strCond。我写的都提示至少一个参数未指定(strCond字段名称与表中名称相符)
#6
cwa99582022-09-24 09:48
你的这问题太笼统,你用什么数据,具体有些什么字段,要说明清楚。放上你的相关代码。

Adodc1.RecordSource = "select * from MBDA where 户主姓名 like +'%'+'" + Trim(Text2.Text) + "'+'%'"
如果strCond是字段名,可以直接替换 * ,但是查询结果会只有这一列
#7
Fulailailai2022-09-24 12:38
遍历数组
#8
kissis2022-09-24 13:17
回复 7楼 Fulailailai
已解决
休息了一天后重新清理了一遍思路然后查看了一下代码才发现忘了加分隔府","代码如下:
Dim strCond
For i = 0 To List1.ListCount - 1
strCond = Trim(List1.List(i))
condition1 = condition1 & strCond & ","'在这忘了加分隔府","
Next
ilen = Len(condition1)
    Adodc1.ConnectionString = adoCon
    Adodc1.RecordSource = "select " + Left(condition1, ilen - 1) + " from MBDA where 户主姓名 like '%" + Trim(Text1.Text) + "%'"
   Adodc1.Refres
#9
yuma2022-09-24 17:47
回复 8楼 kissis
你这个是操作的mysql数据库是吗?
#10
kissis2022-09-24 20:15
回复 9楼 yuma
ACCESS
1