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

unit Unit1;interfaceuses  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.