<![CDATA[[ADO] Datenbank koprimieren]]>Hallo,

ich greife per ADO auf eine Access Datenbank zu. Diese wird mit der Zeit sehr
gross. In Access kann man "Datenbank koprimieren und reparieren" wählen.

Kann man diese Funktion über ADO irgerndwie erledigen?

]]>https://www.c-plusplus.net/forum/topic/116466/ado-datenbank-koprimierenRSS for NodeThu, 23 Jul 2026 22:46:19 GMTWed, 27 Jul 2005 10:23:20 GMT60<![CDATA[Reply to [ADO] Datenbank koprimieren on Wed, 27 Jul 2005 10:23:20 GMT]]>Hallo,

ich greife per ADO auf eine Access Datenbank zu. Diese wird mit der Zeit sehr
gross. In Access kann man "Datenbank koprimieren und reparieren" wählen.

Kann man diese Funktion über ADO irgerndwie erledigen?

]]>https://www.c-plusplus.net/forum/post/839789https://www.c-plusplus.net/forum/post/839789Wed, 27 Jul 2005 10:23:20 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Wed, 27 Jul 2005 11:30:04 GMT]]>Hallo

sollte doch eigentlich per SQL-Befehl (Access) funktionieren
(irgendwas mit "compact" ?)

MfG
Klaus

]]>https://www.c-plusplus.net/forum/post/839836https://www.c-plusplus.net/forum/post/839836Wed, 27 Jul 2005 11:30:04 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Wed, 27 Jul 2005 11:39:59 GMT]]>Ich hab da mal irgendwann was drüber gelesesn, aber ich weiß nicht mehr wo...
Aber soweit ich mich erinnere, benötigt man dazu die Microsoft Jet and Replication Objects Library und dann konnte man daraus die Funktion CompactDatatbase verwenden.

]]>https://www.c-plusplus.net/forum/post/839868https://www.c-plusplus.net/forum/post/839868Wed, 27 Jul 2005 11:39:59 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Wed, 27 Jul 2005 22:07:19 GMT]]>void CompactDatabase(String f1,String psw1,String f2,String psw2) { String Provider1="Provider=Microsoft.Jet.OLEDB.4.0" ";Data Source="+f1+ ";Jet OLEDB:Database Password="+psw1; String Provider2="Provider=Microsoft.Jet.OLEDB.4.0" ";Data Source="+f2+ ";Jet OLEDB:Database Password="+psw2; Variant Adoobj=Variant::CreateObject("JRO.JetEngine"); Adoobj.OleProcedure("CompactDatabase",Provider1.c_str(),Provider2.c_str()); remove(f1.c_str()); rename(f2.c_str(),f1.c_str()); } ]]>https://www.c-plusplus.net/forum/post/840432https://www.c-plusplus.net/forum/post/840432Wed, 27 Jul 2005 22:07:19 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Thu, 28 Jul 2005 16:58:17 GMT]]>Danke, es kommt leider ein Fehler: 'Ausnahmefehler aufgetreten'
ich probier noch ein wenig evtl. mach ich es per Kommandozeile.

]]>https://www.c-plusplus.net/forum/post/840998https://www.c-plusplus.net/forum/post/840998Thu, 28 Jul 2005 16:58:17 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Fri, 29 Jul 2005 00:37:45 GMT]]>Der Ausnahmefehler kommt dann, wenn du bei f2 (Destination) den gleichen Filenamen verwendest wie bei f1(Source).
Die Funktion komprimiert die Datenbank mit dem Namen(Pfad) f1 und speichert diese dann unter dem Namen(Pfad) f2 ab.
Darum dann auch das remove und rename.

]]>https://www.c-plusplus.net/forum/post/841205https://www.c-plusplus.net/forum/post/841205Fri, 29 Jul 2005 00:37:45 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Fri, 29 Jul 2005 04:01:46 GMT]]>ich hab es so versucht:

bool __fastcall CDatabase::CompactDatabase()
{
    bool bReturn = false;

    try {
        Close();

        AnsiString sFile1 = sFileName;
        AnsiString sFile2 = sFileName + ".tmp";

        String Provider1="Provider=Microsoft.Jet.OLEDB.4.0"
        ";Data Source="+sFile1+
        ";Jet OLEDB:Database Password=''";
        String Provider2="Provider=Microsoft.Jet.OLEDB.4.0"
        ";Data Source="+sFile2 + ".tmp"+
        ";Jet OLEDB:Database Password=''";
        Variant Adoobj=Variant::CreateObject("JRO.JetEngine");
        Adoobj.OleProcedure("CompactDatabase",Provider1.c_str(),Provider2.c_str());

        DeleteFile(sFile1.c_str());
        RenameFile(sFile2.c_str(),sFile1.c_str());

        ReOpen();

        bReturn = true;
    } catch (...) {
        MessageDlg("Fehler beim Komprimieren der Datenbank.", mtError, TMsgDlgButtons() << mbOK, 0);
    }

    return bReturn;
};

also File1 und 2 sind auf jeden Fall unterschiedlich. File1 existiert auch.
Ein Passwort hab ich bei der Datenbank nicht vergeben.

]]>https://www.c-plusplus.net/forum/post/841210https://www.c-plusplus.net/forum/post/841210Fri, 29 Jul 2005 04:01:46 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Fri, 29 Jul 2005 08:27:34 GMT]]>Wie ruftst du CompactDatabase denn auf ?
Pfade in sFileName mit \\ ?

]]>https://www.c-plusplus.net/forum/post/841309https://www.c-plusplus.net/forum/post/841309Fri, 29 Jul 2005 08:27:34 GMT<![CDATA[Reply to [ADO] Datenbank koprimieren on Fri, 29 Jul 2005 09:28:30 GMT]]>bool __fastcall CDatabase::CompactDatabase() { bool bReturn = false; try { Close(); AnsiString sFile1 = sFileName; AnsiString sFile2 = sFileName + ".tmp"; String Provider1="Provider=Microsoft.Jet.OLEDB.4.0" ";Data Source="+sFile1+ ";Jet OLEDB:Database Password=''"; String Provider2="Provider=Microsoft.Jet.OLEDB.4.0" ";Data Source="+sFile2+ ";Jet OLEDB:Database Password=''"; Variant Adoobj=Variant::CreateObject("JRO.JetEngine"); Adoobj.OleProcedure("CompactDatabase",Provider1.c_str(),Provider2.c_str()); DeleteFile(sFile1.c_str()); RenameFile(sFile2.c_str(),sFile1.c_str()); ReOpen(); bReturn = true; } catch (...) { MessageDlg("Fehler beim Komprimieren der Datenbank.", mtError, TMsgDlgButtons() << mbOK, 0); } return bReturn; }; ]]>https://www.c-plusplus.net/forum/post/841396https://www.c-plusplus.net/forum/post/841396Fri, 29 Jul 2005 09:28:30 GMT