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

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

Delphi5 企业版使用BDE访问 Oracle方法 (转)[@more@]

环境： 1、： 2000 Server2、：　 R2 (8.1.6) for NT 企业版3、开发工具： 5 企业版

连接方法： 一、 Oracle 8i R2 (8.1.6) for NT 企业版　　　　使用典型安装，安装目录为D:Oracle； 二、安装 Delphi 5 企业版　　　　把Delphi 5光盘放入，使用典型安装，　　　　安装目录为C:Program FilesBorlandDelphi5； 三、生成Oracle实验记录　　　　连入*Plus，以system/manager登录　　　　SQL> conn system/manager 　　　　创建新的用户：如user1/pass1，赋予connect,re。　　　　SQL> grant connect,resource to user1 ntified 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> * 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:OracleOra81workADMINtnsnames.ora中有如下内容： 　　　　test = 　　　　 (DESCRIPTION = 　　　　 (ADDRESS_LIST = 　　　　 (ADDRESS = (PROTOCOL = TCP)(HOST = hlshang)(PORT = 1521)) 　　　　 ) 　　　　 (CONNECT_DATA = 　　　　 (SERVICE_NAME = ora) 　　　　 ) 　　　　 ) 　　　　总结：　　　　Oracle service_names：　oradb 　　　　Oracle用户名：　　　　　user1 　　　　户名密码：　　　　　　　pass1 　　　　测试表名：　　　　　　　test 　　　　tnsnames：　　　　　　　test 四、BDE 　　　　开始－＞－＞Borland Delphi 5－＞BDE Administrator 　　　　1、配置s，修改以下几个地方，如下图： 　　　　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”，运行结果如下图：