Delphi-PRAXiS - Delphi Datenbank per Code umbenennen

Zitat:

Zitat von Nuclear-Ping

Wie schon gesagt wird deine ganze Anwendung der Prozess sein, der den Zugriff verhindert. Vielleicht ist ZEOS oder dein SQlite Server auch nur so eingerichtet, dass sie die Datei so öffnen, dass kein geteilter Zugriff ermöglicht wird?

Daher der Vorschlag:
- Anwendung erzeugt Batch, startet Batch und beendet sich selber
- Batch:
--- Warten, bis Anwendung wirklich zu ist
--- REN[list=1] <newdb>
--- Anwendung.exe
- Anwendung löscht Batch

Danke für den Vorschlag, aber das ist mir zu umständlich für diese "einfache" Funktionalität. Dann laß ich lieber kein Umbenennen zu :(

Was ZEOS oder SQLite angeht: Mir ist dort keine Einstellung bekannt, die dieses Verhalten ändert.

...

Ich hab' jetzt mal ein Testprojekt aufgesetzt und siehe da es funktioniert (Ich war mir auch sicher das es vorher schonmal funktioniert hat). Stellt sich nun also die Frage warum funktioniert es nicht im eigentlichen Projekt??? :wall:

Hier mal ein wenig Code und Hintergrund:

Ich öffne die Datenbank so:

Delphi-Quellcode:

			function TMasterDB.OpenCatalog(AOwner: TComponent; ACatalogName: Widestring): TCatalog;

begin

  Result := TCatalog.Create(AOwner, ACatalogName, '', False);

  if Assigned (Result) then

      FListedCatalogs.Add(Result); // TObjectlist (zur Verwaltung der Datenbankknoten im VST 

                                   //(Anzeigeelemnent für DB und Datensätze)

end;

Definition TCatalog:

Delphi-Quellcode:

			type

  TCatalog = class(TDataModule)

    ConDB: TZConnection;

  private

    fCatID      : Cardinal;        // MasterDB-ID

    fCatName    : WideString;      // Name (VST OnGetText)

    fCatDescr   : Widestring;  // Beschreibung (VST OnHint)

    procedure SetCatalogID(const Value: Cardinal);

    procedure SetCatalogName(const Value: Widestring);

    procedure SetCatalogDescr(const Value: Widestring);

    function CreateCatalog: Boolean;

  public

    property CatalogID: Cardinal read fCatID write SetCatalogID;

    property CatalogName: Widestring read fCatName write SetCatalogName;

    property CatalogDescr: Widestring read fCatDescr write SetCatalogDescr;

    constructor Create(AOwner: TComponent; AName: WideString; ADesc: WideString;

      New: Boolean = True); overload;

    destructor Destroy; override;

    function Open: Boolean;

    function Close: Boolean;

end;

{==============================================================================

  Datenbankverbindung herstellen (Vorhandene DB)

===============================================================================}

function TCatalog.Open: Boolean;

begin

  Result := False;

  // Katalog öffnen (verbinden)

  with conDB do

    try

      Database := pyPathes.DBPath + fCatName + pyCatDBExt;

      Connect;

      Result := Connected;

    finally

//

    end;

end;

{==============================================================================

  Datenbankverbindung schliessen

===============================================================================}

function TCatalog.Close: Boolean;

begin

  ConDB.Disconnect;

  Result := not ConDB.Connected;

end;

{==============================================================================

  Anlegen Neue DB

===============================================================================}

function TCatalog.CreateCatalog: Boolean;

var

  OK: Boolean;

begin

  Result := false;

  OK := False;

  // Katalog anlegen

  with conDB do

    try

      Database := pyPathes.DBPath + fCatName + pyCatDBExt;

      Connect;

      with TZQuery.Create(nil) do

        try

          Connection := conDB;

          // Tabelle Prog internas

          SQL.Add('CREATE TABLE [tblInternal] (');

          SQL.Add('[IntType] INTEGER NOT NULL DEFAULT 1,');     // MasterDB(0) oder Katalog(1) oder ReferenzDB(2)

          SQL.Add('[IntProgVersion] TEXT NOT NULL,'); // Erstellt mit Pythia Version

          SQL.Add('[IntDBVersion] TEXT NOT NULL,');   // Datenbankversion

          SQL.Add('[IntSQLVersion] TEXT NOT NULL,');  // Erstellt mit SQLite Version

          SQL.Add('[IntMagic] TEXT NOT NULL,');        // Magicnr der MasterDB (wird bei jedem ERZEUGEN der MasterDB neu angelegt)

          SQL.Add('[IntCatCreation] DATE NOT NULL,');        // Katalog erstellt am/um

          SQL.Add('[IntCatLastChange] DATE NOT NULL,');        // Letzte Änderungen im Katalog am/um

          SQL.Add('[IntCatDescr] TEXT NULL');        // Beschreibung des Katalogs

          SQL.Add(');');

          // 

          // Erzeugung weiterer Tabellen

          //   

          // Zeitpunkt der Erstellung und Versionsnr. eintragen

          SQL.Add('INSERT INTO tblInternal');

          SQL.Add('(IntProgVersion, IntDBVersion, IntSQLVersion, IntMagic, IntCatCreation, IntCatLastChange)');

          SQL.Add(' VALUES (:AVersion, :ADBVersion, :ASQLVersion, :AMNr, DATETIME(''now''), DATETIME(''now''));');

          ParamByName('AVersion').Value := pyVersion.ProgVersion;

          ParamByName('ADBVersion').Value := pyVersion.DBVersion;

          ParamByName('ASQLVersion').Value := pyVersion.SQLiteVersion;

          ParamByName('AMNr').Value := pyVersion.MagicNo;

          ExecSQL;

          OK := True;

        finally

          Free;

        end;

    finally  // ConDB

      Disconnect;

    end;

    Result := OK; // Alles gut gelaufen

end;

{==============================================================================

  Erzeugen des Objektes und Anlegen des Katalogs

===============================================================================}

constructor TCatalog.Create(AOwner: TComponent; AName: WideString;

                            ADesc: WideString; New: Boolean);

begin

  inherited Create(AOwner);

  fCatName := AName;

  fCatDescr := ADesc;

  if not New then 

    Open

  else begin

    CreateCatalog;

  end;

end;

destructor TCatalog.Destroy;

begin

  inherited Destroy;

end;

Hier die Routine zum Umbenennen:

Delphi-Quellcode:

			function TMasterDB.RenameCatalog(ACatalog: TCatalog;

  ANewCatName: Widestring): Boolean;

var

  ACatID: Cardinal;

  fo, fn: WideString;

begin

  Result := False;

  fo := pyPathes.DBPath + ACatalog.CatalogName + pyCatDBExt;

  fn := pyPathes.DBPath + ANewCatName + pyCatDBExt;

  // Umbenennen nur möglich wenn Verbindung getrennt

  // (Öffnen erst wieder bei einer Aktion am Katalog)

  if ACatalog.Close then begin

    if WideRenameFile(fo, fn) then begin

      // Datei erfolgreich umbenannt => auch in MasterDB umbenennen?

      if RenameCatalogEntry(ACatalog.CatalogID, ANewCatName) then begin

        ACatalog.CatalogName := ANewCatName;

      end

      else

        WideRenameFile(fn, fo); // Umbenennen in MasterDB fehlgeschlagen -> zurück zum ursprünglichen Namen

    end;

  end;

end;

Die Datenbanken (Typ TCatalog) werden über eine Objektliste verwaltet. D.h. jedesmal wenn ein TCatalogObject erzeugt wird, wird es der Objektliste FlistedCatalogs hinzugefügt. Wie oben zu sehen ist, hat jedes TCatalog auch eine Eigenschaft CatalogName, die im VST zur Anzeige benutzt wird.

Vor der Umstellung gab es keine TObjectlist, sondern nur eine StringList mit den Namen der vorhandenen DB's. Die Daten für das VST, die nun aus dem Object TCatalog kommen, kamen vorher aus Record's.

Liegt vielleicht hier der Hase im Pfeffer begraben??? Klappt es wegen der Objectlist nicht??? Müsste nur 'ne Kleinigkeit am Code / Design umgestellt werden ???

Ach ja, es gibt noch eine MasterDB, in der die Namen und eine ID pro DB verwaltet werden. Aus diesem Modul kommt auch der Aufruf

Delphi-Quellcode:

			RenameCatalog(ACatalog: TCatalog;

  ANewCatName: Widestring)