Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#18

Re: Datenbankverbindung bei Programmstart

  Alt 12. Feb 2007, 21:34
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.
  Mit Zitat antworten Zitat