backup base sql 2008 express

Version imprimable

10/11/2012, 00h31
menfoutix

backup base sql 2008 express

Bonjour à tous
j'aimerais savoir comment faire pour sauvegarder une base sql 2008 express avec Visual 2010
ce que j'aimerais c'est que dans mon appli je mette le nom de ma base à sauvegarder dans un textbox et quand l'appli se lance pour la sauvegarde il va voir le textbox pour savoir quoi sauvegarder
et aussi je pense qu'il faudrait mettre l'utilisateur et le mot de passe pour se connecter à la base dans 2 textbox
d'habitude j'utilise le sql agent mais sur de l'epxress on peut pas ou sinon des batch mais là je voudrais faire quelques choses de mieux

je sais pas si j'ai réussi à me faire comprendre et votre aide serait bien utile

encore merci
10/11/2012, 14h39
Pol63

exécutez la requête suivante de la même manière qu'on exécute une requête de type insert ou autre :

Code:

backup database nom_base to disk = 'c:\dossier\ma sauvegarde.bak'
11/11/2012, 01h07
menfoutix

bonjour pol63 et merci

je connais cette requête c'est la même que j'utilise dans les batch
mais à moins que j'ai pas compris la réponse mais comment je mets cette dans un textbox
car dans ma textbox je voudrais mettre le nom de la base que je veux sauvegarder en mémoire par exemple pour des sauvegardes périodique et ainsi changer car j'ai pas tout le temps le même nom de base

encore merci
11/11/2012, 10h13
Pol63

concaténation !?
11/11/2012, 12h31
menfoutix

Citation:

Envoyé par Pol63

concaténation !?

Désolé là je vais avoir besoin de plus d'infos
je suis désolé et merci de m'aider

version peu sécurisée :

Code:

sqlcmd.commandtext = "backup database " & TextBoxBaseName.Text & " to disk = '" & TextBoxFichierBackup.Text & "'"

à tenter :
Code:

1 2 3 sqlcmd.commandtext = "backup database @basename to disk = @path" sqlcmd.parameters.Add("@basename", TextBoxBaseName.Text) sqlcmd.parameters.Add("@path", TextBoxFichierBackup.Text)

11/11/2012, 13h38
menfoutix

merci à toi

je vais essayer ça et te tenir au courant

encore merci
11/11/2012, 14h21
menfoutix
Bon voilà

j'ai utilisé la première méthode
mais rien se passe (pas de sauvegarde)
j'ai importé
Code:

1 2 Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand
j'ai déclaré sqlcmd

Code:

Dim SQLCmd As New SqlCommand()

je sais pas si cela suffit ou si c'est comme ça
désolé
11/11/2012, 15h38
Pol63

si tu ne sais pas exécuter une requete il faut évidemment commencer par apprendre à le faire ...

il faut aussi un try catch autour du code
12/11/2012, 00h03
menfoutix

bonsoir
excuse moi
mais j'ai passé toute l'après midi a regarder try catch
mais malgré toute ma bonne volonté
rien ne se passe
je suis désolé de t'embêter

merci
12/11/2012, 08h56
Pol63

code complet ?
12/11/2012, 09h11
menfoutix

oui
j'arrive bien à me connecter à mon serveur sql
et quand je met le nom de la base dans le textbox et j'essaie de sauvegarder il n'y a rien

merci encore et désolé
12/11/2012, 09h39
Pol63

non mais je veux le code complet
désolé mais je ne suis pas malheureusement pas devin donc je suis dans l'obligation de voir du code pour faire un diagnostique ...

désolé j'avais pas compris que tu voulais le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports Microsoft.SqlServer
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlCommand
 
Public Class Form1
 
    Dim connexion As New SqlConnection
    Dim SQLCmd As New SqlCommand()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            SQLCmd.CommandText = "backup database " & TextBoxBaseName.Text & " to disk = d:\backupsql\backup" & TextBoxFichierBackup.Text & "'"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
            'Création de la chaîne de connexion
            Dim connectString As String = "Server=.\sqlexpress;Database=base;User ID=user;Password=password"
            'Création de la connexion
            Dim connection As SqlConnection = New SqlConnection(connectString)
            connection.Open()
 
            If connection.State = ConnectionState.Open Then
                MsgBox("Connexion réussie", MsgBoxStyle.Exclamation, "status")
            End If
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
 
        End Try
 
 
    End Sub
 
 
End Class

Soit pas trop sévère avec moi :oops:

encore merci de ton aide

12/11/2012, 14h27
Pol63

je ne suis pas sévère envers toi mais ce que tu fais :D

il faut apprendre à coder avec de coder ...

à l'ouverture du form ton code ouvre une connexion à sql server et la referme sans rien faire
sur le bouton.click tu remplies juste une propriété string, sans exécuter la requete, donc normal que ca ne fasse rien

