delphi连接数据库

javame 专栏收录该内容
834 篇文章 0 订阅

======================================================
注:本文源代码点此下载
======================================================

使用ado连接sql server 2000数据库

1.用ado组件tadoquery连接数据库

用tadoquery组件连接数据库需要以下几个步骤:

(1)用tadoconnection组件连接数据源(在connectionstring属性中连接数据库的字符串可以根据需要对其进行相应的省略)。

(2)用tadoquery组件连接数据源,并在sql属性中输入sql语句。

(3)将tadoquery组件的active属性设为true。

在sql属性中可以输入任何形式的select语句,以及insert(添加)、update(修改)和delete(删除)语句。

下面利用tadoquery组件来连接数据库“mr_sql”,并显示“mr_sql”数据库中“mr_ student”表的数据,如图1所示。

操作步骤如下:

(1)运行delphi,在窗体中添加tadoconnection、tadoquery、tdatasource和tdbgrid组件。

图1用ado组件tadoquery连接数据库

(2)主要程序代码如下:

将下面的代码写入窗体的onshow(显示)事件中。

procedure tform1.formshow(sender: tobject);

begin

adoconnection1.connectionstring := 'user id=sa;initial catalog=mr_sql;

data source=.;use procedure for prepare=1;auto translate=trueacket size=4096;

workstation id=mrdel';//连接指定的数据库

adoconnection1.loginprompt := false;

adoconnection1.connected := true;

adoquery1.connection := adoconnection1;//连接数据源

with adoquery1 do//用ado组件连接数据表

begin

close;

sql.clear;

sql.add('select * from mr_student');//使用sql语句查询数据表中的内容

open;

end;

adoquery1.active := true;

datasource1.dataset := adoquery1;

dbgrid1.datasource := datasource1;

end;

2.用ado组件tadodataset连接数据库

tadodataset组件允许直接访问数据源、创建一组数据源记录以及查询结果记录集。tadodataset组件可以从一个或多个表中取数据。如果只访问一个表,需要指定表的名称;如果要访问多个表,需要使用sql语句。

tadodataset组件与tadoquery组件的最大区别在于可以使用tadodataset组件上commandtext属性右边的 按钮,对指定数据库中的所有数据表进行可视化选择并创建sql语句,如图2所示。

图2commandtext属性的编辑器

注意:在使用commandtext属性的编辑器时,应先在connectionstring属性中使用手动连接数据源。

下面利用tadodataset组件来连接数据库“mr_sql”,并显示“mr_sql”数据库中“mr_student”表的数据。

操作步骤如下:

(1)运行delphi,在窗体中添加ttadodataset、tdatasource和tdbgrid组件。

(2)主要程序代码如下:

将下面的代码写入窗体的onshow(显示)事件中。

procedure tform1.formshow(sender: tobject);

begin

adodataset1.connectionstring := 'provider=sqloledb.1ersist security info=false;

user id=sa;initial catalog=mr_sql;data source=.';//连接数据源

adodataset1.commandtext := 'select * from mr_student';//用sql语句查询数据表信息

adodataset1.active := true;//运行该组件

end;

3.用ado组件tadotable连接数据库

tadotable(也称为ado数据表)组件是一个数据集组件,封装了一个可访问ado的数据表,使用tadotable组件可访问单个数据表中的数据,它可以直接访问数据表中的每条记录,也可以用filter属性根据限定范围或条件对数据表中的信息进行过滤。

tadotable组件也可以通过tablename属性对数据库中的数据表进行可视化选择。

注意:在用tablename属性进行可视化选择时,应先在connectionstring属性中使用手动连接数据源。

下面是利用tadotable组件来连接数据库“mr_sql”,并显示“mr_sql”数据库中“mr_student”表的数据。

操作步骤如下:

(1)运行delphi,在窗体中添加tadotable、tdatasource和tdbgrid组件。

(2)主要程序代码如下:

将下面的代码写入窗体的onshow(显示)事件中。

procedure tform1.formshow(sender: tobject);

begin

adotable1.connectionstring := 'provider=sqloledb.1ersist security info=false;

user id=sa;initial catalog=mr_sql;data source=.';

adotable1.tablename := 'mr_student';

adotable1.filtered := true;

end;

4.用ado组件tadocommand连接数据库

tadocommand组件主要用来对数据源执行指定的命令,比如sql语句,表和存储过程的名称,对数据进行添加、修改、删除等操作。虽然其他ado组体也能执行以上操作,但需要使用command本身的属性和方法来控制数据源,使用tadocommand组件就方便得多。

在用tadocommand组件对数据进行编辑时,应在parameters属性中创建变量,这些变量应与编辑字段的类型相一致,如果在sql语句后面没有where子句,则对整个表进行编辑。

下面利用tadocommand组件来连接数据库“mr_sql”,并对“mr_student”表中的“数学”字段进行修改。

操作步骤如下:

(1)运行delphi,在窗体中添加tadotable、tedit和tbutton组件。

(2)主要程序代码如下:

在button1按钮的单击事件中写入以下代码。

procedure tform1.button1click(sender: tobject);

begin

adocommand1.connectionstring := 'provider=sqloledb.1ersist security info=false;

user id=sa;initial catalog=mr_sql;data source=.';//连接数据源

//用sql语句update修改mr_student表中第一条记录的“数学”字段信息

adocommand1.commandtext:='update mr_student set 数学 = 数学 + :aa where 编号=1';

//在tadocommand组件中设置变量,并通过该变量获取修改值

adocommand1.parameters.parambyname('aa').value := strtoint(edit1.text);

adocommand1.execute;//执行修改操作

end;


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值