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=true

acket 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.1

ersist 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.1

ersist 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.1

ersist 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^)/