اخذ نسخة احتياطية لقاعدة sql بواسطة الكود

[محمد القدسي]

السلام عليكم

 

اساتذتي الافاضل اريد كود لاخذ واستعادة نسخة احتياطية لقاعدة sql server

[عبد اللطيف سلوم]

5 ساعات مضت, محمد القدسي said:

السلام عليكم

 

اساتذتي الافاضل اريد كود لاخذ واستعادة نسخة احتياطية لقاعدة sql server

شاهد هذا الشرح يمكن يحل مشكلتك 

http://vb4arb.com/vb/showthread.php?tid=25879

[محمد القدسي]

اشكرك اخي على تعاونك 

ولاكن طلبي هو تنفيد الباكاب عن طريق الكود وليس يدوي

وجزاك الله خيرا وبارك فيك

[محمد القدسي]

للرفع

[محمد القدسي]

للرفع اخواني

[محمد التميمي]

وعليكم السلام

تفضل طلبك

البرنامج المرفق كان لدي في المكتبة منذ سنين وهو اكسس 2003 ارجو ان يكون هذا طلبك

نسخ احتياطي واسترجاع النسخة الاحتياطية.mdb

[محمد القدسي]

اشكرك احي محمد لتعاونك 

ولاكن طلبي لاخذ نسخة احتياطية لقاعدةsql server مرتبطة بنماذج اكسس 

بينما المرفق خاص باكسس

وجزاك الله خير

[ابوخليل]

السلام عليكم

اغلب الاخوة لا يوجد sql server على اجهزتهم  ومنهم كاتب هذه المشاركة

وهذا ضروري من اجل التجربة

وبحثت لك ووجدت هذه الوحدة النمطية الخاصة بالنسخ ، آمل ان تلبي طلبك 

[محمد التميمي]

ابو خليل

لم انتبه الى عبارة sql server ولو انتبهت جيداً لم ابادر بالمشاركة

( لاعلم لي الا ما علمني ربي ) .... 

ومنهم كاتب هذه المشاركة

تم تعديل يوليو 30, 2018 بواسطه محمد التميمي

[محمد القدسي]

اشكرك استاي ابو خليل ولاكن عند لصق الوحدة النمطية ظهرت هذه السطور باللون الاحمر بما يدل على وجود خطأ

              Dim sourceConnectionString As String = Nothing

        Dim sourceConnBuilder As New SqlConnectionStringBuilder(sourceConnectionString)

          serverConnection = New ServerConnection(sourceConnBuilder.DataSource)       bdi = New BackupDeviceItem(strBakFileName, DeviceType.File)

ولا ادري لماذا وجزاك الله خيرا

[ابوخليل]

12 ساعات مضت, محمد التميمي said:

ابو خليل

لم انتبه الى عبارة sql server ولو انتبهت جيداً لم ابادر بالمشاركة

( لاعلم لي الا ما علمني ربي ) .... 

ومنهم كاتب هذه المشاركة

اخي محمد التميمي (( ومنهم كاتب هذه المشاركة )) اقصد نفسي ,, حيث لا املك في جهازي sql server

اخي محمد القدسي

جرب هاتين الوحدتين 

اعتقد افضل من الكود السابق 

لاحظ الاسطر الخضراء  التوضيحية

Private oSQLServer As SQLDMO.SQLServer
Public Function DB_Backup(ByVal nServer_Name As String, _
   ByVal nDB_Name As String, _
   ByVal nDB_Login As String, ByVal nDB_Password As String, _
   ByVal nBack_Dev As String, ByVal nBack_Set As String, _
   ByVal nBack_Desc As String) As Boolean

' nServer_Name = SQL server name
' nDB_Name = Database name
' nDB_Login = Login name
' nDB_Password = Password
' nBack_Dev =Backup device name
' nBack_Set = Backup set name
' nBack_Desc = Backup discription
 Dim oBackup As SQLDMO.Backup
  On Error GoTo ErrorHandler
  Set oBackup = CreateObject("SQLDMO.Backup")
  If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then
    oBackup.Devices = "[" & nBack_Dev & "]"
    oBackup.database = nDB_Name
    oBackup.BackupSetName = nBack_Set
    oBackup.BackupSetDescription = nBack_Desc
    oBackup.SQLBackup oSQLServer
    oSQLServer.Disconnect
    DB_Backup = True
  End If
  
  Exit Function
