+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم تقنية LinQ (http://vb4arb.com/vb/forumdisplay.php?fid=204)
+--- الموضوع : إنشاء مشروع باستخدام sql server و linq وتقارير crystal report (/showthread.php?tid=7842)
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 21-03-13
كود النسخ الاحتياطي:
:#C
كود :
[align=left]SaveFileDialog sfd = new SaveFileDialog();
sfd.Title = "نسخة احتياطية";
sfd.FileName = string.Empty;
sfd.Filter = "نسخة احتياطية|*.bak";
if (sfd.ShowDialog() == DialogResult.OK)
try
{
string dbname = string.Format("{0}{1} {2}{3}",
System.IO.Path.GetDirectoryName(sfd.FileName),
System.IO.Path.GetFileNameWithoutExtension(sfd.FileName),
DateTime.Today.ToShortDateString().Replace('/','-'),
System.IO.Path.GetExtension(sfd.FileName));
db.ExecuteCommand("backup database PhoneBookDB to disk ='" + dbname + "'");
MessageBox.Show("تم إنشاء النسخة الإحتياطية", Text, MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); }
sfd.Dispose();
sfd = null;
[/align]:VB
كود :
[align=left]Dim sfd As New SaveFileDialog()
sfd.Title = "نسخة احتياطية"
sfd.FileName = String.Empty
sfd.Filter = "نسخة احتياطية|*.bak"
If sfd.ShowDialog() = DialogResult.OK Then
Try
Dim dbname As String = String.Format("{0}{1} {2}{3}", _
System.IO.Path.GetDirectoryName(sfd.FileName), _
System.IO.Path.GetFileNameWithoutExtension(sfd.FileName), _
DateTime.Today.ToShortDateString().Replace("/"c, "-"c), _
System.IO.Path.GetExtension(sfd.FileName))
db.ExecuteCommand("backup database PhoneBookDB to disk ='" & dbname & "'")
MessageBox.Show("تم إنشاء النسخة الإحتياطية", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
sfd.Dispose()
sfd = Nothing
[/align]كود استرجاع قاعدة البيانات:
:#C
كود :
[align=left]if (MessageBox.Show("سوف يتم استبدال جميع البيانات\nهل تريد الاستمرار", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No) return;
OpenFileDialog ofd = new OpenFileDialog();
ofd.Title = "استرجاع";
ofd.FileName = string.Empty;
ofd.Filter = "نسخة احتياطية|*.bak";
if (ofd.ShowDialog() == DialogResult.OK)
try
{
db.ExecuteCommand("restore database PhoneBookDB from disk ='" + ofd.FileName + "'");
MessageBox.Show("تم استرجاع النسخة", Text, MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); }
ofd.Dispose();
ofd = null;
[/align]:VB
كود :
[align=left]If MessageBox.Show("سوف يتم استبدال جميع البيانات" & vbCrLf & "هل تريد الاستمرار", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub
Dim ofd As New OpenFileDialog()
ofd.Title = "استرجاع"
ofd.FileName = String.Empty
ofd.Filter = "نسخة احتياطية|*.bak"
If ofd.ShowDialog() = DialogResult.OK Then
Try
db.ExecuteCommand("restore database PhoneBookDB from disk ='" & ofd.FileName & "'")
MessageBox.Show("تم استرجاع النسخة", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
ofd.Dispose()
ofd = Nothing
[/align]كود تصفير قاعدة البيانات:
:#C
كود :
[align=left]if (MessageBox.Show("سوف تفقد جميع البيانات\nهل تريد الاستمرار", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No) return;
try { db.DeleteDatabase(); db.CreateDatabase(); GetData(); }
catch (Exception ex) { MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error); }[/align]:VB
كود :
[align=left]If MessageBox.Show("سوف تفقد جميع البيانات" & vbCrLf & "هل تريد الاستمرار", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub
Try
db.DeleteDatabase()
db.CreateDatabase()
GetData()
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try[/align]هذا والله تعالى أعلم وأجل
وصلى الله على سيدنا محمد وعلى آله وصحبه أجمعين
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - محمود رغمان - 21-03-13
اخى الكريم بارك الله فيك
حفظك الله للمسلمين
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 21-03-13
محمود رغمان كتب :اخى الكريم بارك الله فيك
حفظ النسخة فى vb يعمل و لا يحفظ
حفظك الله للمسلمين
بارك الله فيك، قم بحفظ النسخة الاحتياطية على قرص غير الـ c....
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - محمود رغمان - 22-03-13
اخى الكريم
لاحظ اهتمامنا واعجابنا بهذا المشروع
جزاك الله كل خير
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 22-03-13
محمود رغمان كتب :اخى الكريم
نشكرك على اهتمامك ونأسف لازعاجك
لم يفلح الحفظ فى قرص آخر (تم نسخ الكود ولصقه فى النسخ الاحتياطى)
هل تتفضل بالمراجعة على الكود
لاحظ اهتمامنا واعجابنا بهذا المشروع
جزاك الله كل خير
:o صدقت وأعتذر، كنت أجري الاختبارات على الـ #C، تم تعديل الكود للـ VB.
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - محمود رغمان - 22-03-13
الحمد لله
والفضل لعلمك بارك الله فيك
تم الحفظ بنجاح
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 22-03-13
سوف أرى الخطأ فيما بعد إن شاء الله، اعتذر الآن.
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 25-03-13
نحمده ونصلي على رسوله الكريم
بحثت كثيرا عن الحل ولم اتوصل لشيء مع الاسف
....كلمات البحث:
unable to restore database because it is in use by this session
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - محمود رغمان - 25-03-13
بارك الله فيك واكثر من أمثالك
إنشاء مشروع باستخدام sql server و linq وتقارير crystal report - ربيع - 25-03-13
نحمده ونصلي على رسوله الكريم
يمكن استخدام برنامج microsoft sql server management studio، لادارة قواعد البيانات، من نسخ احتياطي واسترجاع الخ....