DataSet通过模糊查询，绑定ListBox

最新推荐文章于 2022-01-15 08:35:43 发布

zwjxxm

最新推荐文章于 2022-01-15 08:35:43 发布

阅读量974

点赞数

文章标签： dataset user vbscript string sql server

本文链接：https://blog.csdn.net/zwjxxm/article/details/2261084

版权

< script language = " vbscript " runat = " server " >
            Protected Sub GetListUser(ByVal sender As Object , ByVal e As System.EventArgs) Handles btSearch.Click

                 Dim _conn As String = " Server=主机名;Database=BPMFlow;Integrated Security=False;User ID=sa;Password=pwd "

                 Dim sda As SqlDataAdapter

                 Dim user_sql As String = " SELECT pk_users,username,logonid,'['+ufd04+']'+username+'('+logonid+')' as abc,ufd04  FROM users "
                 ' --------------------关键字查询
                 If txtKeyWord.Text <> "" Then
                     Dim key As String = Trim (txtKeyWord.Text)
                   ' ------模糊查询-------------------------------------------
                    user_sql = user_sql + " where (ufd04 like '% " & key & " %')  or (username like '% " + key + " %') or logonid like '% " + key + " %' order by ufd04 desc "
                 End If
                 Dim user_ds As DataSet = New DataSet()
                sda = New SqlDataAdapter(user_sql, _conn)
                  ' --------------填充，绑定ListBox
                sda.Fill(user_ds, " users " )
                lisUsers.DataSource = user_ds.Tables( " users " )
                lisUsers.DataTextField = " abc "           ' --------显示内容字段
                lisUsers.DataValueField = " pk_users "      ' --------------------主键值
                lisUsers.DataBind()
             End Sub
         </ script >