delphi连接数据库

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

使用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^)/