Fixer le chemin de destination de ma Backup

**BEATRICE ARTIEDA** · 29/09/2018, 16h07

Hello Forum
Hello tout le monde
Svp j'ai besoin de vos aides afin de regler ce code
Je choisis la base de données que je veux la faire Backup avec Combobox2.Le nom de cette base de données sélectionnée sera affiché dans TextBox11. Avec Button1, je choisis le disque de destination de ma Backup de ma Dataabse .. le chemin de sauvegarde apparaît dans TextBox12. Avec Button2 je fais ma Backup.. tous fonctionnent très bien. Mais je ne veux pas choisir le path de destination avec OpenFileDialogue.je veux supprimer Button1 et TextBox12.et quand je clique sur button2 ma Backup du Database sera toujours dans disque D dans ce chemin ("D: \ FolderBackupDatabase"). Ceci est mon code du Button1 et Button2:

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
 
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    FBD.RootFolder = Environment.SpecialFolder.MyComputer
    FBD.SelectedPath = ("D:")
    FBD.ShowNewFolderButton = True
    FBD.ShowDialog()
    dt = Now.ToString("@dd-MM-yyyy@HH-mm-ss")
    f1 = FBD.SelectedPath
    If IO.Directory.Exists(f1 & "\FolderBackupDatabase") = False Then
        IO.Directory.CreateDirectory(f1 & "\FolderBackupDatabase")
    End If
    Me.TextBox12.Text = f1 & "FolderBackupDatabase\" + Me.TextBox11.Text.Trim + dt + ".dmp"
End Sub 
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim xx As String
    xx = TextBox12.Text.Substring(0, 1)
    Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=ABIDINE;Database=FACTORY;Integrated Security=false;User Id=sa;PassWord=ABE56789ABE;")
    Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
    CMD.CommandType = CommandType.Text
    CMD.Connection = SqlConnection1
    If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
    SqlConnection1.Open()
    Me.Cursor = Cursors.WaitCursor
    CMD.CommandText = "backup database " + TextBox11.Text.Trim + " to disk=@PATHFILE with init"
    dt = Format(Now, "dd-MM-yyyy")
    CMD.Parameters.Add("@PATHFILE", SqlDbType.NVarChar, 500).Value = TextBox12.Text
    CMD.ExecuteNonQuery()
    SqlConnection1.Dispose()
    Dim I As Integer
    For I = 1 To 5000
        ProgressBar1.Visible = True
        ProgressBar1.Visible = True
        ProgressBar1.Minimum = 1
        ProgressBar1.Maximum = 5000
        ProgressBar1.Step = 1
        ProgressBar1.Value = I
        If I = 5000 Then
            ProgressBar1.Visible = False
            MessageBox.Show("A backup copy of the current database has been created" & " In the following path  " & vbCrLf & vbCrLf & TextBox12.Text.Trim, "Create a backup", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly)
        End If
    Next
    Me.Cursor = Cursors.Default
    SqlConnection1.Dispose()
End Sub