Discussion :

[salimo79]

J’ai développé une application en vb6 pour sauvegarde (Backup ‘bd.bak : nom de fichier de sauvegarde de la BDD’) la base de données sql server 2005.système utilisé windows server 2003.
L’application contient deux (02) boutons le premier pour selectionner l’emplacement (sur le disk -C ,D,E- et le dossier contennant le fichier backup) pour sauvegarder la BDD ,et le deuxième bouton pour sauvegarder la BDD(faire le Backup).
Le problème est que lorsque j’ai selectionné l’emplacement par exemple C :\bd.bak , C:\Documents and Settings\ bd.bak, C:\Documents and Settings\Administrateur\Bureau\bd.bak ou un dossier dans le bureau ou dans Mes document ou D:\ bd.bak ,l’opération de sauvegarde et réussite mais le fichier de backup ne se trouve pas dans les emplacements ci-dessus
Par contre lorsque j’ai selectionné l’emplacement par exemple C :\Doc\bd.bak ou dans D :\Doc\bd.bak (Doc est un dossier crée), l’opération de sauvegarde est réussite et le fichier de backup se trouve dans les emplacements citées.
comment résoudre cet problème ?

[Delbeke]

Heu, sans voir ce que tu fais, difficile de trouver ce qui cloche

Montre nous le code qui exècute la sauvegarde

[salimo79]

salut,
le code est comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Set rec= New ADODB.Recordset
Set cn1 = New ADODB.Connection
If cn1.State = 1 Then cn1.Close
Cn1.Open "provider=sqloledb;server=***;database=db;uid=sa;pwd=*******"
rec.Open "BACKUP DATABASE  db " & " TO DISK ='" & Text1.Text & "\" & " db.bak'", cn1
MsgBox "Backup evec  succés"
Cn1.Close
End sub

[ThierryAIM]

Pour C:\bd.bak, c'est normal
La racine renvoie toujours le \ donc avec ta requête, ça fait C:\\bd.bak
une petite fonction pour ça :

Code :

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

1
2
3
4
Public Function AddSlash(ByVal SlashStr As String) As String
    If Right(SlashStr, 1) <> "\" Then SlashStr = SlashStr & "\"
    AddSlash = SlashStr
End Function

a utiliser comme ça:

Code :

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

rec.Open "BACKUP DATABASE  db " & " TO DISK ='" & AddSlash(Text1.Text) & "db.bak'", cn1

Pour les autres cas, je soupçonne un pb avec les espaces dans le chemin