[asemshahen5]

تفضل هذا فانكشن لعمل استعادة نسخة إحتياطية : 

PHP كود :

   Function Restore_Database(ByVal DatabaseName As String, ByVal FileNameDir As String) As String
        Dim SqlStrXT As String = String.Empty
        Try
            SqlStrXT = "ALTER DATABASE [" & DatabaseName & "] SET SINGLE_USER WITH ROLLBACK IMMEDIATE" & vbNewLine
            SqlStrXT += "Restore Database [" & DatabaseName & "] FROM  DISK = N'" & FileNameDir & "' WITH  FILE = 1,  NOUNLOAD,  REPLACE,  STATS = 5" & vbNewLine
            SqlStrXT += "ALTER DATABASE [" & DatabaseName & "] SET MULTI_USER"
            Dim dt As New DataTable
            dt.Clear()
            DatabaseName = ""
            Dim Con As New SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=Master;Persist Security Info=True;User ID=MyUserName;Password=MyPassword")
            If Con.State = ConnectionState.Closed Then Con.Open()
            Dim da As New SqlClient.SqlDataAdapter(SqlStrXT, Con)
            If FileNameDir <> String.Empty Then
                da.Fill(dt)
            End If
            MsgBox("Database Restored Successfully", MsgBoxStyle.Information, "")
            If Con.State = ConnectionState.Open Then Con.Close()
            Return True & " - " & SqlStrXT
        Catch ex As Exception
            MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "")
            Return False & " - " & SqlStrXT
        End Try
    End Function 


هكذا يتم استدعائه :

PHP كود :

Restore_Database(DatabaseName ,"D:\DBBACK.Bac") 


[abdullhadi999]

(14-05-19, 03:47 PM)asemshahen5 كتب : تفضل هذا فانكشن لعمل استعادة نسخة إحتياطية : 

PHP كود :

   Function Restore_Database(ByVal DatabaseName As String, ByVal FileNameDir As String) As String
        Dim SqlStrXT As String = String.Empty
        Try
            SqlStrXT = "ALTER DATABASE [" & DatabaseName & "] SET SINGLE_USER WITH ROLLBACK IMMEDIATE" & vbNewLine
            SqlStrXT += "Restore Database [" & DatabaseName & "] FROM  DISK = N'" & FileNameDir & "' WITH  FILE = 1,  NOUNLOAD,  REPLACE,  STATS = 5" & vbNewLine
            SqlStrXT += "ALTER DATABASE [" & DatabaseName & "] SET MULTI_USER"
            Dim dt As New DataTable
            dt.Clear()
            DatabaseName = ""
            Dim Con As New SqlClient.SqlConnection("Data Source=(Local);Initial Catalog=Master;Persist Security Info=True;User ID=MyUserName;Password=MyPassword")
            If Con.State = ConnectionState.Closed Then Con.Open()
            Dim da As New SqlClient.SqlDataAdapter(SqlStrXT, Con)
            If FileNameDir <> String.Empty Then
                da.Fill(dt)
            End If
            MsgBox("Database Restored Successfully", MsgBoxStyle.Information, "")
            If Con.State = ConnectionState.Open Then Con.Close()
            Return True & " - " & SqlStrXT
        Catch ex As Exception
            MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "")
            Return False & " - " & SqlStrXT
        End Try
    End Function 


الاخ عاصم تحية طيبة : 
عندما استدعي الفانكشن من داخل زر الامر يرفض ويعطيني خطأ . كما هو موضح في الصورة .

[asemshahen5]

هكذا يتم استعماله :

PHP كود :

Restore_Database(DatabaseName ,"D:\DBBACK.Bac")