使用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=Trueersist 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;