'*打开数据库
Public Function DaKaiSJK(ByVal LianJieFS As String, ByVal ShuJuKMC As String, ByVal YongHu As String, Optional ByVal ShuJuKGS As String = "SQL Server")
cShuJuKLJFS = LianJieFS
cShuJuKMC = ShuJuKMC
cYongHu = YongHu
Dim DataCnn As Object
Try
Select Case cShuJuKLJFS
Case "ADO"
'DataCnn = New ADODB.Connection
'Select Case ShuJuKGS
' Case "Access"
' Select Case cDaKaiFS
' Case 12
' DataCnn.Mode = ADODB.ConnectModeEnum.adModeShareExclusive
' End Select
'End Select
'DataCnn.Open(ShuJuKMC)
'cShuJuK = DataCnn
Case "OLEDB"
DataCnn = New OleDbConnection(ShuJuKMC)
Dim ShiPeiQ As OleDbDataAdapter = New OleDbDataAdapter
cExCmd = New OleDbCommand
cExCmd.CommandType = CommandType.Text
DataCnn.Open()
cShuJuK = DataCnn
cExCmd.Connection = cShuJuK
cShuJuSPQ = ShiPeiQ
Case "SQL"
DataCnn = New SqlConnection(ShuJuKMC)
Dim ShiPeiQ As SqlDataAdapter = New SqlDataAdapter
cExCmd = New SqlCommand
cExCmd.CommandType = CommandType.Text
DataCnn.Open()
cShuJuK = DataCnn
cExCmd.Connection = cShuJuK
cShuJuSPQ = ShiPeiQ
Case Else
cFangWenCGBZ = False
End Select
cFangWenCGBZ = True
Catch ex As OleDbException
'MsgBox(ex.ToString, MsgBoxStyle.Information, "打开数据库错误")
Throw New DBAccessException(ERR_DBACCESS_401 & ex.Message)
cFangWenCGBZ = False
Catch ex As SqlException
'MsgBox(ex.ToString, MsgBoxStyle.Information, "打开数据库错误")
Throw New DBAccessException(ERR_DBACCESS_401 & ex.Message)
cFangWenCGBZ = False
Catch ex As Exception
'MsgBox(ex.ToString, MsgBoxStyle.Information, "打开数据库错误")
Throw New DBAccessException(ERR_DBACCESS_403 & ex.Message)
cFangWenCGBZ = False
End Try