求助一个vb的问题，望解答

shi7361

sql数据库表如图：

现在，我在vb程序里想查询scll表中，查询符合两个条件（scll_scph和scll_wlbh满足条件）结果（输出scll_scjhd）然后将scjhd的多个值交给一个字符串，便于在textbox中引用，多个结果用，号隔开，并去掉重复值；
比如查询WL004/20200202，应该输出“JH20051227002，JH20051227003”
谁帮我解答一下，不胜感激！

shi7361

我的SQL语句为rs2.Open "Select scll_scjhd From tb_SCGL_scll Where scll_wlmc = '" + Cbx_Field.Text + "'and scll_scph= '" + Txt_Key.Text + "'", cnn, adOpenKeyset
接下来如何赋值呢

shi7361

  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谢谢

shi7361

老师呢？求助求助

shi7361

为啥没人回答？这个问题难么？

northwolves

shi7361 发表于 2020-3-5 13:35
rs22.Open "select * from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" ...

1. rs22.Open "select * from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "'", cnn, adOpenKeyset
   
2. 
   
3. result= Replace(rs22.getstring(), vbCr, ",")
   
4. msgbox result

复制代码

FOB_FN_L

厉害的版主都高飞了，楼上的这前版主有特色哟

shi7361

northwolves 发表于 2020-3-5 22:37

谢谢，感谢