Réparer une bdd access

Question

Bonjour,
Je dois modifier un projet existant car il y a des soucis avec la base de donn&#233;es et de temps en temps il est n&#233;cessaire de la r&#233;parer.

Or d'apr&#232;s ce que j'ai vu d'apr&#232;s le mod&#232;le DAO 3.51 il existe une m&#233;thode repairdatabase mais le projet a &#233;t&#233; fait d'apr&#232;s le mod&#232;le DAO 3.6 et cette m&#233;thode n'existe pas. Donc est ce qu'il y a un autre moyen dans la 3.6 de r&#233;parer une base de donn&#233;es ou si je dois utiliser la 3.51? et dans ce cas est ce que le reste du projet va fonctionner?

Merci

cs_ketchoupi · Answer

salut,

Cela d&#233;pend du type de base que tu utilise mais pour une base en access 97 pas souci. Moi j'avais la m&#234;me probl&#232;matique avec un logiciel apibat en access 97 (980 Mo) qui cassai r&#233;gulierement. Et j'ai fai un petit utilitaire qui marche tres bien. si cela t'interresse dis le moi.

Ketchoupi

Soulant · Answer

Salut,
Merci de ta r&#233;ponse mais le code pour r&#233;parer la base de donn&#233;es, qui est au format access 97, je l'ai &#233;crit et il marche. Mais le seul probl&#232;me c'est que j'ai utiliser la DAO 3.51 pour r&#233;parer la base de donn&#233;es et je ne suis pas s&#251;r qu'ensuite le projet existant fonctionne en 3.51 alors qu'il a &#233;t&#233; &#233;crit avec la 3.6.

Et ce qui m'arrange ce serait d'int&#233;grer le code "r&#233;parateur" au code existant que ce soit transparent pour l'utilisateur, qu'il est pas un outil &#224; cot&#233;. Donc si tu peux me confirmer que le code fait avec la DAO 3.6 est compatible avec la DAO 3.51, alors je passe mon projet avec cette derni&#232;re. Sinon si ton code "r&#233;parateur" fonctionne avec la DAO 3.6 alors je suis preneur pour l'int&#233;grer &#224; mon application.

Merci encore.

cs_ketchoupi · Answer

re, 

Je vien de tester mon appli en changeant la reference DAO 3.51 en 3.6 appriori pas de souci  la reparation c bien pass&#233;. Mais si tu le souhaite tu peut m'envoyer ton projet pour que j'y jete un coup d'oeil.

'-------------------------------------------------------------
Dim pathmdb
Dim old
Dim today


Open "journal.dat" For Append As #1


pathmdb = CopyFile.Filepath.Text
old = App.path + "\old.mdb"


Label1.Caption = "..."
On Error Resume Next


Screen.MousePointer = vbHourglass
Label1.Caption = "R&#233;paration en cours"


today = Now
Write #1, today, "  ", "D&#233;but de la r&#233;paration de la base ", pathmdb


DoEvents


RepairDatabase (pathmdb)


today = Now
Write #1, today, "  ", "R&#233;paration de la base ", pathmdb, "  termin&#233;e"
today = Now
Write #1, today, "  ", "D&#233;but du compactage de la base ", pathmdb



If Len(Dir$(pathmdb)) > 0 Then Kill (old)
CompactDatabase (pathmdb), (old), dbLangGeneral
Kill pathmdb
FileCopy old, pathmdb
Screen.MousePointer = vbDefault


Label1.Caption = "R&#233;paration et compactage termin&#233;"


today = Now
Write #1, today, "  ", "Compactage de la base ", pathmdb, "  termin&#233;e"



Dim sauvegarde As String
sauvegarde = "[file://\bibliotheque\Disque \bibliotheque\Disque] dur\dossier apibat\batig" + today + ".mdb"


FileCopy pathmdb, sauvegarde


         '-------------------------------------------------------------

Ketchoupi

Soulant · Answer

Merci.

J'ai pas l'application, j'ai envoy&#233; mon code &#224; une personne qu'elle le teste dans l'application pour voir ce que ca donne.

Je te tiens au courant.

Réparer une bdd access

4 réponses

Discussions similaires