تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا
#31
تفضل هذا فانكشن لعمل استعادة نسخة إحتياطية : 
PHP كود :
   Function Restore_Database(ByVal DatabaseName As StringByVal 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(SqlStrXTCon)
 
           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.MessageMsgBoxStyle.Critical"")
 
           Return False " - " SqlStrXT
        End 
Try
 
   End Function 
هكذا يتم استدعائه :
PHP كود :
Restore_Database(DatabaseName ,"D:\DBBACK.Bac"
الرد
#32
(14-05-19, 03:47 PM)asemshahen5 كتب : تفضل هذا فانكشن لعمل استعادة نسخة إحتياطية : 
PHP كود :
   Function Restore_Database(ByVal DatabaseName As StringByVal 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(SqlStrXTCon)
 
           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.MessageMsgBoxStyle.Critical"")
 
           Return False " - " SqlStrXT
        End 
Try
 
   End Function 
الاخ عاصم تحية طيبة : 
عندما استدعي الفانكشن من داخل زر الامر يرفض ويعطيني خطأ . كما هو موضح في الصورة .


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#33
هكذا يتم استعماله :

PHP كود :
Restore_Database(DatabaseName ,"D:\DBBACK.Bac"
الرد
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 68 21-05-19, 02:03 PM
آخر رد: alshandodi
  [سؤال] كود فتح صفحة من صفحات مبرمجة في webbrowser تلقائيا soloxocf1 1 53 16-05-19, 02:35 PM
آخر رد: elgokr
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 149 16-05-19, 01:42 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 187 15-05-19, 06:08 PM
آخر رد: makky
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 206 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 83 07-05-19, 06:02 PM
آخر رد: dubai.eig
  [VB.NET] قواعد البيانات MDF اسامه الهرماوي 3 135 05-05-19, 01:24 AM
آخر رد: ابراهيم ايبو
  فلترة البيانات باستخدام رسم بياني العيدروس 11 235 03-05-19, 01:34 AM
آخر رد: العيدروس
  [مثال] قاعدة بيانات SQL DK-x 2 117 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  حفظ كود في قاعده البيانات معاذ_ابراهيم 4 134 01-05-19, 03:42 PM
آخر رد: معاذ_ابراهيم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم