VB.NET 与*.udl文件数据库连接调用

 以前用VB6时连接数据库时，连接字符串调用*.udl文件，觉得很方便.但在VB.NET里调用*.udl文件时，有很大不同，VB6简单的写上：file name=c:/*.dul就行了，但VB.net是通过读取文件的方式来处理的，下面是全部代码。与大家共享：在您用时只要调用这个类：

Dim MyconnData As New ConnData

public Myconn As New SqlConnection(MyconnData.GetSQLConnectionString)

Imports  System
Imports  System.IO


Public   Class ConnData Class ConnData
    Private m_strFileName As String
    Private m_strConnectionText As String

    Private m_strPesistSecurity As String
    Private m_strIntegradedSecurity As String
    Private m_strReconstructed As String

    Private m_strDefaultFilename As String
    Private m_strDatasource As String
    Private m_strPassword As String
    Private m_strUserID As String
    Private m_strCatalog As String 'Database
    Public Event CloseApplication()
    Public Sub New()Sub New()
        m_strDefaultFilename = "DataLink.udl"
        ReadFromFile()
        SplitConnectionString()
    End Sub

   




    Public Function GetSQLConnectionString()Function GetSQLConnectionString() As String
        ReconstructSQLConnectionString()
        Return m_strReconstructed
    End Function
    Private Sub ReconstructSQLConnectionString()Sub ReconstructSQLConnectionString()

        m_strReconstructed = m_strPesistSecurity & ";"

        If Not IsNothing(m_strIntegradedSecurity) Then
            m_strReconstructed &= m_strIntegradedSecurity & ";"
        Else
            m_strReconstructed &= m_strPassword & ";"
            If Not m_strUserID.Length = 0 Then
                m_strReconstructed &= m_strUserID & ";"
            End If

        End If

        m_strReconstructed &= m_strCatalog & ";"
        m_strReconstructed &= m_strDatasource & ";"

        m_strCatalog = m_strCatalog.Substring(16)
        m_strDatasource