Question

请教一个delphi读取oracle数据库的问题

Answer 1

Delphi连接Oracle数据库的三种方式 Oracle是以高级结构化查询语言(SQL)为基础的大型关系数据库，是目前最流行的客户/服务器(CLIENT/SERVER)体系结构的数据库之一，目前被广泛应用于各类型企业的信息化管理中。数据库支持是Delphi7.0开发环境的一个重要特性，很多程序员在数据库应用程序开发中都采用Delphi7.0作为开发工具，来实现对数据库的访问和控制。Delphi数据库应用程序是通过数据库引擎来访问它们引用的数据源的。本文概括性的介绍在Windows XP环境中Delphi7.0连接Oracle数据库的3种方式，它们分别是BDE、ADO、DbExpress。

这3种方式都需要安装Oracle客户端并配置tnsnames.ora文件。将Oracle客户端安装到本地计算机，打开c:\oracle\…\network\admin\tnsnames.ora文件，按照所要访问的数据库的配置，添加下面的内容

TEST =(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = 172.16.2.134)(PORT = 1521)) )

(CONNECT_DATA =(SID = test) )

)

其中HOST，PORT，SID的值与所访问的数据库配置有关。

1传统的BDE

BDE(Borland Database Engine)使用别名引用数据库文件或目录，需要在客户的计算机上与应用程序一起安装BDE。连接步骤：

1.1 安装BDE。在Delphi7.0的安装盘中含有BDE安装程序，按照默认方式安装的计算机，并配置好所要访问的Oracle数据库的别名，例如：test。

1.2 在Delphi7.0的程序中连接Oracle数据库。将BDE选项卡中的TDatabase组件将放入应用程序的主窗体，双击TDatabase，出现TDatabase组件编辑器，输入数据库别名、用户名和密码，点击OK按钮。在对象检视器中将TDatabase组件的LoginPrompt属性值设为False(避免出现登陆对话框，下同)，将TDatabase组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。

1.3 使用TTable组件访问数据。将TTable组件放置到应用程序的主窗体，设置其DatabaseName属性值为test，再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地数据库应用程序相同了。

2 Microsoft的ADO

ADO(ActiveX Data Objects)是Microsoft的高级接口，基于Microsoft的数据访问OLEDB技术而实现。连接步骤：

2.1 在Delphi7.0的程序中连接Oracle数据库。将ADO选项卡中的TADOConnection组件放入应用程序的主窗体，双击TADOConnection，在出现的对话框中点选Use Connection String，在其下面的框中输入：Provider=MSDAORA.1;User ID=test;Data Source=test;Persist Security Info=False，其中test为Oracle服务器名和用户名。在对象检视器中将TADOConnection组件的LoginPrompt属性值设为False，将TADOConnection组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。

2.2 使用TADOCommand组件访问数据。将TADOCommand组件放置到应用程序的主窗体，设置其Connec tion属性值为Connection1，点击其CommandText属性值，在出现的对话框中输入SQL查询语句（本文以查询数据为例），再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地型数据库应用程序相同了。

3 新一代夸平台的数据库访问引擎DbExpress

DbExpress是一组新的组件，技术和驱动程序，具备了夸平台的能力，让程序员能够开发出更有效率的数据库应用程序，因此会成为以后Delphi和Kylix的核心数据访问技术。连接步骤：

3.1 在Delphi7.0的程序中连接Oracle数据库。将 dbExpress选项卡中的TSQLConnection组件放入应用程序的主窗体，双击TQLConnection，出现TSQLConnection组件编辑器，选择Oracle作为Driver Name，输入数据库名称、用户名和密码，点击OK按钮。在对象检视器中将TSQLConnection组件的LoginPrompt属性值设为False，将TSQLConnection组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。

　　3.2 使用TSQLDataSet组件访问数据。将TSQLDataSet组件放置到应用程序的主窗体，设置其SQLConne ction属性值为SQLConnection1，点击其CommandText属性值，在出现的对话框中输入SQL查询语句（本文以查询数据为例），再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地数据库应用程序相同了。