delphi7 ADO 方式连接 sqlserver2008/2005 简单应用

unit Unit1;

interface

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

type
TForm1 = class(TForm)
btConnectDB: TButton;
ADOConnection1: TADOConnection;  //在控件选项卡ADO上找到ADOConnection,放到在Form1界面上
procedure btConnectDBClick(Sender: TObject);
procedure ADOConnection1AfterConnect(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btConnectDBClick(Sender: TObject);
begin
with ADOConnection1 do
begin
Connected := False;
ConnectionString  := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xxx;password =123456;Data Source=xxx-PC\xxx';
try
ConnectionTimeout := 20;//连接超时等待时间
CommandTimeout := 30 ;//执行命令超时时间
Connected:=True;   //连接
except
ShowMessage('not connected');
raise;
Exit;
end;
end;

end;
{ConnectionString注释如下：
Provider  :指定数据库的OLE DB的提供程序，如果没有则是使用默认的ODBC
SQLOLEDB.1:提供程序是与数据源进行交互的动态链接库，可用于连接各种数据源，包括 SQL SERVER、ORACLE、ACCESS、活动目录等等
Persist Security Info: 表示是否保存安全信息，其实可以简单的理解为"ADO在数据库连接成功后是否保存密码信息"，True表示保存，False表示不保存,ADO缺省为True,果数据库连接成功后不再需要连接的密码，出于安全性考虑，还是建议将Persist Security Info设为false，以防止后门程序取得数据库连接的密码（windows2003在sp1前就发生过这个问题）。
Initial Catalog:指定数据库名称
password:密码
Data Source：数据库对应的计算机名  {本机的话可以用"."或"本机计算机名"或"local"或"127.0.0.1"
}

procedure TForm1.ADOConnection1AfterConnect(Sender: TObject);  //连接成功后触发的事件
begin
ShowMessage('connnect');
end;

end.