can anyone help with save directory

Question

0.00/5 (No votes)

See more:

Hi guys
I have this code it works fine but I want to choose where to save the backup file

VB

Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       Dim reply As DialogResult = MessageBox.Show("Δημιουργία αντιγράφου ασφαλείας ?", "Ερώτημα", _
             MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
       If reply = DialogResult.Yes Then
           sqlcon.ConnectionString = "Server=......\SQLEXPRESS;database=" + dbname + ";uid=sa;pwd=........;"
           Dim destdir As String = "G:\RDMSbackup"
           If Not System.IO.Directory.Exists(destdir) Then
               System.IO.Directory.CreateDirectory("G:\RDMSbackup")
           End If
           Try
               sqlcon.ConnectionString = "Server=.....\SQLEXPRESS;database=" + dbname + ";uid=sa;pwd=.....;"
               sqlcon.Open()
               sqlcmd = New SqlCommand("backup database  " + dbname + " to disk='" + destdir + "\" + DateTime.Now.ToString("ddMMyyyy_HHmmss") + ".Bak'", sqlcon)
               sqlcmd.ExecuteNonQuery()
               sqlcon.Close()
               'MessageBox.Show("Το Αντίγραφο της Βάσης Δεδομένων Δημιουργήθηκε")
               MsgBox("Το Αντίγραφο της Βάσης Δεδομένων Δημιουργήθηκε!", MsgBoxStyle.Information, "Πληροφορία")
           Catch ex As Exception
               'MessageBox.Show("Αποτυχία Δημιουργίας Αντιγράφου Ασφαλείας!")
               MsgBox("Αποτυχία Δημιουργίας Αντιγράφου Ασφαλείας!", MsgBoxStyle.Information, "Πληροφορία")
           End Try
       Else
           sqlSTR = "UPDATE Audit_Log SET LOGOUT ='" & TimeOfDay & "' WHERE User_ID =" & xUser_ID & " AND LOG_ID=" & LOGID
           ExecuteSQLQuery(sqlSTR)
       End If
   End Sub

Please help

Posted 15-Jan-13 0:45am

jomachi

Add a Solution

Comments

Shanu2rick 15-Jan-13 6:49am

I assume you are using winforms, right?
Then,
You can easily ask the user where to save the file by using the SaveFileDialog control or class.

jomachi 15-Jan-13 6:52am

Yes my friend I am using winforms. Can you write an example. Thanks

_Vitor Garcia_ 15-Jan-13 10:33am

Do what Shanu2rick pointed, just be careful with SaveFileDialog as far as it browses in local HD, not in the SQL server HD

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

DinoRondelly · Answer 1 · 2013-01-15T04:46:00

Solution 1

This should help,

http://www.java2s.com/Code/VBAPI/System.Windows.Forms/SaveFileDialogFilter.htm[^]

http://www.dotnetheaven.com/article/savefiledialog-component-in-vb.net[^]

Posted 15-Jan-13 4:46am

DinoRondelly

ACE_ · Answer 2 · 2013-01-17T16:41:00

hmm....

VB

Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       Dim reply As DialogResult = MessageBox.Show("Δημιουργία αντιγράφου ασφαλείας ?", "Ερώτημα", _
             MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
       If reply = DialogResult.Yes Then
           sqlcon.ConnectionString = "Server=......\SQLEXPRESS;database=" + dbname + ";uid=sa;pwd=........;"

           Dim destdir As String
           Dim dlg As SaveFileDialog
           dlg = New SaveFileDialog
           
           If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
               destdir = (CType(dlg.FileName, String))
           Else
               Exit Sub
           End If
         
           'If Not System.IO.Directory.Exists(destdir) Then
           '    System.IO.Directory.CreateDirectory("G:\RDMSbackup")
           'End If
           Try
               sqlcon.ConnectionString = "Server=.....\SQLEXPRESS;database=" + dbname + ";uid=sa;pwd=.....;"
               sqlcon.Open()
               sqlcmd = New SqlCommand("backup database  " + dbname + " to disk='" + destdir + "\" + DateTime.Now.ToString("ddMMyyyy_HHmmss") + ".Bak'", sqlcon)
               sqlcmd.ExecuteNonQuery()
               sqlcon.Close()
               'MessageBox.Show("Το Αντίγραφο της Βάσης Δεδομένων Δημιουργήθηκε")
               MsgBox("Το Αντίγραφο της Βάσης Δεδομένων Δημιουργήθηκε!", MsgBoxStyle.Information, "Πληροφορία")
           Catch ex As Exception
               'MessageBox.Show("Αποτυχία Δημιουργίας Αντιγράφου Ασφαλείας!")
               MsgBox("Αποτυχία Δημιουργίας Αντιγράφου Ασφαλείας!", MsgBoxStyle.Information, "Πληροφορία")
           End Try
       Else
           sqlSTR = "UPDATE Audit_Log SET LOGOUT ='" & TimeOfDay & "' WHERE User_ID =" & xUser_ID & " AND LOG_ID=" & LOGID
           ExecuteSQLQuery(sqlSTR)
       End If
   End Sub