Delphi使用ADO进行数据库编程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

　　Delphi是一个可视化的编程工具，ADO编程也是这样，所以话不多言，直接通过代码、截图和语言来说明。

　　我的数据库是Oracle，为了测试，先建一个表：create table practice(uno varchar(8), uname varchar(20)); 这个表比较简单，只有两个字段。

　　我的Oracle数据库是安装在虚拟机上的（操作系统是Redhat），所以需要先在服务器上配置好，另外需要在Windows上进行相关的配置（监听程序配置和本地网络服务名配置）。否则后面就没有办法配置数据源……来连接数据库。具体怎么进行配置请自己上网搜索查询。

　　然后我们来做一个简单的增删改查的小工具。

1.新建一个项目，上面放好需要控件　　　　　　　　　　

　　如下图，其中最为重要的一个控件是用红框框起来的控件：TADOConnection

　　注意需要引入DB、ADODB这两个单元。

2.双击TADOConnection控件进行配置　　　　　　　　

　　双击TADOConnection打开

　　点击Build..按钮，先选择数据库驱动，我选择的是最后一个

　　像我使用的是Oracle数据库，所以需要选择Oracle的数据库驱动，这里面提供的Oracle数据库驱动有两种（Oracle自己的驱动还有微软提供的Oracle驱动），如下图用红框标记的

　　点击下一步，配置数据源，用户名密码等信息，选择允许保存密码，点击确定

　　然后点击OK即可进行下一步的编程工作

3.然后实增删改查的功能　　　　　　　　　　　　　　　　

首先是在响应窗体创建事件的函数中打开TADOConnection对象con1

procedure TForm1.FormCreate(Sender: TObject);
begin
  con1.Open;    
end;

　　这里不需要调用con1.Create，因为通过将控件直接拖拽到窗体上的方式，会在窗体创建的时候也创建这些控件，如果这里在Create就会重复创建，重复创建就会出错。

接着是实现 “增” 的功能双击设计面板上的按钮，编写按钮响应OnClick的方法

