Discussion :

[modafine]

Bonjour a tous,

Je veux bien compacter une base de données access. J'ai développer le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Public Sub compress_db(database_path As String)
Dim fs As New FileSystemObject
 
Dim je As New jro.JetEngine
 
Dim l_strNewDatabasePath As String
 
On Error GoTo exit_sub
 
l_strNewDatabasePath = database_path + ".new"
Set je = New jro.JetEngine
 
' compact .mdb towards .new
If fs.FileExists(l_strNewDatabasePath) Then
    fs.DeleteFile l_strNewDatabasePath, True
End If
je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + database_path, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + l_strNewDatabasePath + ";Jet OLEDB:Encrypt Database=True"
 
' traitement ..........
 
exit_sub:
    fs.DeleteFile l_strNewDatabasePath
    Exit Sub
 
End Sub

Le probleme est le suivant: lorsque le programme arrive à l'instruction qui fait le compactage de la base de données (je.CompactDatabase "Provider= .....) il ne termine pas le reste du traitement il saute directement vers exit_sub et exécute l'instruction: "fs.DeleteFile l_strNewDatabasePath"

Merci pour votre aide.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo exit_sub

aller à la ligne exit_sub si il se produit une erreur, donc a la suite de cette ligne, normalement on traite l'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & database_path, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_strNewDatabasePath & ";Jet OLEDB:Encrypt Database=True"
 
' traitement ..........
 
    fs.DeleteFile l_strNewDatabasePath
 
Exit Sub
 
exit_sub:
Debug.Print "Erreur N°" & Err & vbCrLf & "description:" & vbCrLf & Err.Description
 
End Sub

il saute directement vers exit_sub et exécute l'instruction, ......

normal, tu dois avoir une erreur de syntaxe et/ou dans l'un de tes paramétres a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & database_path, _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_strNewDatabasePath & ";Jet OLEDB:Encrypt Database=True"

[modafine]

merci,
mais c'est ça ma question, j'ai compris qu'il y une erreur dans cette ligne mais j'arrive pas à trouver l'erreur et pour cela j'ai posté cette discussion.

le compactage se fait de cette façon mais ça marche pas pour mon cas.

est ce quelqu'un peut me guider sur la source de l'erreur.

Merci d'avance.

[OhMonBato]

Enleve donc la ligne "on error goto..." et regarde quelle erreur se produit.

[modafine]

Merci,

j'ai enlevé la ligne "On Error GoTo exit_sub"

le programme sort de la procédure dès qu'il exécute cette instruction.

J'attends votre aide. Merci.

[ProgElecT]

Si tes chemins/noms de source et destination sont correctes, regardes les liens proposés ICI post 3 et 4
Il semblerait que Jet OLEDB:Encrypt Database=True doit être remplacé par Jet OLEDB:Engine Type=4

[Mr NGANZI]

Bonjour

voici une procedure qui te permettra de compacter ta base de donnée sans problème. Colle la dans un module de ton programme. Tu pourras alors l'appeller au niveau ou tu veux compacter ta bdd.

Databasepath est le chemin de la base, ex:"C:\Projets\Projet1"
Databasename est le nom de la base, ex:"Base.mdb"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub CompactDB(DatabasePath As String, DatabaseName As String)
    'renommage de la base -> tempMdb
    Name DatabasePath & "\" & DatabaseName As DatabasePath & "\tmp.mdb"
 
    'compactage de la bdd
    Call DBEngine.CompactDatabase(DatabasePath & "\tmp.mdb", DatabasePath & "\" & DatabaseName)
 
    'suppression base temp
    Kill DatabasePath & "\tmp.mdb"
End Sub

[modafine]

Merci ,

j'ai essayé la procédure que vous m'avez donner mais le probleme existe encore, le programme exécute les instructions de exit_sub dès qu'il se trouve au niveau de cette instruction: Name DatabasePath & "\" & DatabaseName As DatabasePath & "\tmp.mdb"

[modafine]

est ce que le probleme vient du fait que la base de données source est fermée lors du compactage ou bien parce que la base de donnee destination n'est pas créée lors du compactage. Si quelqu'un connait la réponse?

Merci d'avance.

[Mr NGANZI]

supprime carrement toute ta procedure compress_db et au meme endroit fait un Call CompactDB(..) -ma procedure- avec les bon parametres correspondants.

[modafine]

j'ai eu le meme résultat.