VB6中用Oracle数据控件访问Oracle

文章作者 100test 发表时间 2007:09:06 12:00:06
来源 100Test.Com百考试题网

系统环境 ：

　　 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:\Oracle\Ora81\BIN\目录下会有oradc.ocx文件存在，VB可使用此控件访问Oracle数据库

二、安装 Visual Basic 6.0 中文版

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

　　 安装目录为D:\Program Files\Microsoft Visual Studio\VB98；

三、生成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> 0select * 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:\Oracle\Ora81\network\ADMIN\tnsnames.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，如下图：