如何用VB实现表中两个字段的查询

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;Integrated Security=True"
        Dim query As String = "SELECT * FROM YourTableName WHERE Field1 = @Value1 AND Field2 = @Value2"

        Using connection As New SqlConnection(connectionString)
            Using command As New SqlCommand(query, connection)
                command.Parameters.AddWithValue("@Value1", TextBox1.Text)
                command.Parameters.AddWithValue("@Value2", TextBox2.Text)

                connection.Open()

                Using reader As SqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        ' 处理查询结果
                        Dim field1Value As String = reader("Field1").ToString()
                        Dim field2Value As String = reader("Field2").ToString()

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