Forum: Datenbanken
Delphi
by sakura,
11. Feb 2004
Nee, nicht noch ein Neewbee in unsrren Reihen :mrgreen:
Im Ernst, wenn hier jemand schimpft, dann bitte sofort anprangern, selbst wenn es der Chef persönlich ist. Wir wollen uns doch alle hier wohlfühlen.
...:cat:...
Forum: Datenbanken
Delphi
by sakura,
11. Feb 2004
Erst einmal als allgemeine Regel: nie mit True oder False vergleichen.
procedure TForm1.FormShow(Sender: TObject);
var DSN: string;
begin
if ReadDSNFromRegistry(DSN) then begin
if DataModule2.SetMeineAnwendungDSN(DSN) then
begin
if not DataModule2.OpenDatabase then begin
MessageDlg('Es konnte keine Verbindung zur Datenbank '+