DB-Programm auf anderem PC ausführbar machen...

[marabu]

Guten Morgen,

Backslash heißt der nach links gekippte Schrägstrich und der wird im Windows Dateisystem verwendet. Aus bestimmten Gründen (z.B. Portabilität) schreibt man ihn nur selten selbst und verwendet nach Möglichkeit die Funktion IncludeTrailingPathDelimiter().

Werden Datenbanken zur Laufzeit konfiguriert, dann werden die zugehörigen Dataset-Komponenten (Table, Query) im geschlossenen Zustand erzeugt - deshalb musst Active nicht erst auf False gesetzt werden. Das würde auch nicht mehr helfen, weil ja bereits ein Zugriff auf eine nicht vorhandene Datenbank erfolgt wäre.

Wenn du den Speicherort (Verzeichnis) deiner Datenbank öfter (z.B. für Queries) benötigst, dann würde ich ihn mir in einer globalen Variable merken und nicht jedesmal neu bestimmen.

Die Steuerzeichenfolge zum Trennen von Textzeilen ist #13#10 oder besser sLineBreak.

Wenn in einer Query ein Tabellenname unbekannt ist, dann musst du mal genau hinschauen - in der Regel gibt es dann dieses Datenbankobjekt auch nicht, meistens weil du dich verschrieben hast oder die Datenbank noch leer ist.

Delphi-Quellcode:

resourcestring
  S_RELDBFOLDER = 'db';
  S_DBNAME      = 'db.tdbd';
  S_DBNOTFOUND  = 'Datenbank nicht gefunden:'#13#10'%s';

procedure ShowError(msg: string);
begin
  if not QuietMode then
    MessageBeep(0);
  ShowMessage(msg);
end;

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  self.DatabaseName := IncludeTrailingPathDelimiter(
      ExtractFilePath(ParamStr(0)) + S_RELDBFOLDER) + S_DBNAME;
  try
    TdbTable1.DatabaseName := self.DatabaseName;
    TdbTable1.Open;
  except
    ShowError(Format(S_DBNOTFOUND, [self.DatabaseName]));
  end
end;

Grüße vom marabu