Discussion :

[menfoutix]

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

[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 :

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

backup database nom_base to disk = 'c:\dossier\ma sauvegarde.bak'

[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

[Pol63]

concaténation !?

[menfoutix]

concaténation !?

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

[Pol63]

version peu sécurisée :

Code :

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

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

à tenter :

Code :

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

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

[menfoutix]

merci à toi

je vais essayer ça et te tenir au courant

encore merci

[menfoutix]

Bon voilà

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

Code :

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

1
2
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlCommand

j'ai déclaré sqlcmd

Code :

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

Dim SQLCmd As New SqlCommand()

je sais pas si cela suffit ou si c'est comme ça
désolé

[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

[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

[Pol63]

code complet ?

[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é

[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 ...

[menfoutix]

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

Code :

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

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

encore merci de ton aide

[Pol63]

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

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

[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

[menfoutix]

Donc voilà

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

Code :

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

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".

[menfoutix]

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

Code :

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

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 :

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

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

[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

[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