VB.NET中的SQL Select查询

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"
        Dim query As String = "SELECT * FROM YourTableName"

        Using connection As New SqlConnection(connectionString)
            Dim command As New SqlCommand(query, connection)
            connection.Open()

            Dim reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                ' 处理每一行数据
                Dim column1Value As String = reader("Column1").ToString()
                Dim column2Value As Integer = Convert.ToInt32(reader("Column2"))

                ' 进行其他操作...

            End While

            reader.Close()
        End Using
    End Sub
End Class