获取数据库内的查询名称(VB.Net)

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 name FROM sys.queries"

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

            Using command As New SqlCommand(query, connection)
                Using reader As SqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        Dim queryName As String = reader.GetString(0)
                        ' Do something with the query name
                    End While
                End Using
            End Using
        End Using
    End Sub
End Class