Lancer une sauvegarde d'une base SQL serveur depuis VB

Question

Bonjour a tous

Je cherche des infos pour effectuer une sauvegarde d'une base SQL Serveur depuis un programme vb6.

Il semble qu'il faut utliser les fonctions "BACKUP DATABASE" ou "RESTORE DATABASE" mais comment les mettre en place : 
- Dans une requete SQL, stock&#233; dans une commande : &#231;a passe pas avec mes essai , une id&#233;e pour m'eclairer
- Dans une procedure stock&#233;e : &#231;a passe pas non plus 

Voici ce que j'ai trouv&#233;e dans l'aide SQL Serveur :

Sauvegarde d'une base de donn&#233;es enti&#232;re :


BACKUP DATABASE { database_name | @database_name_var } 
TO < backup_device > [ ,...n ] 
[ WITH 
    [ BLOCKSIZE =   {  blocksize  |  @ blocksize_variable } ] 
    [ [ , ] DESCRIPTION   = { 'text' | @text_variable } ] 
    [ [ , ] DIFFERENTIAL ] 
    [ [ , ] EXPIREDATE =   {  date  |  @ date_var } 
        | RETAINDAYS   = { days | @days_var } ] 
    [ [ , ] PASSWORD =   {  password  |  @ password_variable } ] 
    [ [ , ] FORMAT | NOFORMAT ] 
    [ [ , ] { INIT | NOINIT } ] 
    [ [ , ] MEDIADESCRIPTION   = { 'text' | @text_variable } ] 
    [ [ , ] MEDIANAME =   {  media_name  |  @ media_name_variable } ] 
    [ [ , ] MEDIAPASSWORD   = { mediapassword | @mediapassword_variable } ] 
    [ [ , ] NAME = { backup_set_name | @backup_set_name_var } ] 
    [ [ , ] { NOSKIP | SKIP } ] 
    [ [ , ] { NOREWIND | REWIND } ] 
    [ [ , ] { NOUNLOAD | UNLOAD } ] 

merci de votre aide

yannick

jrivet · Answer

Salut,

J avais essayer moi aussi de lancer des backup de base de donnees en passant par ses fonctions mais j ai vite arreter car je n ai jamais reussi et car j ai trouve ca

Microsoft SQLDMO Object Library.

Cette reference te permet de pouvoir utiliser depuis ton programme VB les objets suivants

- SQLServer
- SQLDMO.Backup
- SQLDMO.Restore

Voila essaie de regarder si ca peut t aider.

@+
Julien
-----------------------------------------------------------
 Essaie ca sinon on trouvera autre chose 
-----------------------------------------------------------

cs_RJMS · Answer

dans la section d&#233;claration d'un module fe form

Ins&#232;re ceci 

Dim WithEvents varBak As SQLDMO.Backup2

' Ceci va cr&#233;er trois &#233;v&#233;nements pour cet objet
' Dans une proc&#233;dure click d'un bouton ins&#232;re ceci

Dim varBakVrai As SQLDMO.Backup2
Set varBakVrai = New SQLDMO.Backup2
Set varBak = varBakVrai


Dim Serveur As SQLDMO.SQLServer2              'Cr&#233;e une instance de SQLServer
Set Serveur = New SQLDMO.SQLServer2


Serveur.Connect srv, usr, pss    'Connexion au serveur

varBakVrai.Database = "Nom de la base de donn&#233;es"
varBakVrai.Files = "[Chemin du fichier de sauvegarde]"

varBakVrai.SQLBackup Serveur    ' Appelles la m&#233;thode SQLBackup du Serveur SQL que tu as instanci&#233;

' Dans les trois &#233;v&#233;nements cr&#233;&#233;s par la d&#233;claration en haut, ins&#232;re ceci

Private Sub varBak_Complete(ByVal Message As String)
Exit Sub
End Sub


Private Sub varBak_NextMedia(ByVal Message As String)
Exit Sub
End Sub


Private Sub varBak_PercentComplete(ByVal Message As String, ByVal Percent As Long)
PRG.Value = Percent
End Sub

PRG &#233;tant un progressbar

-------------
Cependant si tu veut insister sur l'ex&#233;cution d'un script, &#224; partir de l'objet serveur que tu as cr&#233;e, appelle la m&#233;thode ExecuteImmediate avec comme argument tout script SQL que tu puisse imaginer et tu verras la magie

-------------
Pourvu que je n'arrive pas trop tard pour t'aider vu que je vis &#224; MADAGASCAR
Trop loin
Tchao ! RIJA RABE

cs_RJMS · Answer

PS :

Fais de m&#234;me pour la Restore

cs_RJMS · Answer

PS :

Fais de m&#234;me pour la Restore

Lancer une sauvegarde d'une base SQL serveur depuis VB

4 réponses

Discussions similaires