sqlconnection sert à ouvrir une connexion
sqlcommand sert à l'exécution de requete :
- il faut remplir CommandText (la requete) (et éventuellement Parameters s'il y a des paramètres à transmettre)
- il faut lui donner l'objet connexion à utiliser
- il faut faire executenonquery ou executereader (executereader est utile pour lire le retour d'un select) et il faut que la connexion soit ouverte pour que ca marche

le tout doit etre dans un try catch car la connexion peut ne pas s'ouvrir, la requete peut etre mal écrite et planter, la requete peut planter si sql server n'arrive pas à l'exécuter
le message d'erreur t'aidera alors à corriger le code ou la requete
12/11/2012, 19h45
menfoutix

Merci à toi

je vais voir ça et essayer d'arranger tout ça
avec mes batch ça marche très bien mais c'est vrai que j'aimerais quelques choses de mieux alors je continu

merci encore de ton aide

Donc voilà

j'ai plus rien mis dans le load de ma form mais juste sur le l'évènement du bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Dim Connection As New SqlConnection()
        Connection.ConnectionString = "Server=.\sqlexpress;Database=base;User ID=sa;Password=password"
        Connection.Open()
        Try
 
            Dim SQLCmd As New SqlCommand()
            SQLCmd.Connection = Connection
            SQLCmd.CommandText = "backup database " & TextBoxBaseName.Text & " to disk = d:\backupsql\backup" & TextBoxFichierBackup.Text & " '"
 
 
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show("sauvegarde réussi", "OK")
 
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
 
            Connection.Close()
        End Try

je sais pas si je m'approche ou si je m'éloigne mais là quand je test
il me dit :
"Syntaxe incorrecte vers'd:'.
Ouvrez les guillemets après la chaîne de caractères".

J'ai mis la deuxième solution pour faire ma sauvegarde
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Dim Connection As New SqlConnection() Connection.ConnectionString = "Server=.\sqlexpress;Database=base;User ID=sa;Password=password" Connection.Open() Try Dim SQLCmd As New SqlCommand() SQLCmd.Connection = Connection SQLCmd.CommandText = "backup database @basename to disk = @path " SQLCmd.Parameters.AddWithValue("@basename", TextBoxBaseName.Text) SQLCmd.Parameters.AddWithValue("@path", TextBoxFichierBackup.Text) SQLCmd.ExecuteNonQuery() MessageBox.Show("sauvegarde réussi", "OK") Catch exp As SqlException MessageBox.Show(exp.Message) Finally Connection.Close() End Try End Sub
là impeccable il me fait bien la sauvegarde à l'endroit ou je lui dis dans le textbox
par contre quand je relance une deuxième sauvegarde il me génère pas un autre fichier mais il cumule sur le même fichier
alors je sais que dans un batch pour éviter ça on met noinit
moi je mets ça dans mes batch

Code:

sqlcmd -S .\SQLexpress -U sa -P password -Q "BACKUP Database [base] TO DISK = N'%FICHIER%' WITH NOFORMAT, NOINIT, NAME = N'base-Transaction Log Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10" -o %LOG_FILE%

mais pour vb net je vois pas trop

13/11/2012, 00h43
Pol63

pour la 1ère solution il te manque des guillements, et il te le dit, et je te l'avais mis dans l'exemple ...

to disk = d:\backupsql\backup" & ...
=>
to disk = 'd:\backupsql\backup" & ... & "'"

pour la 2ème solution tu tapes backup database sql server dans google, tu vas sur la page d'msdn qui devrait etre en 1er dans les résultats et il t'expliquera la syntaxe de la commande backup database, et où se met le noinit
sinon il suffit de supprimer le fichier s'il existe
if system.io.file.exists(textbox.text) then system.io.file.delete(textbox.text)
puis le backup
13/11/2012, 00h57
menfoutix

Merci à toi pour cette aide bien précieuse
je vais chercher le NOINIT car je voudrait garder un nombre de sauvegarde minimum je ne veux pas supprimer tout à chaque fois

par contre excuse moi encore de profiter encore une fois de ta gentillesse
mais est ce que c'est possible de mettre dans des textbox
la connexion au serveur sql au lieu de le mettre en dur
par exemple
un textbox pour le serveur
un textbox pour le mot de passe et un autre pour l'utilisateur
car j'ai pas forcément le même nom de serveur sql partout

encore merci des tes lumières
13/11/2012, 01h33
Pol63

tu peux mettre la date/heure dans le nom du fichier, comme ca tu en auras plusieurs sans écrire dans le même fichier

pour le connectstring tu peux passer par des textbox et concaténer, là aussi ca semble évident
13/11/2012, 22h37
menfoutix

merci pour l'idée de la date et heure
sinon je vais essayer pour le textbox
là je viens de rentrer du boulot
donc je pense que j'essaierai demain

merci à toi et je te tiens au courant

Voilà j'ai essayer d'amélioré ce que je voulais par rapport au identifiants de connexion sur le serveur SQL avec des textbox
je te mets ce que j'ai mis comme tu la beaucoup aider je te fais voir l’état d'avancement
Par contre pour le noinit j'ai pas trouvé mais ce que je vais faire ce que j'ai mis la date du fichier lors de sa création comme cela ça me créer un nouveau chaque jour et je vais mettre en plus un NumericUpDown pour mettre le nombre de fichier a sauvegarder pour leurs suppressions

N’hésite pas à me corriger si tu en as envie

prochaine étape enregistrer les renseignements mis dans fichier ini ou xml je sais pas encore pour éviter de ressaisir à chaque fois les textbox

encore merci à toi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Connection As New SqlConnection()
        Dim nomserveur, nomuser, passuser, connbase As String
 
        nomserveur = txtsqlname.Text 'Nom du serveur SQL
        nomuser = txtidsql.Text      'Utilisateur SQL
        passuser = txtpasssql.Text   ' Mot de passe User SQL
        connbase = txtbaseconn.Text  ' Nom de la base ou se connecter
 
        Connection.ConnectionString = "Data source=" & nomserveur & " ;Database= " & connbase & ";User ID=" & nomuser & ";Password=" & passuser & ";"
 
        Connection.Open()
        Try
            Dim SQLCmd As New SqlCommand()
            SQLCmd.Connection = Connection
            SQLCmd.CommandText = "backup database @basename to disk = @path"
 
            SQLCmd.Parameters.AddWithValue("@basename", TextBoxBaseName.Text)
            SQLCmd.Parameters.AddWithValue("@path", TextBoxFichierBackup.Text & Date.Now.Day & Date.Now.Month & Date.Now.Year)
 
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show("sauvegarde réussi", "OK")
 
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
 
            Connection.Close()
        End Try
 
    End Sub

24/11/2012, 12h23
menfoutix

Bonjour Pol63

Bon j'avance pas mal sur mon appli

Donc j'arrive bien a sauvegarder ma base dans un dossier que je veux.
Je gère aussi les jours et heures en automatique à laquelle je veux que le backup se lance.
J'arrive à gérer le nombre de backup à conserver dans le dossier de stockage du backup.

Par contre j'ai un souci et oui quand même
j'ai mis un folderbrowserdialog pour sélectionner un dossier pour le stockage du backup qui s'inscrit directement dans le textbox. Mais pour que la sauvegarde fonctionne il faut que le chemin finisse par "\" sinon la sauvegarde se fait pas.
Donc ce que j'ai fait dans ma ligne de commande pour enregistrer le chemin dans ma texbox je lui dit de mettre un "\" à la fin ok ça marche.

Mais le soucis que je viens de remarquer c'est que lorsque je choisis directement la racine de mon lecteur exemple c:\ j'ai le "\" qui se met automatiquement mais du coup il me rajoute un deuxième "\" et donc ça marche pas
est-il possible de vérifier la présence du "\" avant de le mettre.
Je sais pas si je me suis fait comprendre en tout cas n'hésite pas à me demander plus d'explication

encore merci de ton aide et je désolé de t'embêter

a+
24/11/2012, 12h38
Pol63

la méthode simple qui doit venir à l'esprit c'est

Code:

if not lestring.endswith("\") then lestring = lestring & "\"

si le string ne se finit pas par un \ j'en rajoute un par concaténation

néanmoins il y a une méthode beaucoup plus propre car elle fonctionne dans tous les cas

Code:

dim cheminfichier as string = system.io.path.combine(le string contenant le path, le string contenant le nom du fichier)

io.path contient de plein de méthodes utiles concernant les noms de fichiers
.combine sert à concaténer de manière intelligente avec gestion du \ entre autre
il y a aussi par là des méthodes pour avoir le nom du fichier à partir du chemin complet, le dossier contenant le fichier etc...

une chose à faire et de parcourir l'intellisense pour savoir ce qui existe
par exemple sur un string tu fais . et tu regardes ce que le menu déroulant propose
pour chaque méthode il y a une petite explication, tu verras donc tout ce qu'il est possible de faire sur un string
de la même manière tu tapes system. et tu regardes tout ce que ca te propose, tu verrais qu'il y a des namespace pour pas mal de chose system.text pour tout ce qui est encodage, system.net pour tout ce qui est communication (tcp/http/ftp/udp etc...)
etc...
ca permet quand tu as quelques à faire de savoir où pourrait se trouver ce qui te serais utile

Merci pour tes explications

je vais te mettre ce que je mets dans mon bouton pour afficher mon dossier dans ma textbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
       Dim dossier As New FolderBrowserDialog
        Dim lestring As String
 
        dossier.RootFolder = Environment.SpecialFolder.Desktop
        dossier.Description = "Selection du repertoire de stockage"
        dossier.ShowDialog()
        If dossier.SelectedPath = String.Empty Then
            Return
        Else        
                TextBoxFichierBackup.Text = dossier.SelectedPath  + "\"
 
        End If
        dossier.Dispose()
    End Sub

Ah oui j'ai oublié de te dire que dans ma textbox je n'affiche que le chemin du dossier voulu pas le fichier
encore merci à toi

24/11/2012, 16h45
menfoutix

J'ai réussi pour vérifier la présence ou pas du caractère à la fin du chemin

je te remercie de tes enseignements pol63

prochaine étape de mon appli

la vérification du fichier de sauvegarde si dans le repertoire (enfin pour voir si tout fonctionne correctement au niveau sauvegarde) et envoie par mail du compte rendu.

si tu veux me faire profiter de petite chose n’hésite pas.

encore merci beaucoup à toi :ccool: