Visual Basic 2015:从SQL连接填充ListView

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 连接数据库
        Dim connectionString As String = "Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"
        Dim connection As New SqlConnection(connectionString)
        connection.Open()

        ' 执行SQL查询
        Dim query As String = "SELECT * FROM 表名"
        Dim command As New SqlCommand(query, connection)
        Dim reader As SqlDataReader = command.ExecuteReader()

        ' 填充ListView
        While reader.Read()
            Dim item As New ListViewItem(reader("列名1").ToString())
            item.SubItems.Add(reader("列名2").ToString())
            item.SubItems.Add(reader("列名3").ToString())
            ListView1.Items.Add(item)
        End While

        ' 关闭连接
        reader.Close()
        connection.Close()
    End Sub
End Class