[ѕαLσσσмx]

للحفظ

PHP كود :

Try
            Dim n As New SaveFileDialog
            n.Filter = ("*.sql|*.sql")
            n.InitialDirectory = Environment.SpecialFolder.Desktop
            If n.ShowDialog = Windows.Forms.DialogResult.OK Then

                IO.File.Copy(Application.StartupPath + "\Database1.sql", n.FileName, True)
                MsgBox("تم  تصدير القاعده وحفضها  بنجاح ")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        
    End Sub 


للاسترجاع

PHP كود :

Try
            Dim op As New OpenFileDialog
            op.Filter = ("*.sql|*.sql")
            op.InitialDirectory = Environment.SpecialFolder.Desktop
            If op.ShowDialog = Windows.Forms.DialogResult.OK Then
                IO.File.Copy(op.FileName, Application.StartupPath + "\Database1.sql", True)
                MsgBox("تم استرجاع القاعده بنجاح")


            End If
        Catch ex As Exception
            MsgBox(ex.Message)


        End Try