VB6-Err70 permission refusée sur FileCopy d'une DB ADO

Je tourne depuis deux jours sur un pb en VB6.

J'ai une data base ADO, ouverte avec une connection "Conn" qui fonctionne sans problème.

J'ai besoin d'en faire une copie. J'ai écrit:

Code:

---

1 2 3 4 5 6

dim MdlName as string MdlName = "d:\backup\SavedDB.mdb" If FileExists(MdlName) Then Kill MdlName conn.Close Set conn = Nothing FileCopy CURRENT, MdlName

---

Je récolte une erreur 70 "Permission refusée" sur l'instruction FileCopy
Tout se passe comme si la connection n'était pas fermée.
J'ai essayé un tas de choses, comme un DoEvents après conn.close , mais rien n'y fait.

Quelqu'un a-t-il une idée ?

JMCahard

Salut, et bienvenue sur ce forum,

L'instruction Kill de ton backup a-t-elle correctement fonctionné ? D'ailleurs, par sécurité, tu devrais le renommer plutôt que le suppimer, non ?
Qu'as-tu dans la variable CURRENT au moment de ton erreur ?
Si tu essayes la copie manuellement à ce moment, y-arrives-tu ?

Je suppose qu'il manque un "=" dans la 2° ligne du code que tu nous a fourni ;)

Bonjour,

Oui le Kill fonctionne bien. D'ailleurs dans mes tests il n'est pas exécuté car le fichier n'existe pas.

2eme ligne: le signe = a disparu, mais il est bien dans le code

la variable CURRENT contient "d:\data\idx00023.MDB"

Une copie "manuelle" sous windows, alors que le prog. VB est stoppé sur le message 70, se fait sans problème.

Merci de ton aide

Imaginons que tu mettes un point d'arrêt dans ton code sur le Conn.Close : la copie manuelle fonctionne-t-elle toujours à ce moment ? Je pense que non ...

Si je te propose ceci, c'est parce que MSDN dit ceci :

Citation:

---

Vous avez tenté d'écrire dans un fichier qu'un autre processus a verrouillé.
Attendez que l'autre processus libère le fichier pour l'ouvrir.

---

Peut-être qu'un simple Sleep résoudrait ton problème ?

J'ai trouvé !

La connexion ADO est bien fermée, MAIS, dans un coin obscur de l'application il y a cette instruction:

Citation:

---

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CURRENT_DB_FILE & ";"

---

Il m'a suffit d'ajouter, au bon endroit:

Citation:

---

Set cat = Nothing

---

pour tout débloquer.

Je me sens mieux. :D