hmm....
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
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()
MsgBox("Το Αντίγραφο της Βάσης Δεδομένων Δημιουργήθηκε!", MsgBoxStyle.Information, "Πληροφορία")
Catch ex As Exception
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