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

ImportsSystem
ImportsSystem.IO


PublicClassConnDataClassConnData
Privatem_strFileNameAsString
Privatem_strConnectionTextAsString

Privatem_strPesistSecurityAsString
Privatem_strIntegradedSecurityAsString
Privatem_strReconstructedAsString

Privatem_strDefaultFilenameAsString
Privatem_strDatasourceAsString
Privatem_strPasswordAsString
Privatem_strUserIDAsString
Privatem_strCatalogAsString'Database
PublicEventCloseApplication()
PublicSubNew()SubNew()
m_strDefaultFilename="DataLink.udl"
ReadFromFile()
SplitConnectionString()
EndSub






PublicFunctionGetSQLConnectionString()FunctionGetSQLConnectionString()AsString
ReconstructSQLConnectionString()
Returnm_strReconstructed
EndFunction
PrivateSubReconstructSQLConnectionString()SubReconstructSQLConnectionString()

m_strReconstructed=m_strPesistSecurity&";"

IfNotIsNothing(m_strIntegradedSecurity)Then
m_strReconstructed&=m_strIntegradedSecurity&";"
Else
m_strReconstructed&=m_strPassword&";"
IfNotm_strUserID.Length=0Then
m_strReconstructed&=m_strUserID&";"
EndIf

EndIf

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

m_strCatalog=m_strCatalog.Substring(16)
m_strDatasource=m_strDatasource.Substring(12)
IfNotIsNothing(m_strPassword)Then
m_strPassword=m_strPassword.Substring(9)
m_strUserID=m_strUserID.Substring(8)
EndIf

EndSub

格式化从*.udl文件中，读取的字符串#Region"格式化从*.udl文件中，读取的字符串"


PrivateSubSplitConnectionString()SubSplitConnectionString()
DimstrArrayAsString()=Nothing
DimstrStringAsString
DimstrProviderAsString

DimstrDRIVERAsString
DimstrSERVERAsString
DimstrUIDAsString
DimstrDATABASEAsString


strArray=m_strConnectionText.Split(";")

IfstrArray(0).IndexOf("[oledb]")=-1Then
DimnAnswerAsDialogResult
nAnswer=MessageBox.Show("Thisfilecannotberead"&vbCr&_
"Openanotherfile?","ReadudlFile",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Error)

IfnAnswer=DialogResult.YesThen
ReadFromFile()
SplitConnectionString()
ExitSub
Else
DimstrDescriptionAsString="ConnectionFailed."&vbCr&"ClosingApplication"
Err.Raise(vbObjectError+999,,strDescription)
RaiseEventCloseApplication()
EndIf
EndIf


ForEachstrStringInstrArray

IfstrString.IndexOf("Provider")>-1Then
strProvider=strString.Substring(strString.IndexOf("Provider"))
EndIf

IfstrString.IndexOf("Password")>-1Then
m_strPassword=strString
EndIf

IfstrString.IndexOf("Data")>-1Then
m_strDatasource=strString
EndIf

IfstrString.IndexOf("User")>-1Then
m_strUserID=strString
EndIf

IfstrString.IndexOf("Initial")>-1Then
m_strCatalog=strString
EndIf

IfstrString.IndexOf("Integrated")>-1Then
m_strIntegradedSecurity=strString
EndIf

IfstrString.IndexOf("Persist")>-1Then
m_strPesistSecurity=strString
EndIf
IfstrString.IndexOf("DRIVER")>-1Then
strDRIVER=strString.Substring(strString.IndexOf("DRIVER"))
EndIf
IfstrString.IndexOf("SERVER")>-1Then
strSERVER=strString
EndIf
IfstrString.IndexOf("UID")>-1Then
strUID=strString
EndIf
IfstrString.IndexOf("DATABASE")>-1Then
strDATABASE=strString
strDATABASE=strDATABASE.Remove(strDATABASE.Length-3,3)
EndIf

Next

'CheckiftheconnectionstringconnectstoSQLServerorOracleServer.
IfstrProvider.IndexOf("MSDASQL")>-1Then
IfstrDRIVER.IndexOf("SQLServer")>-1Then

m_strDatasource="DataSource"&strSERVER.Substring(6)
IfstrUID.Length>0Then
m_strUserID="UserID"&strUID.Substring(3)
EndIf
m_strCatalog="InitialCatalog"&strDATABASE.Substring(8)

Else
'notsqlserverdatabase
DimnAnswerAsDialogResult
nAnswer=MessageBox.Show("ThisfiledoesnotconnecttoSQLServerDatabase"&vbCr&_
"Openanotherfile?","ReadudlFile",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Error)

IfnAnswer=DialogResult.YesThen
ReadFromFile()
SplitConnectionString()
ExitSub
Else
DimstrDescriptionAsString="ConnectionFailed."&vbCr&"ClosingApplication"
Err.Raise(vbObjectError+999,,strDescription)
EndIf