تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل BackUp لقاعدة بيانات Sql Server
#1
كاتب الموضوع : جهاد العريقي

لعمل BackUp لقاعدة بيانات عن طريق SqlServer نستخدم الكود الاتي:

طبعاً هذا الكود بإستخدام ADO , والربط عن طريق الكود :

اي اننا سنضيف References الا ADO وذلك من

Project >References < MicroSoft Activex Data Objects x Library




كود :
[color=#000000][COLOR=#0000bb][/color][COLOR=#dd0000]'في حدث   General  

Dim cnn As ADODB.Connection  
Dim rst As ADODB.Recordset  



Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection


'[/COLOR][COLOR=#0000bb]فحص الاتصال اذا كان مفتوح  
[/COLOR][color=#007700]If [/color][color=#0000bb]cnn[/color][color=#007700].[/color][color=#0000bb]State [/color][color=#007700]= [/color][color=#0000bb]1 Then cnn[/color][color=#007700].[/color][COLOR=#0000bb]Close
[/COLOR][color=#007700]If [/color][color=#0000bb]rst[/color][color=#007700].[/color][color=#0000bb]State [/color][color=#007700]= [/color][color=#0000bb]1 Then rst[/color][color=#007700].[/color][COLOR=#0000bb]Close

[/COLOR][COLOR=#dd0000]'نص الاتصال مع قاعدة البيانات  
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated " & _
"Security=SSPI;Persist Security Info=False;" & _
"Initial Catalog=Jihad; " & _
"Data Source=JIHAD-A05803FA7\SQLEXPRESS"

cnn.Open
' [/COLOR][COLOR=#0000bb]امر  Sql الخاص  بإنشاء نسخة إحتياطية لقاعدة البيانات التي  وضعنا إسمها في  Text1
rst[/COLOR][color=#007700].[/color][color=#0000bb]Open [/color][color=#dd0000]"BACKUP DATABASE " [/color][color=#007700]& [/color][color=#0000bb]Text1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#0000bb]_
            [/COLOR][color=#dd0000]" TO DISK ='" [/color][color=#007700]& [/color][color=#0000bb]Text1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]".bak'"[/color][color=#007700], [/color][COLOR=#0000bb]cnn


بعد الانتهاء  نقفل الاتصال بقاعدة البيانات  
cnn[/COLOR][color=#007700].[/color][COLOR=#0000bb]Close

Set rst [/COLOR][color=#007700]= [/color][COLOR=#0000bb]Nothing
Set cnn [/COLOR][color=#007700]= [/color][COLOR=#0000bb]Nothing


End Sub  
[/COLOR][/COLOR]

بالتوفيق.
}}}}
تم الشكر بواسطة:
#2
طبعاً قبل ذلك يجب إضافة References ..

Project->Reference ,add Microsoft SQLDMO Library

بعد إضافة زر امر نضع هذا الكود ..


كود :
[color=#000000][COLOR=#0000bb]Dim SQLSvr [/color][color=#007700]As [/color][color=#0000bb]SQLDMO[/color][color=#007700].[/color][COLOR=#0000bb]SQLServer  
Dim Backup [/COLOR][color=#007700]As [/color][color=#0000bb]SQLDMO[/color][color=#007700].[/color][COLOR=#0000bb]Backup  

Set SQLSvr [/COLOR][color=#007700]= New [/color][color=#0000bb]SQLDMO[/color][color=#007700].[/color][COLOR=#0000bb]SQLServer  

Set Backup [/COLOR][color=#007700]= New [/color][color=#0000bb]SQLDMO[/color][color=#007700].[/color][COLOR=#0000bb]Backup  

SQLSvr[/COLOR][color=#007700].[/color][color=#0000bb]Connect [/color][color=#dd0000]"myserver"[/color][color=#007700], [/color][color=#dd0000]"username"[/color][color=#007700], [/color][COLOR=#dd0000]"password"  

[/COLOR][color=#0000bb]Backup[/color][color=#007700].[/color][color=#0000bb]Database [/color][color=#007700]= [/color][COLOR=#dd0000]"mydatabase"  
[/COLOR][color=#0000bb]Backup[/color][color=#007700].[/color][color=#0000bb]Files [/color][color=#007700]= [/color][COLOR=#dd0000]"c:mydatabase.bak"  
[/COLOR][color=#0000bb]Backup[/color][color=#007700].[/color][COLOR=#0000bb]SQLBackup SQLSvr  
SQLSvr[/COLOR][color=#007700].[/color][COLOR=#0000bb]DisConnect  
Set SQLSvr [/COLOR][color=#007700]= [/color][COLOR=#0000bb]Nothing  
Set Backup [/COLOR][color=#007700]= [/color][COLOR=#0000bb]Nothing  

End Sub  
[/COLOR][/COLOR]


وهذه هي الطريقةالثانية ..
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قراءة بيانات من الذاكرة RaggiTech 0 337 17-10-12, 02:51 PM
آخر رد: RaggiTech
  كـود نقل البيانات من قاعدة بيانات الى أخرى Database Syncronization (هدية العيد -)) RaggiTech 0 564 17-10-12, 02:43 PM
آخر رد: RaggiTech
  انشاء قاعدة بيانات جديدة Ado RaggiTech 0 380 17-10-12, 12:25 AM
آخر رد: RaggiTech

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


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