Delphi5 企业版使用BDE访问 Oracle方法

  • 系统环境:
    • 1、操作系统:Windows 2000 Server
      2、数据库: Oracle 8i R2 (8.1.6) for NT 企业版
      3、开发工具:Delphi 5 企业版
  • 连接方法:
       
    • 一、安装 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”,运行结果如下图:     
  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

蝈蝈俊

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值