Discussion :

[djelloharmel]

bonjour

je cherche à compacter une base de données access 2007

voilà le bout de code que j'utilise

Code :

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

1
2
Dim jro As New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL.accdb;Persist Security Info=True;Jet OLEDB:Database Password=gnian galliet", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL_TMP.accdb;Persist Security Info=True;Jet OLEDB:Database Password=gnian galliet;Jet OLEDB:Engine Type=5")

à l'exécution, il me ramène cette erreur

Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.

Je vous prie de m'aider à réussir ce compactage.

[djelloharmel]

bonjour.
j'ai laissé access 2007 à 2003.

Code :

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

1
2
Dim jro As New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.4.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL.mdb;Jet OLEDB:Database Password=gnian galliet", "Provider=Microsoft.ACE.OLEDB.4.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL_TMP.mdb;Jet OLEDB:Database Password=gnian galliet;Jet OLEDB:Engine Type=5")

sauf que j'ai toujours un pépin

[hugoclo]

Salut,
Petite question bête as tu ajouté : Microsoft Jet and Replication Objects X.X library dans les références de ton projet.
Ou regarde ici ils disent : N'utilisez pas le mot clé « Persist Security Info » dans votre chaîne de connexion ADO

[djelloharmel]

Code :

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

1
2
3
4
Dim jro As New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL.mdb;Jet OLEDB:Database Password=gnian galliet", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\LGHI\PAIE ET GRH\BD_PPAL_TMP.mdb;Jet OLEDB:Database Password=gnian galliet;Jet OLEDB:Engine Type=5")
Kill("C:\LGHI\PAIE ET GRH\BD_PPAL.mdb")
File.Move("C:\LGHI\PAIE ET GRH\BD_PPAL_TMP.mdb", "C:\LGHI\PAIE ET GRH\BD_PPAL.mdb")

Et voilà, la base de données "C:\LGHI\PAIE ET GRH\BD_PPAL.mdb" est compactée.

Mille mercis et à +