procedure TForm1.btn1Click(Sender: TObject);
var
  adoQuery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'INSERT INTO practice VALUES(''' + edt1.Text + ''', ''' + edt2.Text + ''')';
  count:= adoQuery.ExecSQL;
  if(count>0) then
    ShowMessage('成功插入' +IntToStr(count) + ' 条数据');
  adoQuery.Free;
end;

　　注意其中的代码的一些细节。

　　将adoQuery的Connection属性设置为con1。

　　拼接SQL的时候，注意两个单引号 ''的使用规范。

　　对于往数据库中写数据的SQL，需要使用ExecSQL方法，insert、delete、update这样的写数据库的方法，需要调用ExecSQL方法，ExecSQL方法的返回值是这条SQL影响了数据库中的几条记录（比如：插入了几条记录、删除了几条记录、修改了几条记录），所以这个方法中会用到ExecSQL的返回值。

　　最后不要忘了释放adoQuery对象。保证不会出现内存泄露，因为如果不释放，那么每次点击按钮就会创建一个adoQuery对象。不过这样使用局部变量也不是很好，可以使用TADDOQuery创建一个全局变量，在程序打开的时候创建好，做好Connection属性的赋值，然后使用，最后使用完成在程序关闭的时候再释放，这样就可以防止每次点击按钮都要创建，不过使用TADOQuery全局变量也要有一些规范，参见下面的总结说明！

补充说明TADOQuery

　　要想执行SQL需要创建TADOQuery对象。我们可以将AdoQuery作为一个局部变量，然后这个小demo中需要实现的增删改查每个都创建自己的TADOQuery局部变量，执行完之后再Free，当然也可以创建全局变量，然后每个操作都使用这个全局变量。

　　但是如果使用全局变量的话，特别需要注意一点。在原来的使用TADOQuery局部变量的时候，每个操作之前先创建一个TADOQuery对象，然后将其Connection属性赋值为那个TADOConnection的变量，然后给SQL.Text赋值，然后就可以Open或者ExecSQL执行了，最后在程序结束的时候在进行Free即可。

　　但是如果使用TADOQuery全局变量的话，首先是Create好TADOQuery，然后给它的Connection赋好值，然后每个操作的时候，直接将其SQL.Text赋值，然后执行就好了。不过在这个过程中必须注意在给SQL.Text赋值之前需要执行TADOQuery的Close方法，然后再SQL.Clear，然后再赋值SQL，然后再执行。

begin
    adoquery.close;
    adoquery.SQL.clear;
    adoquery.SQL.add('...'); 
    adoquery.open;  //如果是写操作的话就是adoquery.ExecSQL;
end;

　　这是一个经典的语句，在每次查询之前先把上次删除给关了。如果不关，第一次查询是没问题的，可如果adoqury1再用一次的话，就会有可能和上次发生冲突。程序的不确定性很强，所以这样做是有必要的，防止出现意想不到的问题。

　　Close还是需要。还有一点就是节约内存，用过就关，不然会一直呆在内存里面！！所以不管是使用adoquery.SQL.Text 还是adoquery.SQL.Add()，如果是全局变量的话，还是要使用Close方法。

　　Clear看情况决定要不要。不过如果是直接给adoquery.SQL.Text赋值的话，可以不用执行adoquery.SQL.Clear因为新赋的值将会覆盖原来的值。但是如果是使用adoquery.SQL.Add()的话，是在原来的SQL基础上追加，所以可能需要Clear原来的SQL，再添加新的SQL，保证可以不和上次冲突！

再补充说明adoquery.SQL.Add和adoquery.SQL.Text的区别

//adoquery1.sql.add相当于添加一个值比如说
adoquery1.sql.text:='a';
adoquery1.sql.add('b');

//那么就相当于直接
adoquery1.sql.text='ab';

　　adoquery1.sql.text 就是说写一行完整的查询语句放在SQl的查询里。当在delphi中SQL语句太长，我们可以把adoquery1.sql.text 分开由多个adoquery1.sql.add()来分段写。

　　adoquery1.sql.add()主要起追加的作用。

接着实现 “查” 的功能，同样编写按钮响应OnClick的方法

procedure TForm1.btn2Click(Sender: TObject);
var
  adoQuery: TADOQuery;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'SELECT * FROM practice WHERE uno = ''' + edt3.Text + '''';
  adoQuery.Open;
  adoQuery.First;
  while not adoQuery.Eof do
  begin
    ShowMessage(adoQuery.fieldByName('uno').AsString + ': ' + adoQuery.fieldByName('uname').AsString);
    adoQuery.Next;
  end;
  adoQuery.Free;
end;

　　执行Select的SQL，需要使用Open，而不是ExecSQL方法。

　　通过判断Eof来进行循环展示搜索到的数据库中的符合条件的记录。判断是否Eof，注意Eof为True并不是指向了最后一条记录的时候，而是指向了最后一条记录之后，再Next时Eof才是True。

　　First是定位到所有搜索到的记录的第一条。Next是指向下一条。

　　根据字段名称获取每条记录的对应信息，注意这里面使用FieldByName获取字段对应的值的方法。因为前面是使用的select * from，所以可以既获得'uno'，有可以获得'uname'，假如用select uname from 的话，就只能使用fieldByName获得'uname'，不能获得'uno'，所以使用fieldByName时候需要注意select语句搜索了哪几项。

接下来讲解删除功能的代码

procedure TForm1.btn3Click(Sender: TObject);
var
  adoQuery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'DELETE FROM practice WHERE uno = ''' + edt4.Text + '''';
  count:= adoQuery.ExecSQL;
  if count>0 then
    ShowMessage('删除' + IntToStr(count) + ' 条数据')
  else
    ShowMessage('没有删除数据');
  adoQuery.Free;
end;

最后是改数据库数据的功能代码

procedure TForm1.btn4Click(Sender: TObject);
var
  adoquery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoquery.SQL.Text:= 'UPDATE practice SET uname = ''' + edt6.Text + '''WHERE uno = ''' + edt5.Text + '''';
  count:= adoquery.ExecSQL;
  ShowMessage('修改了' + IntToStr(count) + ' 条记录');
  adoQuery.Free;
end;

最后的代码是　　　　　　　　　　　　　　　　　　　　

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    edt1: TEdit;
    lbl1: TLabel;
    edt2: TEdit;
    lbl2: TLabel;
    btn1: TButton;
    edt3: TEdit;
    lbl3: TLabel;
    btn2: TButton;
    edt4: TEdit;
    lbl4: TLabel;
    btn3: TButton;
    edt5: TEdit;
    lbl5: TLabel;
    edt6: TEdit;
    lbl6: TLabel;
    btn4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  con1.Open;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  adoQuery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'INSERT INTO practice VALUES(''' + edt1.Text + ''', ''' + edt2.Text + ''')';
  count:= adoQuery.ExecSQL;
  if(count>0) then
    ShowMessage('成功插入' +IntToStr(count) + ' 条数据');
  adoQuery.Free;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  adoQuery: TADOQuery;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'SELECT * FROM practice WHERE uno = ''' + edt3.Text + '''';
  adoQuery.Open;
  adoQuery.First;
  while not adoQuery.Eof do
  begin
    ShowMessage(adoQuery.fieldByName('uno').AsString + ': ' + adoQuery.fieldByName('uname').AsString);
    adoQuery.Next;
  end;
  adoQuery.Free;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  adoQuery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoQuery.SQL.Text := 'DELETE FROM practice WHERE uno = ''' + edt4.Text + '''';
  count:= adoQuery.ExecSQL;
  if count>0 then
    ShowMessage('删除' + IntToStr(count) + ' 条数据')
  else
    ShowMessage('没有删除数据');
  adoQuery.Free;
end;

procedure TForm1.btn4Click(Sender: TObject);
var
  adoquery: TADOQuery;
  count: Integer;
begin
  adoQuery := TADOQuery.Create(nil);
  adoQuery.Connection := con1;
  adoquery.SQL.Text:= 'UPDATE practice SET uname = ''' + edt6.Text + '''WHERE uno = ''' + edt5.Text + '''';
  count:= adoquery.ExecSQL;
  ShowMessage('修改了' + IntToStr(count) + ' 条记录');
  adoQuery.Free;
end;

end.

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

DelphiXE程序设计系列1-主从架构,多层到JSON和REST发布时间：2022-07-18

关于delphi-bcpl发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19220|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9996|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8331|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8700|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8644|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9666|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8630|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：8004|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8664|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7539|2022-11-06

客服电话

电子邮件

Delphi使用ADO进行数据库编程

请发表评论

全部评论

上一篇：

下一篇：

CVE-2022-36305

dustinvtran/ml-videos: A collection of v

adhiariyadi/Sistem-Informasi-Akademik-Se

ravikumar001/maven

ceejbot/LOUDBOT: AUTOMATED SHOUTING FOR

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053