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.