delphi如何链接Oracle数据库？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

--帮你搜了下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选项卡中的ＴDatabase组件将放入应用程序的主窗体，双击TDatabase，出现TDatabase组件编辑器，输入数据库别名、用户名和密码，点击ＯＫ按钮。在对象检视器中将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，输入数据库名称、用户名和密码，点击ＯＫ按钮。在对象检视器中将TSQLConnection组件的LoginPrompt属性值设为False，将TSQLConnection组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。　　3.2 使用TSQLDataSet组件访问数据。将TSQLDataSet组件放置到应用程序的主窗体，设置其SQLConne ction属性值为SQLConnection1，点击其CommandText属性值，在出现的对话框中输入SQL查询语句（本文以查询数据为例），再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地数据库应用程序相同了。
  ado:=TADOQuery.Create(nil);
  try
    ado.ConnectionString:='Provider=MSDAORA.1;Password=XXXX;User ID=YYYY;Data Source=ZZZZ;Persist Security Info=True';
    sql:='select * from dim_ajclyj';
    ado.SQL.Clear;
    ado.SQL.Add(sql);
    ado.Open;
    for i:=0 to ado.RecordCount-1 do
    begin
      mmo1.Lines.Add(ado.Fields[0].AsString);
    end;
  finally
    ado.Free;
  end;需要安装oracle客户端的，其中XXX, YYY, ZZZ分别代表密码、用户名、连接串
下一本《Delphi7高效数据库程序设计》，上面有详细讲解
另连接oracle，需要先使用oracle的Net config assistant配置好连接串名(或者直接修改tnsnames.ora文件)
然后在驱动选择时选择ORACLE，在设置控件的Database属性时，填入上面的连接串名
一个程序连接数据库中间就需要有一个数据库连接引擎笔者在使用Delphi的过程中，共使用过几种连接方式连接Access，SqlServer，Oracle，IBM UDB，IBM AS/400...
1.BDE
    这是使用Delphi最多的一种方式，建立一个BDE别名可以在控制面板中的BDE Administration中添加，不过我习惯在SQL Explorer中建立，因为建立之后直接可以执行建表的脚本了。
    你可以在SQL Explorer中左边的别名列表中点击右键，并选择要连接的数据库种类，并在之后BDE建立的连接参数中填入必要的信息，注意，当你选择不同的数据库时，右边的参数有少许的不同，这些参数的不同是由于不同数据库所要求的参数不同造成的，例如SqlServer需要输入服务器的名称，数据库的名称。
    BDE能够连接我所使用过的所有的数据库，当然有些是通过ODBC来连接的。
    在发布程序时，必须发布BDE引擎。用InstallShield Express可以很方便的做这件事情
    BDE的别名也可以在Delphi程序中动态的检查有无并建立之。我通常用TSession组件来Do It。

2.ODBC
    这是Ms的产品。
    如果你在ODBC中建立了一个DSN连接，那么你的Delphi程序还是需要使用BDE来连接它，但是此时不需要用上一步中的手动建立别名，BDE会将ODBC中的所有别名自动在BDE中建立相同名称的别名，并且它是删不掉的，除非你删掉ODBC的DSN。
    这种方式的实际是程序通过BDE，再通过ODBC，才连接到数据库。
    在早期使用Aceess时，我通常使用这种方式。因为那时候还没有ADO。
    同样在使用IBM UDB时，我也用这种方式，因为在使用BDE直接连接时，在SQL Explorer中将不能枚举数据库中的表，而ODBC可以。
    AS/400也可以使用这种方式来连接...
    大型关系型数据库都提供ODBC驱动。在建立ODBC源时，都会调用其本身的配置，不同的数据库也是不同的。
    ODBC源也可以在程序用代码写入注册表中，来生成一个DSN.
3.ADO
    这是ODBC的升级版本，通常也叫做mdac ，我用过的最新版本是2.7，现在应该更高。在使用ms的数据库SqlServer，Access时，推荐使用这个东西，因为他从win98开始就集成在操作系统中，并且以连接字符串的形式提供所有参数，发布系统时不需要在程序之外做其他的工作。
    它也提供包括一些类数据库的连接，例如Excel。
    值得一提的是在连接有密码的Access时，Delphi的Ado向导生成的连接字符传是有Bug的，其生成的password子项是password='xxx';这个样子，但是这将不能连接，手动将其改成Jet Oledb password='xxx';(好像是这样，记不清了).

4.DbExpress
    这是Borland提供的最新的数据库引擎，目前提供的驱动有限，我只用它成功测试过IBM UDB，在网上可以找到第3方的连接AS/400的驱动。
    它是一个提供单向游标的引擎，Borland称相对于BDE，具有更高的效率。并且在以后将发展它，而停止BDE的更新。
    通常在使用这种方式时，应该用DataSnap（以前叫Midas）技术来提供双向游标的应用，并且用TClientDataset的Data，Delta属性来灵活的序列化Dataset，而实现多层松耦合系统。

5.第3方的驱动
    这些我一个都没在实际中使用过，通常以组件的形式提供，我所知的如连接Oracle的Odac，连接As/400的Delphi400

    最后现在如果可能，应尽量使用ADO来连接系统，并且用DataSnap来操作本地数据集来实现多层系统。