Backup/Restore Online Access

it048 — Thu, 03 Sep 2009 13:14:15 GMT

Καλημέρα, σε ένα site που έχω κάνει με asp.net 1.1 θελω να βάλω τη δυνατότητα να γίνεται backup και restore της access από τον χρήστη.

Αρχικά παίρνω backup με file.copy τη βαση σε αλλο folder και προσθέτω την εγγραφή του backup σε αλλη βαση για να βλέπω όλα τα backup που χω κάνει.

Private Sub backup_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles backup.Click
        Dim DBPath, bkpath As String
        DBPath = Server.MapPath("db\database.mdb")
        bkpath = Server.MapPath("backup\" & dateFormat(GetDate(System.DateTime.Now, 2)) & ".mdb") 'της μορφής ηη-μμ-εε

        If Not System.IO.File.Exists(bkpath) Then
            DBPath = Server.MapPath("db\backups.mdb")
            Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DBPath & ";"
            Me.OleDbConnection1.ConnectionString = sConnectionString
            Dim addCommand As New OleDb.OleDbCommand

            Me.OleDbConnection1.Open()
            addCommand.Connection = OleDbConnection1
            addCommand.CommandText = CommandType.Text

            Dim param1 As New OleDb.OleDbParameter("@name", OleDb.OleDbType.VarChar)
            addCommand.Parameters.Add(param1)
            addCommand.Parameters("@name").Value = dateFormat(GetDate(System.DateTime.Now, 2)) & ".mdb"

            Dim param2 As New OleDb.OleDbParameter("@DBdate", OleDb.OleDbType.Date)
            addCommand.Parameters.Add(param2)
            addCommand.Parameters("@DBdate").Value = GetDate(System.DateTime.Now, 1)

            Dim param3 As New OleDb.OleDbParameter("@path", OleDb.OleDbType.VarChar)
            addCommand.Parameters.Add(param3)
            addCommand.Parameters("@path").Value = bkpath

addCommand.CommandText = "INSERT INTO backup (name, DBdate, path) values (?,?,?)"

Try
 addCommand.ExecuteNonQuery()
 Me.OleDbConnection1.Close()
 File.Copy(DBPath, bkpath)
 backupDate() 'function που ενημερώνει την Online db ότι οι εγγραφες εχουν παρθει backup τη συγκεκριμενη ημερομηνια
 Catch ex As Exception
 Response.Write("ERROR1: " & ex.Message & " ")
 Response.Write("ERROR1: " & ex.Source & " ")
 Response.Write("ERROR1: " & ex.StackTrace & " ")
 End Try

            Me.OleDbDataAdapter1.Fill(Me.BackupDS1)
            Me.contactGrid.DataBind()
        End If
    End Sub

Όλα καλα μέχρι εδώ.

Τώρα θέλω να κάνω restore αλλα να μπορούν να μπούν στη βάση από το backup οι νέες εγγραφες που υπάρχουν από το τελευταίο backup.

Κανω copy τη backup db σε ένα temp folder. Τώρα παίρνω σε dataset ολες τις εγγραφες που δεν εχουν παρθει backup.

Dim ds As New DataSet
Dim adapter As New Data.OleDb.OleDbDataAdapter

GetCommand.CommandText = "select * from db where backup=false"

Try
GetCommand.ExecuteNonQuery()
Me.OleDbConnection1.Close()

Catch ex As Exception
 Response.Write("ERROR1: " & ex.Message & " ")
 Response.Write("ERROR1: " & ex.Source & " ")
 Response.Write("ERROR1: " & ex.StackTrace & " ")
 End Try
 adapter.Fill(ds)

Τελος θέλω να τις κάνω insert στη βάση, από το dataset, που είναι στο temp folder.

Πως το κάνω αυτό το τελευταίο?

Ευχαριστώ

ASP.NET WebForms

Backup/Restore Online Access