首先要安装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
将以上代码放入模块,直接调用即可.
|