عمل BackUp لقاعدة بيانات Sql Server - نسخة قابلة للطباعة

كود :

[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]

كود :

[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]