unit1.~pas

演示连接数据库

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    ADOConnection1: TADOConnection;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 function  checkconnect(s:string):boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.checkconnect(s: string): boolean;
var
ADOcon:Tadoconnection;
begin
      ADOCon:=TADOConnection.Create(nil);
      ADOCon.ConnectionString:='';
      ADOCon.Connected:=False;
      ADOCon.LoginPrompt:=False;
      ADOCon.ConnectionString:=s;
      try
          ADOCon.Connected:=True;
          ADOCon.Free;
          result:=True;
      except
          ADOCon.Free;
          result:=False
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
    s:='Provider=SQLOLEDB.1;Password='+trim(edit4.Text)+';Persist Security Info=True;User ID='+trim(edit3.Text)+';Initial Catalog='+trim(edit2.Text)+';Data Source='+trim(edit1.Text)+'';
    adoconnection1.ConnectionString:=s;
    adoconnection1.LoginPrompt:=false;
    try
    adoconnection1.Close;
    adoconnection1.Connected:=true;
    showmessage('联接成功!')
    except
    showmessage('联接失败!');
    end;

end;

end.