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

**JM Cahard** · 03/01/2006, 01h07

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 :

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

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

Xo · 03/01/2006, 09h56

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

**JM Cahard** · 03/01/2006, 11h27

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

Xo · 03/01/2006, 14h05

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 :

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 ?