谁能够给我一段打开数据库的代码

zyh08 2003-10-19 08:22:16
谁能够给我一段打开数据库的代码
...全文
34 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyg9108 2003-10-19
  • 打赏
  • 举报
回复
'*打开数据库
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

End Function

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