注册 登录
编程论坛 VB6论坛

求助老师,vb6.0查询后输出结果到一个字符串中

shi7361 发布于 2020-03-05 20:00, 1991 次点击
sql数据库表如图:
只有本站会员才能查看附件,请 登录

现在,我在vb程序里想查询scll表中,查询符合两个条件(scll_scph和scll_wlbh满足条件)结果(输出scll_scjhd)然后将scjhd的多个值交给一个字符串,便于在textbox中引用,多个结果用,号隔开,并去掉重复值;
比如查询WL004/20200202,应该输出“JH20051227002,JH20051227003”
谁帮我解答一下,不胜感激!
rs22.Open "select * from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "'", cnn, adOpenKeyset
                        If rs22.RecordCount > 0 Then
                        For I = 0 To rs22.RecordCount - 1
                        LLL = rs22.Fields("scll_scjhd")
                        rs22.MoveNext
                        Next I
                        End If
                        rs22.Close
输出结果只有一个,另一个如何同时显示?LLL=JH20051227003,如何让LLL=JH20051227002,JH20051227003谢谢
3 回复
#2
wmf20142020-03-05 20:18
                       LLL=""
                        For I = 0 To rs22.RecordCount - 1
                        LLL = LLL & rs22.Fields("scll_scjhd") & ","
                        rs22.MoveNext
                        Next I
                        LLL=left(LLL,len(LLL)-1)

你这个查询语句无法去掉重复值.这样写应该行:
rs22.Open "select scll_scjhd from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "' group by scll_scjhd", cnn, adOpenKeyset
#3
shi73612020-03-05 21:05
以下是引用wmf2014在2020-3-5 20:18:17的发言:

                       LLL=""
                        For I = 0 To rs22.RecordCount - 1
                        LLL = LLL & rs22.Fields("scll_scjhd") & ","
                        rs22.MoveNext
                        Next I
                        LLL=left(LLL,len(LLL)-1)

你这个查询语句无法去掉重复值.这样写应该行:
rs22.Open "select scll_scjhd from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "' group by scll_scjhd", cnn, adOpenKeyset

感谢,非常感谢
#4
shi73612020-03-05 21:25
[quote]以下是引用wmf2014在2020-3-5 20:18:17的发言:

                       LLL=""
                        For I = 0 To rs22.RecordCount - 1
                        LLL = LLL & rs22.Fields("scll_scjhd") & ","
                        rs22.MoveNext
                        Next I
                        LLL=left(LLL,len(LLL)-1)

你这个查询语句无法去掉重复值.这样写应该行:
rs22.Open "select scll_scjhd from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "' group by scll_scjhd", cnn, adOpenKeyset
[/quot
我还想问问老师:如果我想调用这两个记录号码,再去数据库继续查询,如何才能调取lll的两个值呢?谢谢
1