2. 技术人生
    3. VB.NET 与*.udl文件数据库连接调用

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

    技术2022-05-11  71

     以前用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    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()        m_strDefaultFilename = "DataLink.udl"        ReadFromFile()        SplitConnectionString()    End Sub       Public Function GetSQLConnectionString() As String        ReconstructSQLConnectionString()        Return m_strReconstructed    End Function    Private 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 = m_strDatasource.Substring(12)        If Not IsNothing(m_strPassword) Then            m_strPassword = m_strPassword.Substring(9)            m_strUserID = m_strUserID.Substring(8)        End If    End Sub格式化从*.udl文件中，读取的字符串读取*.UDL文件内容,如是*.UDL文件不存在,则创建End Class

    专利

    最新回复(0)