Datenbankverbindung bei Programmstart

[Jelly]

Also dann leg ich mal parallel hier mein Gegenbeispiel hin. Die AdoConnection1 ist zur Designzeit auf active. Die Verbindung steht in meinem Fall zu einem MSSQL Server.

Die Verbindung soll dann anschliessend durch einen Buttonklick gemacht werden.

Stoppe ich den SQL Server Service und starte die Anwendung, fliegt mir die Fehlermeldung um die Ohren.

http://www.tp-soft.de/downloads/dp/connecterror.gif

Und das obwohl im OnCreate der Form die ADOConnection geschlossen wird.

Delphi-Quellcode:

unit Unit19;

interface

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

type
  TForm19 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.Button1Click(Sender: TObject);
begin
     try
        self.ADOConnection1.Connected := true ;
        self.ADOQuery1.open;
     except
        MessageDlg('No connection', mtWarning, [mbOK], 0);
     end;
end;


procedure TForm19.FormCreate(Sender: TObject);
begin
     self.ADOConnection1.Connected := false ;
end;

end.