sql - 使用条件(第一个字符)从仅 SQL 项目填充列表框

Question

我已成功将所有项目放入 ListBox 中，还定义了第一个字符 kto ，如何仅插入 List 中的那些值栏进入Listbox以该字符 kto 开头。

顺便提一下kto是 0 到 9 之间的值，始终是数字。

        Dim SqlSb As New SqlConnectionStringBuilder()
    SqlSb.DataSource = ".\sqlexpress"
    SqlSb.InitialCatalog = "Konta"
    SqlSb.IntegratedSecurity = True

    Using SqlConn As SqlConnection = New SqlConnection(SqlSb.ConnectionString)
        SqlConn.Open()
        Dim cmd As SqlCommand = SqlConn.CreateCommand()
        cmd.CommandText = "SELECT List FROM Konta"
        Dim kto = Left(Label1.Text, 1)
        'Label3.Text = kto
        Using reader As SqlDataReader = cmd.ExecuteReader
            While (reader.Read())
                Me.ListBox1.Items.Add(reader("LIST"))
            End While

        End Using
        SqlConn.Close()

    End Using

Answer 1

试试这个

Dim SqlSb As New SqlConnectionStringBuilder()
SqlSb.DataSource = ".\sqlexpress"
SqlSb.InitialCatalog = "Konta"
SqlSb.IntegratedSecurity = True

Using SqlConn As SqlConnection = New SqlConnection(SqlSb.ConnectionString)
    SqlConn.Open()
    Dim cmd As SqlCommand = SqlConn.CreateCommand()
    Dim kto = Left(Label1.Text, 1)
    cmd.CommandText = "SELECT List FROM Konta WHERE List LIKE '" & kto.toString & "%'"
    ListBox1.Items.Clear
    Using reader As SqlDataReader = cmd.ExecuteReader
        While (reader.Read())
            Me.ListBox1.Items.Add(reader("LIST"))
        End While

    End Using
    SqlConn.Close()

End Using