VB中用Oracle数据控件访问Oracle

转载 2012年03月24日 14:33:59

系统环境:

  1、操作系统:Windows 2000 Server

  2、数据库: Oracle 8i R2 (8.1.6) for NT 企业版

  3、开发工具:Visual Basic 6.0 中文版

  连接方法:

  一、安装 Oracle 8i R2 (8.1.6) for NT 企业版

  使用典型安装,安装目录为D:Oracle;

  注:安装完Oracle后,在D:OracleOra81BIN目录下会有oradc.ocx文件存在,VB可使用此控件访问Oracle数据库

  二、安装 Visual Basic 6.0 中文版

  把Visual Basic 6.0光盘放入光驱,使用典型安装,

  安装目录为D:Program FilesMicrosoft Visual StudioVB98;

  三、生成Oracle实验记录

  连入SQL*Plus,以system/manager用户登录

  SQL> conn system/manager

  创建新的用户:如user1/pass1,赋予connect,resource权限。

  SQL> grant connect,resource to user1 identified by pass1;
  SQL> conn user1/pass1
  SQL> create table test(a number,b char(19));
  SQL> insert into test values(1,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
  SQL> insert into test values(2,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
  SQL> insert into test values(3,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
  SQL> insert into test values(4,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
  SQL> insert into test values(5,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
  SQL> commit;
  SQL> select * from test;

     A B
    ---------- -------------------
     1 2000-11-28 20:27:33
     2 2000-11-28 20:27:36
     3 2000-11-28 20:27:38
     4 2000-11-28 20:27:40
     5 2000-11-28 20:27:52

    D:OracleOra81networkADMINtnsnames.ora中有如下内容:

    ORADB =
     (DESCRIPTION =
     (ADDRESS_LIST =
     (ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521))
     )
     (CONNECT_DATA =
     (SERVICE_NAME = oradb)
     )
     )

  总结:

  Oracle service_names: oradb
  Oracle用户名:     user1
  户名密码:       pass1
  测试表名:       test
  tnsnames:       oradb

  四、启动 Visual Basic 6.0,写连接Oracle的VB程序

  开始->程序->Microsoft Visual Basic 6.0 中文版->Microsoft Visual Basic 6.0 中文版

  文件->新建工程->VB 企业版控件,如下图:
    


  添加访问Oracle的部件(CTRL+T):

  工程->部件->Oracle Data Control,如下图:

   
  选中此控件(Oracle Data Control),单击“确定”(此控件对应的就是D:OracleOra81BINoradc.ocx)

  VB开发窗口右边的工具箱面板上会出现此控件的图形标志,如下图:


  用鼠标双击此控件(ORADC),再双击MSFlexGrid控件(上图中另一个画红框的),把它们放到窗体Form1上,默认名称为ORADC1和MSFlexGrid1,如下图:

 

修改控件ORADC1和MSFlexGrid1的属性,如下图:


  ORADC1的Connect属性:user1/pass1
  ORADC1的DatabaseName属性:oradb
  ORADC1的RecordSource属性:select * from test

  MSFlexGrid1的DataSource属性:ORADC1
   
  也可以不设置ORADC1控件的任何属性,而使用窗体的Form_Load()过程来给ORADC1控件赋值

  Private Sub Form_Load()
   ORADC1.Connect = "user1/pass1"
   ORADC1.DatabaseName = "oradb"
   ORADC1.RecordSource = "select * from test"
   ORADC1.Refresh
  End Sub

  按F5,运行此程序,结果如下图:

VB连接ORACLE数据库

打开数据库         Public   Sub   OpenOraDB()             On   Error   GoTo   ToExit             OraDB_Op...
  • sosdsh
  • sosdsh
  • 2007年03月29日 09:20
  • 5680

VBS 脚本连接 数据库的集中方式

  • 2011年01月24日 16:37
  • 1019B
  • 下载

64位程序,利用ADO连接Oracle数据库

刚好手头项目解决了ADO连接Oracle数据库的问题,z
  • sisyphus_zhou
  • sisyphus_zhou
  • 2014年09月29日 16:14
  • 6639

Oracle启用远程访问&开启共享模式

Oracle安装好后默认未开启远程访问只允许本地用户进行登录,因此想要在局域网内用户能够远程访问该数据库则需要开启共享模式并配置监听。在学习过程中参见了网络上的一些教程,但是都有些遗漏,所以自己把遇到...
  • u010414666
  • u010414666
  • 2016年01月18日 00:07
  • 8572

关于Android连接远程数据库(mysql、oracle)

前提:假设远程有一个oracle的数据库,并且有一个已经连接(JDBC操作)了该DB的server(AndroidServer),IP为:http://192.168.0.12:8080/Androi...
  • livia1234
  • livia1234
  • 2014年07月17日 15:43
  • 1276

Oracle11g安装后惟独本地可以连接,远程无法连接,而且本地只能配置成localhost配置成IP地址也无法连接

Oracle11g安装后只有本地可以连接,远程无法连接,而且本地只能配置成localhost配置成IP地址也无法连接。 这是因为安装oracle的时候没有配置远程的监听,默认的监听是localhost...
  • jyacyy
  • jyacyy
  • 2015年11月26日 10:12
  • 4498

Oracle如何连接远程数据库

Oracle如何连接远程数据库   配置好相关的文件就可以,一般是tnsname.ora文件。 一般oracle10g的文件所在目录为:C:\oracle\product\10.2.0\db_1...
  • GaraMaps
  • GaraMaps
  • 2016年09月13日 21:57
  • 17521

Linux下安装Oracle客户端远程访问Oracle数据库

说明: 操作系统: CentOS 5.8最小化安装 IP地址:192.168.21.150 Oracle数据库服务器IP:192.168.0.128 数据库版本:Oracle 11gR2 ...
  • chun8416
  • chun8416
  • 2015年12月31日 13:50
  • 2198

ubuntu下使用sql远程连接oracle数据库

在 http://www.oracle.com/technetwork/topics/linuxsoft-082809.html 中下载下列文件: instantclient-basic-lin...
  • city_of_the_sky
  • city_of_the_sky
  • 2015年04月09日 10:39
  • 1747

不安装oracle怎样使用PLSQL连接远程(局域网内)服务器上的数据库

问题描述: 最近正在研究一个项目,用的数据库是oracle,我们都知道oracle不仅安装占用内存大,而且一旦运行占用内存也很大,这会使电脑很容易卡,于是我在想,可不可以只安装一个PLSQL,之后直接...
  • tyjdzr
  • tyjdzr
  • 2016年08月10日 09:43
  • 3263
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB中用Oracle数据控件访问Oracle
举报原因:
原因补充:

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