VB6使用OracleDataControl访问Oracle

系统环境 *** 作系统 Windows Server 数据库 　Oracle i R ( ) for NT 企业版 开发工具 Visual Basic 中文版连接方法 一 安装 Oracle i R ( ) for NT 企业版使用典型安装 安装目录为D:\Oracle 注 安装完Oracle后 在D:\Oracle\Ora \BIN\目录下会有oradc ocx文件存在 VB可使用此控件访问Oracle数据库二 安装 Visual Basic 中文版把Visual Basic 光盘放入光驱 使用典型安装 安装目录为D:\Program Files\Microsoft Visual Studio\VB 三 生成Oracle实验记录连入SQL*Plus 以system/manager用户登录SQL>conn system/manager创建新的用户 如user /pass 赋予connect resource权限 SQL>grant connect resource to user identified by pass SQL>conn user /pass SQL>create table test(a number b char( ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>mitSQL>select * from testA B : : : : : : : : : : D:\Oracle\Ora \neork\ADMIN\tnsnames ora中有如下内容 ORADB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = )) ) (CONNECT_DATA = (SERVICE_NAME = oradb) ) )总结 Oracle service_names 　oradbOracle用户名 　user 户名密码 　pass 测试表名 　testtnsnames 　oradb四 启动 Visual Basic 写连接Oracle的VB程序开始－＞程序－＞Microsoft Visual Basic 中文版－＞Microsoft Visual Basic 中文版文件－＞新建工程－＞VB 企业版控件 如下图 　 / / jpg >添加访问Oracle的部件（CTRL+T） 工程－＞部件－＞Oracle Data Control 如下图 　 / / jpg >选中此控件（Oracle Data Control） 单击 确定 （此控件对应的就是D:\Oracle\Ora \BIN\oradc ocx）VB开发窗口右边的工具箱面板上会出现此控件的图形标志 如下图 　 / / jpg >用鼠标双击此控件（ORADC） 再双击MSFlexGrid控件（上图中另一个画红框的） 把它们放到窗体Form 上 默认名称为ORADC 和MSFlexGrid 如下图 　 / / jpg >修改控件ORADC 和MSFlexGrid 的属性 如下图 ORADC 的Connect属性 user /pass ORADC 的DatabaseName属性 oradbORADC 的RecordSource属性 select * from testMSFlexGrid 的DataSource属性 ORADC 　 / / jpg >也可以不设置ORADC 控件的任何属性 而使用窗体的Form_Load()过程来给ORADC 控件赋值Private Sub Form_Load() ORADC Connect = user /pass ORADC DatabaseName = oradb ORADC RecordSource = select * from test ORADC RefreshEnd Sub按F 运行此程序 结果如下图 / / jpg >lishixinzhi/Article/program/Oracle/201311/16753

VBA连接oracle数据库

小 'システム共通変数

Public ORA_SE As Object 'Oracleのセッションオブジェクト

Public ORA_DB As Object 'Oracleの接続オブジェクト

'******************************************************************************

' ﾌﾟﾛｼｰｼﾞｬ名 : Ora_Connect

' 概要 : Oracle接続

' ﾊﾟﾗﾒｰﾀ : なし

' 说明 :Oracleへの接続を行う

'******************************************************************************

'Public Sub Ora_Connect()

Public Function Ora_Connect()

Dim rt As Integer

On Error GoTo err

Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")

'Set ORA_DB = ORA_SE.OpenDatabase("数据库连接词", "用户名/密码", 0&)

Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0&)

Exit Function

err:

End Function

'******************************************************************************

' ﾌﾟﾛｼｰｼﾞｬ名 : Ora_DisConnect

' 概要 : Oracle切断

' ﾊﾟﾗﾒｰﾀ : なし

' 说明 : Oracleの切断を行う

'******************************************************************************

'Public Sub Ora_DisConnect()

Public Function Ora_DisConnect()

Set ORA_SE = Nothing

Set ORA_DB = Nothing

End Function

Public Function getData()

'该当なし

If OraDynaset.EOF = True Then

Set OraDynaset = Nothing

Exit Function

Else

'2004/03/06 add rec_cntを2して2行目から书き出す

'rec_cnt = 2

'Do While Not OraDynaset.EOF

'For row_cnt = 0 To OraDynaset.Fields.Count - 1

' Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value

'Next row_cnt

'2004/11/26 クリップボードを介した方法でスピードアップ対応。

'从数据库中取出数据

OraDynaset.CopyToClipboard

Cells(2, 1).Select

ActiveSheet.Paste

rec_cnt = OraDynaset.RecordCount

'OraDynaset.DbMoveNext

'rec_cnt = rec_cnt + 1

'Loop

End If

end function

VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。

1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。

2）选Microsoft OLE DB Provider For Oracle，下一步。

3）根据数据链接属性对话框填写所需内容，测试连接。点确定，最终在Adodc属性页获得连接字符串，复制该字符串，即可作为Adodc数据访问控件直接使用，或在代码中用于Adodc控件或ADO数据访问对象。

---