Vb.net 如何通过文本框搜索数据库中的记录，并在listview中显示

这是我的搜索代码，当我运行它并尝试在文本框中搜索时。listview变为空

        Dim SqlQuery As String = "SELECT * FROM sample WHERE FirstName like ' % " & TextBox4.Text & " % ' "
        Dim SqlCommand As New OleDbCommand
        Dim SqlAdapter As New OleDbDataAdapter
        Dim TABLE As New DataTable
        'MsgBox("trigger")

        With SqlCommand
            .CommandText = SqlQuery
            .Connection = conn

        End With

        With SqlAdapter
            .SelectCommand = SqlCommand
            .Fill(TABLE)
        End With

        ListView1.Items.Clear()
        For i = 0 To TABLE.Rows.Count - 1
            With ListView1
                .Items.Add(TABLE.Rows(i)("ID"))
                With .Items(.Items.Count).SubItems
                    .Add(TABLE.Rows(i)("FirstName"))
                    .Add(TABLE.Rows(i)("MiddleName"))
                    .Add(TABLE.Rows(i)("LastName"))
                    .Add(TABLE.Rows(i)("Gender"))
                End With
            End With
        Next
    End Sub

请帮帮我。我真的需要它来写我的论文，我是个编程新手。

试试这个

 Dim SqlQuery As String = "SELECT * FROM sample WHERE FirstName like ' % " & TextBox4.Text & " % ' "
        Dim SqlCommand As New OleDbCommand
        Dim SqlAdapter As New OleDbDataAdapter
        Dim TABLE As New DataTable
        'MsgBox("trigger")

        With SqlCommand
            .CommandText = SqlQuery
            .Connection = conn

        End With

        With SqlAdapter
            .SelectCommand = SqlCommand
            .Fill(TABLE)
        End With

        ListView1.Items.Clear()
        For i = 0 To TABLE.Rows.Count - 1
           Dim li As new ListViewItem
                li=ListView1.Items.Add(TABLE.Rows(i)("ID").ToString())
                li.SubItems.Add(TABLE.Rows(i)("FirstName").ToString())
                li.SubItems.Add(TABLE.Rows(i)("MiddleName").ToString())
                li.SubItems.Add(TABLE.Rows(i)("LastName").ToString())
                li.SubItems.Add(TABLE.Rows(i)("Gender").ToString())
        Next

---

看起来你没有将I声明为整数

Dim SqlQuery As String = "SELECT * FROM sample WHERE FirstName like ' % " & TextBox4.Text & " % ' "
        Dim SqlCommand As New OleDbCommand
        Dim SqlAdapter As New OleDbDataAdapter
        Dim TABLE As New DataTable
   ---->Dim I as Integer
        'MsgBox("trigger")

    With SqlCommand
        .CommandText = SqlQuery
        .Connection = conn

    End With

    With SqlAdapter
        .SelectCommand = SqlCommand
        .Fill(TABLE)
    End With

    ListView1.Items.Clear()
    For i = 0 To TABLE.Rows.Count - 1
       Dim li As new ListViewItem
            li=ListView1.Items.Add(TABLE.Rows(i)("ID").ToString())
            li.SubItems.Add(TABLE.Rows(i)("FirstName").ToString())
            li.SubItems.Add(TABLE.Rows(i)("MiddleName").ToString())
            li.SubItems.Add(TABLE.Rows(i)("LastName").ToString())
            li.SubItems.Add(TABLE.Rows(i)("Gender").ToString())
    Next

---

这是一个非常糟糕的问题。你没有给我们任何工作的信息。这是你的家庭作业：1。找出代码中哪里开始出错（如果不知道如何使用断点，请使用断点-谷歌）。2.一旦你有了这些，想想你需要什么样的信息来解决这个问题。3.告诉我们这些信息。4.删除您已经提供的无用信息（前2个代码块）。5.阅读本网站的常见问题，以便更好地了解问题和答案的期望。正如Dan-o所说，“修剪脂肪”。这里并非一切都是必要的；如果您这样做，响应会更大。非常抱歉，先生：（在这段代码中，我有错误…（抱歉英语不好。）ListView1.Items.Clear（）对于i=0到TABLE.Rows.Count-1和ListView1.Items.Add（TABLE.Rows（i）（“ID”））和.Items（.Items.Count）。SubItems.Add表行（i）（“姓氏”）.Add（表行（i）（“中间名”）.Add（表行（i）（“姓氏”））.Add（表行（i）（“性别”））以下一个结尾它仍然不起作用：（当我搜索时，listview仍然变为空。先生，我应该把它放在哪里？什么是断点？我是从昨天开始使用vb的。）（（我是vb的新手。）（很抱歉英语不好）