17-10-12, 03:39 PM
كاتب الموضوع : جهاد العريقي
لعمل 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]
بالتوفيق.