bde oracle 商友的流程_怎么用BDE连接Oracle?(100分)

配置BDE　　开始－＞程序－＞Borland Delphi 5－＞BDE Administrator

1、建个数据模块，file->new->data module

2、在data module上放Database1、Table1、DataSource1

3、Database1－＞aliasname->oracle建立表空间时的名

databasename->起个别名如hh

params->填写用户名和对应的密码。建立表空间时的名和密码

如user name=gz

password=aabb//密码

loginprompt->false

4.Table1->database->hh

在tablename中找到表空间中所要连接的表

active->true

5、DataSource1－＞dataset->Table1

6、在窗体上放个dbgrid1,->datasource->DataSource1

运行就可看到表的内容了。

从网上找的

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 = 192.1.1.1)(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”　大功告成！！