تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود او نموذج للحفظ من التاتا جريد فيو مثال بسيط في ملف مرفق بسام محمدغانم 0 61 08-12-19, 02:17 AM
آخر رد: بسام محمدغانم
  مشكلة عند الاتصال بقاعدة البيانات محمد بن عطية 1 90 07-12-19, 06:44 AM
آخر رد: علي بنيان
  كيف استقبل البيانات بعد الاستعلام sim بسام محمدغانم 1 54 06-12-19, 06:40 PM
آخر رد: asemshahen5
  محتاج كود اضافه bakriano30@yahoo.com 5 114 05-12-19, 07:19 PM
آخر رد: 3booody
  كود إنشاء قاعدة البرنامج من اسكربت عند فتح البرنامج أول مره Hamoody 5 168 05-12-19, 01:32 PM
آخر رد: asemshahen5
  حفظ جدول كامل الى قاعدة بيانات muad 9 243 04-12-19, 03:39 PM
آخر رد: abomo3ath
  مشاركة قاعدة بيانات سيكول سيرفر makky 2 122 01-12-19, 02:28 AM
آخر رد: ابو ليلى
  اضافة الصور لقاعدة البيانات احمد خطاب 7 199 30-11-19, 04:31 PM
آخر رد: علي بنيان
  [VB.NET] تضمين قاعدة البيانات داخل مجلد العمل Mustafa Shaker 14 358 27-11-19, 10:18 AM
آخر رد: asemshahen5
  [سؤال] اريد حل لاستيراد البيانات من الاكسل m.n.hakami 5 155 26-11-19, 09:37 PM
آخر رد: m.n.hakami

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


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