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


الرئيسيةالرئيسية  أحدث الصورأحدث الصور  دخولدخول  التسجيلالتسجيل  
آيـــــات الشفاء في القرآن الكريم إن هذه الآيات تجتمع في كل آية فيها كلمة شفاء و تقرأ بترتيب المصحف فقد قال العلماء أن في هذا استعانة بكلام الله على الشفاء و خصوصا بالنسبة للأمراض التي لا تقدر عليها أسباب البشر...وهـــم:- الآية 14 من سورة التوبة: قَاتِلُوهُمْ يُعَذِّبْهُمُ اللّهُ بِأَيْدِيكُمْ وَيُخْزِهِمْ وَيَنصُرْكُمْ عَلَيْهِمْ وَيَشْفِ صُدُورَ قَوْمٍ مُّؤْمِنِينَ... صدق الله العظيم الآية 57 في سورة يونس : يَا أَيُّهَا النَّاسُ قَدْ جَاءتْكُم مَّوْعِظَةٌ مِّن رَّبِّكُمْ وَشفَاء لِّمَا فِي الصُّدُورِ وَهُدًى وَرَحْمَةٌ لِّلْمُؤْمِنِينَ... صدق الله العظيم الآية 69 من سورة النحل : وَاللّهُ خَلَقَكُمْ ثُمَّ يَتَوَفَّاكُمْ وَمِنكُم مَّن يُرَدُّ إِلَى أَرْذَلِ الْعُمُرِ لِكَيْ لاَ يَعْلَمَ بَعْدَ عِلْمٍ شَيْئًا إِنَّ اللّهَ عَلِيمٌ قَدِيرٌ... صدق الله العظيم الآية 82 من سورة الإسراء : وَنُنَزِّلُ مِنَ الْقُرْآنِ مَا هُوَ شِفَاء وَرَحْمَةٌ لِّلْمُؤْمِنِينَ وَلاَ يَزِيدُ الظَّالِمِينَ إَلاَّ خَسَارًا... صدق الله العظيم الآية 80 من سورة الشعراء : وَإِذَا مَرِضْتُ فَهُوَ يَشْفِينِ... صدق الله العظيم الآية 44 من سورة فصلت : وَلَوْ جَعَلْنَاهُ قُرْآنًا أَعْجَمِيًّا لَّقَالُوا لَوْلَا فُصِّلَتْ آيَاتُهُ أَأَعْجَمِيٌّ وَعَرَبِيٌّ قُلْ هُوَ لِلَّذِينَ آمَنُوا هُدًى وَشفَاء وَالَّذِينَ لَا يُؤْمِنُونَ فِي آذَانِهِمْ وَقْرٌ وَهُوَ عَلَيْهِمْ عَمًى أُوْلَئِكَ يُنَادَوْنَ مِن مَّكَانٍ بَعِيدٍ...||

 

 إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر

اذهب الى الأسفل 
كاتب الموضوعرسالة





التقييم : 3
نقاط : 360882
تاريخ التسجيل : 01/01/1970

إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر  Empty
مُساهمةموضوع: إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر    إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر  I_icon_minitimeالخميس ديسمبر 06, 2012 10:00 am

السلام عليكم ورحمة الله وبركاته

في هذا الموضوع نتعرف إن شاء الله على كيفية عمل نسخة احتياطية BackUp واستعادتها من قاعدة بينات Sql بواسطة برنامج Visual Basic.net

اولا تصميم النموذج

نقوم بإنشاء مشروع windows جديد ونضع فيه TextBox ونعطيها الاسم
txtDbName وسيتم إعطاؤه اسم قاعدة البيانات التي نريد حفظها أو استعدتها

وكذلك List Box ونسميها LbDataBases وسنستخدمه لعرض جميع قواعد البيانات الموجود على السيرفر المحلي

ثم ضع زرين الأول لحفظ النسخة والآخر لاستعادة نسخة موجودة

قم بإضافة OpenFileDialoge وأعطه الاسم OFD

إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر  1325457942311

في البداية يجب إضافة مرجعين للمشروع

اختر قائمة Project ومنها Add Reference

واختر المرجعين


Microsoft.SqlServer.ConnectionInfo الثاني Microsoft.SqlServer.Smo

ثم قم باستيراد المكتبتين في النموذج بكتابة الكود التالي في أعلى صفحة الكود




كود PHP:




Imports Microsoft.SqlServer.Management.Common
Imports Microsoft
.SqlServer.Management.Smo
Imports System
.Data.SqlClient







في جزء التصريحات العامة للنموذج قم بتعريف المتغيرات التالية




كود PHP:




Dim sql As String
Dim cs
As New SqlConnection







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




كود PHP:




sql = "Data Source=(Local); DataBase=; Integrated Security=SSPI"
cs = New SqlConnection(sql)
Dim Myserver As ServerConnection = New ServerConnection(cs)
Dim NewMyServer As Server = New Server(Myserver)
For
Each database As Database In NewMyServer.Databases
LbDataBases
.Items.Add(database.Name)
Next







اضغط دبل كلك على ListBox واكتب الكود التالي ووظيفته عند اختيار أي قاعدة بيانات يتم وضع اسمها في TextBox




كود PHP:




txtDbName.Text = LbDataBases.Text







في حدث الضغط على زر حفظ نسخة نكتب الكود التالي



كود PHP:




cs = New SqlConnection(sql)
Dim conn As New ServerConnection(cs)
Dim bcp As New Backup
Dim srv
As New Server(conn)
bcp.Database = txtDbName.Text
Dim dbi
As New BackupDeviceItem(Application.StartupPath & "\MyBackUp.bak", DeviceType.File)
bcp.Devices.Add(dbi)
bcp.SqlBackup(srv)







في حدث الضغط على زر استعادة نسخة نكتب الكود التالي



كود PHP:




If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim cs
As New SqlConnection(sql)
Dim conn As New ServerConnection(cs)
Dim res As New Restore
Dim srv
As New Server(conn)
res.Database = txtDbName.Text
res
.Devices.Add(New BackupDeviceItem(OFD.FileName, DeviceType.File))
res.ReplaceDatabase = True
res
.Partial = False
If res.SqlVerify(srv) Then
srv
.KillAllProcesses(txtDbName.Text)
srv.DetachDatabase(txtDbName.Text, True)
res.SqlRestore(srv)
End If
End If








ملاحظة

شرح الأكواد في الملف المرفق



المثال

أرجو أن يكون الموضوع مفيد لكم

وشكرا على المتابعة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
إنشاء واستعادة نسخة احتياطية من قاعدة بيانات sql ب vb.netالسلام عليكم ورحمة الله وبر
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» ربط قاعدة بيانات اكسس 2003 محمية بكلمة سر بالفيجيوال بيسك 6
» ربط قاعدة بيانات اكسس 2003 محمية بكلمة سر بالفيجيوال بيسك 6
» كتاب لتعلم كيفية عمل نسخة احتياطية من ويندوز 7
» تحميل كتاب لتعلم كيفية عمل نسخة احتياطية من ويندوز 7 بسهولة
» برنامج CopyTrans TuneSwift 1.676 لعمل نسخة احتياطية من ملفات الكمبيوتر

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات اهل الحق :: منتديات الإبداع و التصميم :: منتدى لغات البرمجة-
انتقل الى: