如何在vb.net、SQL Server中实现一次多次检索

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
        Dim query As String = "SELECT * FROM YourTable WHERE Column1 = @Value1 AND Column2 = @Value2"

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Using command As New SqlCommand(query, connection)
                command.Parameters.AddWithValue("@Value1", txtValue1.Text)
                command.Parameters.AddWithValue("@Value2", txtValue2.Text)

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

                        ' 进行其他操作
                    End While
                End Using
            End Using
        End Using
    End Sub
End Class