Mal abgesehen davon daß der Fehler nicht von ADS ausgegeben wird.
IsConnected :=True; ist der letzte Befehl bevor die Tabellen geöffnet werden.
Du kannst doch bei einer offenen Connection nicht noch Pfade und andere grundsätzlichen Einstellungen ändern !
Loginpromp und Servertypen kannst du doch auch schon im Objektinspektor festlegen.
Und wieso schließt du die Tabellen ? Wenn die Connection nicht aktiv ist, werden alle Tabellen geschlossen. D. H. wenn du alle Tabellen schließen willst, mach die Connection zu.
noch dazugefügt:
Code:
with DM.TInteressen do
begin
DM.TInteressen.TableName := 'Interessen.adt'; // Tabellen Name
Active := TRUE;
end;
Hast du da mit der with-Anweisung nicht doppelt gemoppelt ?
Und um noch mal auf die erste Antwort von APP zurückzukommen:
Code:
If DM.AdsConnection1.IsConnected = True then DM.AdsConnection1.IsConnected := false;
sollte deine erste Zeile sein um sicher zu gehen.
Karsten