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

调用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)

调用VB.NET与*.udl文件数据库连接的步骤ImportsSystem
调用VB.NET与*.udl文件数据库连接的步骤
ImportsSystem.IO
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤调用VB.NET与*.udl文件数据库连接的步骤
PublicClassConnData
调用VB.NET与*.udl文件数据库连接的步骤
Privatem_strFileNameAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strConnectionTextAsString
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
Privatem_strPesistSecurityAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strIntegradedSecurityAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strReconstructedAsString
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
Privatem_strDefaultFilenameAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strDatasourceAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strPasswordAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strUserIDAsString
调用VB.NET与*.udl文件数据库连接的步骤Privatem_strCatalogAsString'Database
调用VB.NET与*.udl文件数据库连接的步骤PublicEventCloseApplication()
调用VB.NET与*.udl文件数据库连接的步骤调用VB.NET与*.udl文件数据库连接的步骤
PublicSubNew()
调用VB.NET与*.udl文件数据库连接的步骤m_strDefaultFilename
="DataLink.udl"
调用VB.NET与*.udl文件数据库连接的步骤ReadFromFile()
调用VB.NET与*.udl文件数据库连接的步骤SplitConnectionString()
调用VB.NET与*.udl文件数据库连接的步骤
EndSub

调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤调用VB.NET与*.udl文件数据库连接的步骤
PublicFunctionGetSQLConnectionString()AsString
调用VB.NET与*.udl文件数据库连接的步骤ReconstructSQLConnectionString()
调用VB.NET与*.udl文件数据库连接的步骤
Returnm_strReconstructed
调用VB.NET与*.udl文件数据库连接的步骤
EndFunction

调用VB.NET与*.udl文件数据库连接的步骤调用VB.NET与*.udl文件数据库连接的步骤PrivateSubReconstructSQLConnectionString()
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed
=m_strPesistSecurity&";"
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
IfNotIsNothing(m_strIntegradedSecurity)Then
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed&=m_strIntegradedSecurity&";"
调用VB.NET与*.udl文件数据库连接的步骤Else
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed&=m_strPassword&";"
调用VB.NET与*.udl文件数据库连接的步骤IfNotm_strUserID.Length=0Then
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed&=m_strUserID&";"
调用VB.NET与*.udl文件数据库连接的步骤EndIf
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
EndIf
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed
&=m_strCatalog&";"
调用VB.NET与*.udl文件数据库连接的步骤m_strReconstructed&=m_strDatasource&";"
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤m_strCatalog
=m_strCatalog.Substring(16)
调用VB.NET与*.udl文件数据库连接的步骤m_strDatasource
=m_strDatasource.Substring(12)
调用VB.NET与*.udl文件数据库连接的步骤
IfNotIsNothing(m_strPassword)Then
调用VB.NET与*.udl文件数据库连接的步骤m_strPassword=m_strPassword.Substring(9)
调用VB.NET与*.udl文件数据库连接的步骤m_strUserID
=m_strUserID.Substring(8)
调用VB.NET与*.udl文件数据库连接的步骤
EndIf
调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤
EndSub

调用VB.NET与*.udl文件数据库连接的步骤
调用VB.NET与*.udl文件数据库连接的步骤调用VB.NET与*.udl文件数据库连接的步骤
格式化从*.udl文件中,读取的字符串