Datenbank Status

[Stonegg]

Hi, und erstmal Hallo an alle.

Ich versuche seit geraumer Zeit den Status meiner Datenbank abzufragen und kriege es nicht gebacken. Ich hoffe jemand kann mir einen Tip geben. Zuerst aber mal eine erklärung was ich machen will:

Bei dem aufruf meines Programmes will ich abfragen ob die Datenbankverbindung (Access) steht. falls ja iss alles gut, falls nein soll eine Meldung ausgegeben werden. Bis jetzt sieht mein Code so aus:

Delphi-Quellcode:

    with database do
      if connected = true then 
        open;
    except
      showmessage('geht net');
    end;

leider bekomme ich immer eine Exception beim connected = true aufruf...

Ich hoffe es kann mir jemand einen Tip geben wie das funktionieren könnte..


Gruß Stonegg

[Robert_G]

Weil sie schon "offen" ist.

[Duffy]

Hallo Stonegg,
was versteckt sich denn hinter "database"? dann können wir vielleicht auch helfen!

bye
Claus

[Stonegg]

Hi,

ich vergaß zu erwähnen das die datenbank gar nicht installiert ist...

Gruß Stonegg

[Duffy]

Hallo Stonegg,

?????????????????????????????

Zitat von Stonegg:

Hi,

ich vergaß zu erwähnen das die datenbank gar nicht installiert ist...

Gruß Stonegg

bye
Claus

[Stonegg]

Hi, sorry vielleicht waren die Informationen doch ein bißchen wenig.

Und zwar da es ja vorkommen kann das der ODBC Alias vom Alias der Database nicht übereinstimmt. Um das zu überprüfen wollte ich in der try-anweisung den versuch machen darauf zu verbinden. Um dann falls es nicht möglich ist sich darauf zu verbinden in der except anweisung eine Nachricht auszugeben.

Deswegen dachte ich das wie folg machen zu können.

Delphi-Quellcode:

procedure TMfsLogin.FormCreate(Sender: TObject);
var
   Datenbank : TDatabase ;

begin
  try

    with Datenbank do
    connected := true;

    except
      Showmessage('Geht Nicht');
    end;

So ich hoffe nun ist ein wenig verständlicher.

Sorry


Gruß Stonegg

[Duffy]

Hallo Stonegg,
versuch es mal so ...

Delphi-Quellcode:

procedure TMfsLogin.FormCreate(Sender: TObject);
var
   Datenbank : TDatabase ;

begin
  Datenbank := TDatabase.Create;
  try

    with Datenbank do
    connected := true;

    except
      Showmessage('Geht Nicht');
    end;

bye
Claus

[Stonegg]

Hi Duffy, danke erstmal..

Die eine exception ist weg, nun krieg ich aber ne exception mit der meldung Datenbank nicht gefunden. Verstehe ich etwas falsch ?? Aber normalerweise sollte er doch nun bei einer Fehlermeldung in die except anweisung springen ??

Gruß stonegg

[nailor]

führ das prog mal nicht aus der ide heraus aus

[Duffy]

Hallo Stonegg,
denk bitte daran, wenn Du die Database so wie im Code aufgezeigt kreierst, daß Du alle benötigtigten Parameter auch im Code, wie zum Bsp. den Datenbanknamen, setzen mußt.

bye
Claus