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
    
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

你可能感兴趣的:(数据库,exception,String,database,sqlserver,VB.NET)