在VB.Net中迭代App.Config文件中的连接字符串

Imports System.Configuration

Module Module1
    Sub Main()
        ' 打开当前应用程序的配置文件
        Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

        ' 获取连接字符串集合
        Dim connectionStrings As ConnectionStringSettingsCollection = config.ConnectionStrings.ConnectionStrings

        ' 迭代连接字符串集合
        Dim enumerator As IEnumerator = connectionStrings.GetEnumerator()
        While enumerator.MoveNext()
            Dim connectionString As ConnectionStringSettings = DirectCast(enumerator.Current, ConnectionStringSettings)
            Dim name As String = connectionString.Name
            Dim value As String = connectionString.ConnectionString

            ' 在此处可以对连接字符串进行处理或输出
            Console.WriteLine("连接字符串名称: " & name)
            Console.WriteLine("连接字符串值: " & value)
        End While

        Console.ReadLine()
    End Sub
End Module