[原创]使用VB6.0访问ORACLE数据库

原创 2004年09月23日 15:29:00

                                                                                   作者:bluesky35(蓝天)

首先要安装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

将以上代码放入模块,直接调用即可.

使用VB6.0访问ORACLE数据库

首先要安装ORACLE客户端或服务器端,建好DB以及SERVICE,连接成功后就可以开始了,以下是VB访问ORACLE的代码: Option Explicit '以下是一些变量以及参数的定义 ...
  • pj386960300
  • pj386960300
  • 2013年10月21日 15:19
  • 848

[原创]在VB6.0中访问注册表

                                                                                   作者:bluesky35(蓝天)以...
  • bluesky35
  • bluesky35
  • 2004年09月23日 15:49
  • 2189

VB 连接Oracle数据库

Option Explicit Public cn_base As New ADODB.Connection Function conn_base() ' 公共的函数 用来...
  • kalision
  • kalision
  • 2012年09月20日 00:36
  • 6479

VB在Oracle数据库中存取文件

oracle中可用LOB 字段来存储长文本或者二进制数据,LOB分为BLOB合CLOB,其中BLOB可用来存储二进制数据,如exe、dll、视频、音频等;CLOB只能用来存储字符型文本数据。举个VB存...
  • bodybo
  • bodybo
  • 2007年12月28日 14:39
  • 1989

剖析VB6.0如何连接数据库?

前言:VB库连接方式 一、  无源数据库连接 其实,“无源数据库”连接也并不是说不需要数据源,如果没有数据源则连接是纸上谈兵,只是不需要配置ODBC数据源,利用ADO就可通过代码进行连接。 ...
  • chenfanglincfl
  • chenfanglincfl
  • 2012年08月15日 21:12
  • 4349

VB6.0使用winHttp.dll访问webApi

问题背景:需要用VB编程访问webApi,web方使用的是https的协议。    开始我用xmlhttp方式访问,失败。后网上搜索发现xmlhttp不支持https的方式。于是采用winH...
  • youmyfly
  • youmyfly
  • 2016年11月11日 22:58
  • 428

vb6.0 访问webservices

Option Explicit Private Const Method = "helloworld" Private Const SoapAction = _ "http://127.0.0.1/h...
  • aasmfox
  • aasmfox
  • 2016年08月02日 09:46
  • 510

如何利用JDBC连接并操作Oracle数据库

之前学习.NET的时候,曾经利用ODBC进行连接数据库,而在Java中通常采用JDBC连接数据库,这里以oracle数据库为例简单的总结一下利用JDBC如何连接并操作数据库。 1、连接 publi...
  • wangyy130
  • wangyy130
  • 2015年08月24日 11:23
  • 10584

VB链接远程Oracle代码

Dim Conn As ADODB.Connection        Dim  rs  As ADODB.Recordset          Dim strds As String     ...
  • xianjian2009
  • xianjian2009
  • 2016年06月13日 09:00
  • 183

VB6.0+MySQL4.1数据库编程

VB6.0+MySQL4.1数据库编程 By: 吴垠 Date: ...
  • wooin
  • wooin
  • 2006年11月24日 11:42
  • 12624
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[原创]使用VB6.0访问ORACLE数据库
举报原因:
原因补充:

(最多只允许输入30个字)