compactage d'une base de données access 2007

bonjour

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

voilà le bout de code que j'utilise

Code:

---

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

Citation:

---

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.

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

Code:

---

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

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

Code:

---

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 à +