|
首先要安装ORACLE客户端或服务器端,建好DB以及SERVICE,连接成功后就可以开始了,以下是VB访问ORACLE的代码:
Option Explicit
''''以下是一些变量以及参数的定义
''''DB的名称
Public Const strdbname = "DBNAME"
''''用户名
Public Const strusr = "BLUESKY35"
''''密码
Public Const strpwd = "PASSWORD"
''''OraSession
Public OraSession As Object
''''OraDatabase
Public OraDB As OraDatabase
''''OraDynaset
Public OraDyn As OraDynaset
''''连接ORACLE的函数
''''连接成功:true 连接失败:false
Public Function f_connect() As Boolean
On Error GoTo ierr
f_connect = False
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDB = OraSession.OpenDatabase(strdbname, strusr & "/" & strpwd, 0&)
f_connect = True
Exit Function
ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
f_connect = False
End Function
''''通过传入SQL语句从数据库的表里取得记录
Public Function f_select(strsql As String) As OraDynaset
On Error GoTo ierr
Set OraDyn = OraDB.CreateDynaset(strsql, ORADYN_READONLY)
Set f_select = OraDyn
Exit Function
ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
Set f_select = Nothing
End Function
''''执行更新语句,返回受本次更新影响的记录数
Public Function f_execute(strsql As String) As Boolean
On Error GoTo ierr
f_execute = False
OraDB.BeginTrans
f_execute = OraDB.ExecuteSQL(strsql)
Exit Function
ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
OraDB.Rollback
End Function
''''断开连接
''''断开成功:true 断开失败:false
Public Function f_disconnect() As Boolean
On Error GoTo ierr
f_disconnect = False
If Not OraDyn Is Nothing Then
OraDyn.Close
End If
Set OraSession = Nothing
OraDB.Close
Set OraDB = Nothing
f_disconnect = True
Exit Function
ierr:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
f_disconnect = False
End Function
将以上代码放入模块,直接调用即可.
[电脑应用]用C＃动态创建Access数据库 [Web开发]asp 在线备份与恢复sqlserver数据库代码详解
[电脑应用]教你如何远程管理MSSQL数据库 [其他]关于数据库优化查询计划的方法总结
[电脑应用]Linux数据库大比拚 [JAVA开发]Java连接各种数据库的实例
[聊天工具]QQ IP数据库Build 0825 纯真版__天极Yesky [系统软件]利用crontab系统每天定时备份MySQL数据库
[系统软件]备份与恢复Windows2003的AD数据库 [常用软件]活用FlashGet数据库
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
