backup sql timeout

**sylvainPa** · 27/09/2013, 15h14

Bonjour à vous tous

Je viens vers vous pour exposer mon problème sur une sauvegarde SQL 2008

J'ai fait un petit programme qui me permet de sauvegarder des bases SQL automatiquement ou manuellement et ça fonctionne sauf sur une base.
Mon fichier de sauvegarde va dans un repertoire que je définis dans un textbox
Lorsque je lance la sauvegarde, j'ai un message au bout de quelques dizaines de seconde qui dit " Timeout expired. The timeout elapsed prior to completion of the operation or the server is not responding.
La sauvegarde ou la restauration a été abandonnée".

Quand je lance cette sauvegarde je vois que mon fichier commence à aller dans le repertoire de sauvegarde et disparait lorsque ce message apparait.

Je tiens à rajouter cette base fait pas loin de 7 Go donc je pense que ça doit venir de ça le temps de la copie doit durée trop long.

Ma question peut-on définir dans mon programme d'attendre plus longtemps

Cordialement et encore merci pour une futur aide

**ctxnop** · 27/09/2013, 16h31

Salut,
Un petit tour sur la documentation
On lit bien la section "Notes".

**sylvainPa** · 27/09/2013, 16h38

Bonjour à toi et merci

J'ai vu la fonction connection timeout pour augmenter qui est apparemment sur 30s par défaut
Mon souci c'est le placer dans mon code
Que voici

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
Private Sub btnexecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexecute.Click
        Dim dDate As String = Date.Today.ToString("dddd")
 
        Dim ext As String = ".bak" 'extension du fichier
        If TextBoxFichierBackup.Text = "" Then
            MessageBox.Show("Vous devez Renseigner le repertoire de stockage de la sauvegarde !", "Erreur de Chemin", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        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()
        'sauvegarde de la base dans un repertoire personnaliser
        Try
            Dim SQLCmd As New SqlCommand()
            SQLCmd.Connection = Connection
 
 
            SQLCmd.CommandText = "BACKUP DATABASE " & connbase & " TO DISK = '" & TextBoxFichierBackup.Text & TextBoxbaseBackup.Text & "_" & dDate & ext & "'" & "with init"
 
 
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show("sauvegarde réussi", "OK")
 
        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally
 
            Connection.Close()
        End Try
 
    End Sub

Encore merci

**ctxnop** · 27/09/2013, 17h28

J'ai pourtant bien préciser de bien lire la section "Notes" de la page de documentation, non ?
(Au passage il existe un objet pour construire une chaine de connexion SQL Serveur plutôt que de faire de la concaténation plus ou moins hasardeuse)
Et comme je le redis à chaque post contenant des requêtes SQL : ON MET DES USING AUTOUR DES CONSTRUCTION D'OBJETS DISPOSABLE !!!!

**sylvainPa** · 27/09/2013, 17h47

Merci ctxnop pour tes liens qui me seront très utiles pour faire évoluer mon appli.
Pour les concaténations cela me permet de mettre sur différent serveur qui ne sont pas forcément paramétrer pareil mais je suis sur qu'il y a d'autres moyen de faire.
Pour l'instant vu mon expériences dans le domaine je n'ai trouvé que ça.

Sinon j'ai réussi à placer le timeout et cela à l'air de fonctionner
je te fais voir mon 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
43
44
45
 Private Sub btnexecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexecute.Click
        Dim dDate As String = Date.Today.ToString("dddd")

        Dim ext As String = ".bak" 'extension du fichier
        If TextBoxFichierBackup.Text = "" Then
            MessageBox.Show("Vous devez Renseigner le repertoire de stockage de la sauvegarde !", "Erreur de Chemin", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        Dim Connection As New SqlConnection()
        Dim timeout As SqlCommand = New SqlCommand
        timeout.CommandTimeout = 0

        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()
        'sauvegarde de la base dans un repertoire personnaliser
        Try
            Dim SQLCmd As New SqlCommand()
            SQLCmd = timeout

            SQLCmd.Connection = Connection

            TProgressbar.Enabled = True
            ProgressBar1.Visible = True

            SQLCmd.CommandText = "BACKUP DATABASE " & connbase & " TO DISK = '" & TextBoxFichierBackup.Text & TextBoxbaseBackup.Text & "_" & dDate & ext & "'" & "with init"
                 
            SQLCmd.ExecuteNonQuery()
            MessageBox.Show("sauvegarde réussi", "OK")


        Catch exp As SqlException
            MessageBox.Show(exp.Message)
        Finally

            Connection.Close()
        End Try
 
    End Sub

Ce que j'ai mis en rouge c'est que j'ai changé si quelqu'un peux corriger
encore merci pour ton aide

**ctxnop** · 27/09/2013, 17h58

Voilà comment faire, c'était expliqué dans mes liens

Code vb :

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
 
Private Sub btnexecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexecute.Click
	Dim dDate As String = Date.Today.ToString("dddd")
 
	Dim ext As String = ".bak" 'extension du fichier
	If TextBoxFichierBackup.Text = "" Then
		MessageBox.Show("Vous devez Renseigner le repertoire de stockage de la sauvegarde !", "Erreur de Chemin", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Return
	End If
 
	Dim cnxStringBuilder as New SqlConnectionStringBuilder()
	builder.DataSource = txtsqlname.Text
	builder.InitialCatalog = txtbaseconn.Text
	builder.UserID = txtidsql.Text
	builder.Password = txtpasssql.Text
	builder.ConnectTimeout = 3600 ' Pas de TimeOut de 0, comme indiqué dans la doc, j'ai mis 1h, ca commence déjà à faire beaucoup.
 
	'sauvegarde de la base dans un repertoire personnaliser
	Try
		' On met la création et ouverture de session dans le Try/Catch, ça peut échouer...
		' Il y a un constructeur pour la chaine de connexion, autant l'utiliser
		Using cnx As New SqlConnection(cnxStringBuilder.ConnectionString) ' Disposable => Using
			cnx.Open()
 
			Dim query As String = "BACKUP DATABASE " & connbase & " TO DISK = '" & TextBoxFichierBackup.Text & TextBoxbaseBackup.Text & "_" & dDate & ext & "'" & "with init"
 
			' La encore, un constructeur qui fait tout, autant l'utiliser
			Using cmd As New SqlCommand(query, cnx) ' Disposable => Using
				cmd.ExecuteNonQuery()
			End Using
			MessageBox.Show("sauvegarde réussi", "OK")
		End Using
 
	Catch exp As SqlException
		MessageBox.Show(exp.Message)
	End Try
End Sub

**sylvainPa** · 27/09/2013, 20h03

Merci beaucoup pour la correction

Juste un souci
sur ce point "connbase" il me sert plus à rien ou pas
cela servait dans mon exemple à savoir sur quelle base se connecter et là du coup dans ta correction j'ai un message d'erreur sur ça

encore merci de tes efforts pour m'aider

**ctxnop** · 27/09/2013, 20h06

connbase == InitialCatalog
J'ai probablement fait une ou deux erreur de frappe ou de syntaxe.
J'ai tout fait de mémoire sur notepad, sans compilo ni coloration syntaxique...

**sylvainPa** · 27/09/2013, 20h11

je suis désolé de t'embêter encore

parce que dans la ligne backup database.

sur connbase j'ai cette erreur :

Code :

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

Erreur	1	'connbase' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

merci

**sylvainPa** · 27/09/2013, 20h15

J'ai probablement fait une ou deux erreur de frappe ou de syntaxe.
J'ai tout fait de mémoire sur notepad, sans compilo ni coloration syntaxique...

c'est déjà beaucoup de m'aider je comprend bien que c'est pas forcément facile de répondre à des questions comme les miennes

J'ai remplacé connbase par txtbaseconn.Text et là j'ai plus l'erreur et la sauvegarde ce fait
je vais essayer sur la base réel pour voir

backup sql timeout

Développement Windows

Discussions similaires

Partager

Partager