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.