本文主要是介绍Delphi5 企业版使用BDE访问 Oracle方法,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
2001年02月28日 14:37:00- 系统环境:
- 1、操作系统:Windows 2000 Server
2、数据库: Oracle 8i R2 (8.1.6) for NT 企业版
3、开发工具:Delphi 5 企业版
- 1、操作系统:Windows 2000 Server
- 连接方法:
- 一、安装 Oracle 8i R2 (8.1.6) for NT 企业版 使用典型安装,安装目录为D:/Oracle;二、安装 Delphi 5 企业版 把Delphi 5光盘放入光驱,使用典型安装, 安装目录为C:/Program Files/Borland/Delphi5;三、生成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:/Oracle/Ora81/network/ADMIN/tnsnames.ora中有如下内容: test = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = hlshang)(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = oradb) ) ) 总结: Oracle service_names: oradb Oracle用户名: user1 户名密码: pass1 测试表名: test tnsnames: test四、配置BDE 开始->程序->Borland Delphi 5->BDE Administrator 1、配置Drivers,修改以下几个地方,如下图: DLL32: SQLORA8.DLL VENDOR INIT: OCI.DLL LANGDRIVER: Oracle SQL WE850 SQLPASSTHRU MODE: SHARED NOAUTOCOMMIT 修改完,按鼠标右键,apply(CTRL+A),提交修改 2、配置Database Aliases(数据库访问别名),新建一个别名,起名为oracle,如下图: 3、修改以下几个地方,如下图: SERVER NAME: test 修改完,按鼠标右键,apply(CTRL+A),提交修改,退出BDE Administrator 重新打开BDE Administrator,用鼠标左键双击别名oracle,进行连接测试 输入用户名、密码,按“OK”连接,不能把user1/pass1直接写在User Name上,要分开写 如果出现下图,则说明连接成功 五、启动 Delphi 5 企业版,写连接 Oracle 的 Delphi 程序 开始->程序->Borland Delphi 5->Delphi 5 File->New...->Application,如下图: Delphi 开发窗口上方的工具箱面板: 打开Data Access控件组,用鼠标双击控件Table,再双击DataSource控件(上图中画红框的两个), 把它们放到窗体Form1上,默认名称为Table1和DataSource1: 打开Data Controls控件组,用鼠标双击DBGrid控件(上图中画红框的), 把它放到窗体Form1上,默认名称为DBGrid1,如下图: 修改控件Table1、DataSource1、DBGrid1的属性,如下图: Table1的Active属性:True Table1的DatabaseName属性:oracle(即是选BDE名) Table1的TableName属性:TEST(这里需要连接oracle) DataSource1的DataSet属性:Table1 DBGrid的DataSource属性:DataSource1 按F9,运行此程序,弹出登录画面,如下图: 输入用户名、密码,按“OK”,运行结果如下图:
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3392
这篇关于Delphi5 企业版使用BDE访问 Oracle方法的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!