本文向您揭示在Delphi中使用ADO是如何轻而易举，结合了ADO的Delphi应用程序，将不再依赖于BDE。

ADO的精髓在于利用简单的COM指令来快速方便的访问ODBC数据源，微软的表格、列表框等ActiveX控件使得用户可以简便的利用ADO工作；然而，本文中笔者仅仅向您展示了如何利用程序访问数据库，将不采用任何可视化数据控件。

　　本文将向您展示如何利用Variant或interfaces访问和修改ADO数据库，示例程序非常简单，可运行于Delphi 3或4。

安装和访问一个ADO数据库。

示例程序的代码不足150行，然而运行本程序必须首先安装ADO以及设置ODBC数据源。

ADO是一组COM组件的集合，允许程序员利用利用少量的简单代码访问数据库。

ADO通常和OLEDB、Universal Data Access以及Microsoft Data Access Components（MDAC）联系在一起。OLEDB产生较ADO为早，是后期各种技术的基础。

如果你已经安装了ADO，你会在你的计算机中发现ADODB.DLL或者是MSADO15.DLL，这些文件中包含了一个类库，其中包括了利用ADO编程所需的全部接口和常量。在Delphi中，选择菜单Project 　 Import Type Library，选择以上的DLL文件，然后确定，系统生成了一个基于ADODB.DLL的ADODB_TLB.Pas文件，这个文件中包含了所有Delphi ADO编程所需的声明。

最后一步的准备工作就是将Delphi演示数据库中的Clients.DBF设置为ODBC系统DSN，其别名为DBDemosDBase，驱动程序为Dbase 5。

以下程序清单同时利用Variants和Interfaces访问ADO：

unit Main;{---------------------------------------------------------------------

Created Jan 5, 1999. Copyright (c) 1999 by Charlie Calvert

----------------------------------------------------------------------}

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, ComObj, Grids, ADODB_TLB, ExtCtrls;

const

SELECTSTRING = ’SELECT * FROM Clients.dbf’;

DSNSTRING = ’DBDemosDBase’;

type TForm1 = class(TForm)

StringGrid1: TStringGrid;

Panel1: TPanel;

VariantBtn: TButton;

InterfaceBtn: TButton;

UpdateBtn: TButton;

Edit1: TEdit;

procedure VariantBtnClick(Sender: TObject);

procedure InterfaceBtnClick(Sender: TObject);

procedure UpdateBtnClick(Sender: TObject);

procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

private

procedure Display(RecordSet: _RecordSet); { Private declarations }

public { Public declarations }

end;

var Form1: TForm1;implementation

uses

ActiveX;

{$R *.DFM}

procedure TForm1.Display(RecordSet: _RecordSet);

var

Y, i: Integer;

begin

Y := 1;

repeat

for i := 0 to 6 do

StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;

RecordSet.Move(1, EmptyParam);

Inc(Y);

until RecordSet.EOF;

end;

procedure TForm1.InterfaceBtnClick(Sender: TObject);

var RecordSet: _RecordSet;

DSN: string;

[1] [2] [3] [4] 下一页

上一篇:Delphi无标题栏窗口程序设计中鼠标拖动技巧

下一篇:Delphi应用程序中中国式报表的制作

Delphi下的ADO使用方法！相关文章：

·GHOST使用方法（图解）

·AspNetPager分页控件--使用方法

·Photoshop各类外挂插件的使用方法

·Delphi中DLL的创建和使用(1)

·Delphi程序执行时实时生成报表

Delphi下的ADO使用方法！相关软件：

·DelphiV7.0

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot