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

使用VB实现表中两个字段的查询可以通过使用SQL语句来实现。以下是一个示例代码：

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

上述代码中，需要将YourServerName替换为数据库服务器的名称，YourDatabaseName替换为要查询的数据库名称，YourTableName替换为要查询的表名。Field1和Field2分别表示要查询的两个字段。

在代码中，通过使用SqlConnection和SqlCommand类来建立与数据库的连接，并执行查询操作。使用Parameters.AddWithValue方法来添加查询参数，以防止SQL注入攻击。

请注意，上述代码仅为示例，实际使用时需要根据具体情况进行修改。