كيف تصنع نسخة إحتياطية لملفات الداتا بيز

PHP كود :

   Friend Function GetData(sqlCommand As String, connectionString As String) As DataTable
        Dim table As DataTable = CType(Nothing, DataTable)
        Using conn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
            Dim command As New System.Data.SqlClient.SqlCommand(sqlCommand, conn)
            Dim adapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter()
            adapter.SelectCommand = command
            table = New DataTable() With {.Locale = System.Globalization.CultureInfo.InvariantCulture}
            adapter.Fill(table)
        End Using

        Return table
    End Function

PHP كود :

Private Function BuildDataTable() As DataTable
        Dim keys As Integer() = New Integer() {1, 2, 3, 4, 5}
        Dim names As String() = New String() {"Omar Amin", "Ahmed Mohamed", "Al Ezzat", "Mohamed Ali", "Hamada Farag"}
        Dim phones As String() = New String() {"01099999999", "01088888888", "01077777777", "01066666666", "01055555555"}
        Return BuildDataTable(keys, names, phones)
    End Function

    Private Function BuildDataTable(keys As Integer(), names As String(), phones As String()) As DataTable

        Dim table As DataTable = CType(Nothing, DataTable)
        table = New DataTable With {.Locale = System.Globalization.CultureInfo.InvariantCulture}
        table.Columns.Add(New DataColumn("Key", GetType(Integer)))
        table.Columns.Add(New DataColumn("Name", GetType(String)))
        table.Columns.Add(New DataColumn("Phone", GetType(String)))
        SyncLock keys.GetType
            For i As Integer = 0 To keys.Count - 1
                table.Rows.Add(New Object() {keys(i), names(i), phones(i)})
            Next
            Return table

        End SyncLock
    End Function

PHP كود :

   Friend Function CanSaveDataToFile(table As DataTable, passWord As String, filename As String) As Boolean

        Using writer As New System.IO.BinaryWriter(System.IO.File.Open(filename, System.IO.FileMode.Create))
            ' sequence of writing data is very important as we shall read data with the same sequence
            ' first write the password
            ' password my encrypted if required by some means
            ' you may use any data type for datat protection
            writer.Write(passWord)

            ' second write data columns count and names
            Dim columns As DataColumnCollection = table.Columns
            ' write column's count
            writer.Write(columns.Count)
            For Each column As DataColumn In columns
                writer.Write(column.ColumnName)
            Next

            ' then write table rows count and values
            Dim rows As DataRowCollection = table.Rows
            ' write row's count
            writer.Write(rows.Count)
            For Each row As DataRow In table.Rows
                For i As Integer = 0 To columns.Count - 1
                    ' write row's values as strinng
                    ' currently the data row values are saved as string
                    writer.Write(row(i))
                Next
            Next
            Return True
        End Using
        Return False
    End Function

PHP كود :

   Friend Function FileToDataTable(passWord As String, filename As String) As DataTable

        Dim table As DataTable = CType(Nothing, DataTable)
        If (System.IO.File.Exists(filename)) Then
            Using reader As New System.IO.BinaryReader(System.IO.File.Open(filename, System.IO.FileMode.Open), New System.Text.UTF8Encoding(False, False))
                ' check the protection string, you may use any data type for protecting the file
                Dim protection As String = reader.ReadString
                If protection <> passWord Then
                    Return Nothing
                End If

                table = New DataTable With {.Locale = System.Globalization.CultureInfo.InvariantCulture}
                Dim columns As DataColumnCollection = table.Columns
                Dim columnsCount As Integer = reader.ReadInt32()
                For i As Integer = 0 To columnsCount - 1
                    ' read the column's name
                    Dim columnName As String = reader.ReadString()
                    columns.Add(columnName)
                Next

                ' read row's count
                Dim rowsCount As Integer = reader.ReadInt32()
                For j As Integer = 0 To rowsCount - 1
                    Dim row As DataRow = table.NewRow()
                    For k As Integer = 0 To columnsCount - 1
                        ' read row's values as strinng
                        row(k) = reader.ReadString()
                    Next
                    table.Rows.Add(row)
                Next

            End Using
        End If
        Return table
    End Function