在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=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
        Dim query As String = "SELECT COUNT(*) FROM YourTable WHERE YourCondition"

        Using connection As New SqlConnection(connectionString)
            Using command As New SqlCommand(query, connection)
                connection.Open()
                Dim recordCount As Integer = Convert.ToInt32(command.ExecuteScalar())
                MessageBox.Show("记录数：" & recordCount.ToString())
            End Using
        End Using
    End Sub
End Class