- 系统环境：
- 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”，运行结果如下图： 
- 一、安装 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），提交修改
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3392