vb通过读取ini文件连接sql数据库

Imports System.IO
Imports System.Configuration

Module Module1
    Sub Main()
        Dim connectionString As String = GetConnectionStringFromIni("config.ini", "Database", "ConnectionString")
        If connectionString IsNot Nothing Then
            Console.WriteLine("Database connection string: " & connectionString)
            ' 在这里进行数据库连接操作
        Else
            Console.WriteLine("Failed to read database connection string from INI file.")
        End If
    End Sub

    Function GetConnectionStringFromIni(ByVal iniFilePath As String, ByVal sectionName As String, ByVal keyName As String) As String
        Dim iniFile As New IniFile()
        iniFile.Load(iniFilePath)
        Return iniFile.GetValue(sectionName, keyName)
    End Function
End Module

Public Class IniFile
    Private sections As New Dictionary(Of String, Dictionary(Of String, String))()

    Public Sub Load(ByVal filePath As String)
        Dim lines As String() = File.ReadAllLines(filePath)
        Dim currentSection As String = Nothing

        For Each line As String In lines
            line = line.Trim()
            If line.StartsWith("[") AndAlso line.EndsWith("]") Then
                currentSection = line.Substring(1, line.Length - 2).Trim()
                If Not sections.ContainsKey(currentSection) Then
                    sections[currentSection] = New Dictionary(Of String, String)()
                End If
            ElseIf currentSection IsNot Nothing AndAlso line.Contains("=") Then
                Dim parts As String() = line.Split("="c)
                If parts.Length = 2 Then
                    Dim key As String = parts(0).Trim()
                    Dim value As String = parts(1).Trim()
                    sections(currentSection)(key) = value
                End If
            End If
        Next
    End Sub

    Public Function GetValue(ByVal sectionName As String, ByVal keyName As String) As String
        If sections.ContainsKey(sectionName) AndAlso sections(sectionName).ContainsKey(keyName) Then
            Return sections(sectionName)(keyName)
        End If
        Return Nothing
    End Function
End Class