VB Dot Net Binding 记录到基于第一个字母的列表视图

Question

我想通过文本框中的按键选择基于第一个字母的产品列表。

这就是我将记录从数据库加载到列表视图的方式。

试试 cmd.CommandText = ("从 STOCK_DETAILS 中选择 ProductCode") cmd.Connection = net_55 Dim Da 作为新的 OleDbDataAdapter(cmd) 将 Ds 调暗为新数据集

        Da.Fill(Ds, "STOCK_DETAILS")
        Dim Bs As New BindingSource
        Bs.DataSource = Ds
        Bs.DataMember = "STOCK_DETAILS"


        With ProductListView
            For i As Integer = 0 To Bs.Count - 1
                Dim lst As New ListViewItem
                With lst
                    .Text = Bs.Current("ProductCode").ToString
                    '.SubItems.Add(Bs.Current("CompanyName").ToString)
                End With
                .Items.Add(lst)
                Bs.MoveNext()
            Next
        End With

上面的代码将把该列中的所有记录绑定到列表视图。 但这不是我想要实现的。

例如，SQL 中的 select 语句可以帮助我在后端实现目标。同样的代码在 VB 端不起作用。

从 STOCK_DETAILS 中选择 ProductCode 哪里 ProductCode Like 'H%'

任何帮助将不胜感激。

Answer 1

如果在 SQL 级别执行过滤器是可以接受的，您可以尝试将 TextBox 的第一个字母传递到 SQL 字符串中。像这样的：

Dim commandText As String = String.Format("SELECT ProductCode FROM STOCK_DETAILS WHERE ProductCode LIKE '{0}%'", textBoxValue)
cmd.CommandText = (commandText)

cmd.Connection = net_55

Dim Da As New OleDbDataAdapter(cmd)

Dim Ds As New DataSet

Da.Fill(Ds, "STOCK_DETAILS")
Dim Bs As New BindingSource
Bs.DataSource = Ds
Bs.DataMember = "STOCK_DETAILS"

上面的代码可以从 TextBox 中的文本更改事件中调用。

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    If TextBox1.Text.Length > 0 Then
        Call GetData(TextBox1.Text.Substring(0, 1))
    End If
End Sub