Question

我刚接触vb.net ..无论如何，当我打开表单时，我的数据库中的项目会自动显示吗？

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            list()
        End Sub
        Sub list()
            con.Open()
            cmd = New SqlCommand("SELECT * FROM Tbl", con)
            rdr = cmd.ExecuteReader
            ListView1.Items.Clear()
            If rdr.HasRows Then
                Do While rdr.Read()
                    Dim arr As String() = New String(3) {}
                    Dim itm As ListViewItem
                    arr(0) = rdr("ID")
                    arr(1) = rdr("Name")
                    arr(2) = rdr("Brand")


                    itm = New ListViewItem(arr)
                    ListView1.Items.Add(itm)
                Loop
            End If
            con.Close()
        End Sub

Answer 1

您可以使用以下代码

Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con As New SqlConnection(constr)
    Using cmd As New SqlCommand("SELECT * FROM Tbl")
        cmd.Connection = con
        Using sda As New SqlDataAdapter(cmd)
            Dim dt As New DataTable()
            sda.Fill(dt)
        End Using
    End Using
End Using

Dim list As List(Of DataRow) = dt.AsEnumerable().ToList()

此代码可以将直接数据表转换为列表。

打开表单时在列表框中显示数据库值

1 个答案: