VB如何连接ORACLE数据库

dreammaker 2003-01-22 02:38:35
同上!!
...全文
34 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
cg1976 2003-01-22
  • 打赏
  • 举报
回复
Public Function OpenOracle(strServerName As String, strUserName As String, strUserPwd As String) As Boolean

On Error GoTo errH

OpenOracle = False
With gcnOracle
If .State = adStateOpen Then .Close
.Provider = "MSDataShape"
.Open "Driver={Microsoft ODBC for Oracle};Server=" & strServerName, strUserName, strUserPwd
If Err <> 0 Then
MsgBox "连接失败!(请确保用户名与密码输入无误)", vbInformation, gstrSysName
Exit Function
End If
End With
OpenOracle = True

Exit Function
errH:
If ErrCenter = 1 Then Resume

End Function

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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