ErrorHandler:
  DB_Backup = False
End Function
Private Function Connect_SQLDB(ByVal nServer_Name As String, _
    ByVal nDB_Login As String, _
    ByVal nDB_Password As String) As Boolean
  
  ' nServer_Name = SQL server name
  ' nDB_Login = Login name
  ' nDB_Password = Password

  Set oSQLServer = CreateObject("SQLDMO.SQLServer")
  On Error GoTo ErrorHandler
  Connect_SQLDB = False
  oSQLServer.Connect nServer_Name, nDB_Login, nDB_Password
  Connect_SQLDB = True
  Exit Function
ErrorHandler:
  oSQLServer.Disconnect
  Connect_SQLDB = False
End Function

 

[محمد القدسي]

جزاك الله خيرا استاذي

ولاكن كيف يكون حدث تفعيل الوحدة النمطية في النموذج

[محمد القدسي]

استاذي ابو خليل ان شاء الله تكمل ما بدأت به او احد الاستاذة فاخوكم طالب علم مبتدئ وقد بدأت في مشروعي بالسيكوال وكان لكم بعد الله الفضل الكبير

وجزاكم الله خيرا

 

[ابوخليل]

في الوحدات النمطية لن تعدل شيئا الافي هذا السطر والموجود في الوحدة النمطية الأولى
If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then
سوف تستبدل المتغيرات داخل القوسين بما يناسبها : اسم السكوال / اسم المستخدم / كلمة المرور

ثم تنتقل الى حدث الزر في النموذج وتستدعي الوحدة النمطية الاولى هكذا :

DB_Backup( ...,...,...,...,...,...,...)

ستضع مكان النقط ما يناسبها بدلا  من المتغيرات التالية  ويجب ان يكون بالترتيب الاول فالاول
SQL server name اسم السيرفر عندك
Database name   اسم قاعدة البيانات عندك
Login name  اسم المستخدم
Password  كلمة المرور
Backup device name  اسم الجهاز الذي سيتم النسخ عليه
Backup set name  اسم النسخة
Backup discription   وصف النسخة
الثلاث الاخيرة حسب اختيارك

[ابو ياسين المشولي]

بارك الله فيك استاذ ابوخليل

دائما مبدع في حلولك وشروحاتك

الله يوفقك يارب

[محمد القدسي]

والله ماضبطت استاذي 

وخاصة عند المتغير SQLDMO في هذا السطر 

Private oSQLServer As SQLDMO.SQLServer

يا حبذا لو تكرمت تجعله في مرفق بعد وضع مسميات وهمية في 

DB_Backup( ...,...,...,...,...,...,...)

لانه يظل معي باللون الاحمر

وبارك الله فيك وفي علمك ونفع بك

[ابوخليل]

انت مخير  اما ان تزيل الاقواس  او تحدد النداء بـــ  Call

Call DB_Backup(SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription)
'DB_Backup SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription

 

db1.mdb

[محمد القدسي]

استاذي العزيز عند الضغط على زر الامر تظهر الصورة كما في المرفق

[ابوخليل]

هل كتبت المسميات في مكانها الصحيح بدل المتغيرات

اكتب لنا هنا المسميات الخاصة بك ، او ارفق المثال بعد تعديلك عليه

علما انني لا يمكن ان افيدك جازما في سبب الاخطاء حتى يكون في جهازي sql server اطبق عليه

[محمد القدسي]

استاذي العزيز هذا المرفق

db1.mdb

[محمد القدسي]

للرفع

[ابوخليل]

تم التعديل 

يجب ان تضيف المكتبة المرفقة قبل التجربة

جرب  ووافنا بالنتيجة

 

SQLDMO.rar

[محمد القدسي]

استاذي العزيز الملف شكله معطوب لا يفتح

[ابوخليل]

حدث برنامج الضغط الى اصدار احدث

[محمد القدسي]

استاذي العزيز ابو خليل السلام عليكم 

قمت بتحديث برنامج الضغط واشتغل ولاكن ظهرت هذه الاخطاء حتى بعد قمت باضافة SQLDMO.DLL الى المكتبة كما قي الصورة الثانية

والله يجزيك الجنة لاهتمامك بمتابعة مواضيع واسئلة اخوانك وطلابك