backup data base

اخي ابحث عن Backup انا لقيت مواضيع اي نعم سي بس انت خد الفكرة .. .

http://www.planet-source-code.com/vb/scrip...B1=Quick+Search

الرابط ده في كم مثال بس فيجوال بيزك دوت نت .. ارجو اكون أفدتك

إن كنت تعمل على SQL Server حاول البحث أو السؤال في قسم SQL server

لا يا استاذى اعمل على اوفس 2003 انا اتيت بشرح لها فى السكول واتيت من الرابطه اللى وضعها اخى الاستاذ بس لا يعملو

ارجو منك اخى المشرف ان تضع لى مثال على فجول بيسك 2005 لل بيك اب والرستور ده بعد اذن حضرتك طبعا او شرح لها

انا اسف معلش

- بالنسبة للأكسيس الموضوع أبسط مما تتخيل أغلق قاعدة البيانات ثم استخدم أوامر نسخ الملفات لعمل النسخة الاحتياطية

اخى العزيز واستاذى قبل اى شىء

انا لا اطيل فى الموضوع ولكنى اريد الفهم ده بعد اذنكم طبعا اورى ان حضرتكم لا تمانع ذللك

انا بحثة عن ما قلت لى بخصوص نسخ الملفات ولكن حدث لى مشاكل وبعد البحث اكثر وجدة مثال به تطبيق على backup

ولكن هناك اشياء كثيره مافهمتها ساحاول ارفاق الكود وتفهمنى اياه او تقوم بشرح ما فيه

  Dim CN As String
		Try
			Dim SourceFile, DestinationFile As String
			SourceFile = (System.Windows.Forms.Application.StartupPath & "\test.mdb")

			CN = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

			If CN.Trim <> "" Then
				If InStr(CN, "\") Or InStr(CN, "/") Then
					CN = Replace(CN, "\", "-", 1, -1, CompareMethod.Text)
					CN = Replace(CN, "/", "-", 1, -1, CompareMethod.Text)
				End If

				DestinationFile = "D:\MyCompany\BACKUP\"

				If Dir(DestinationFile, vbHidden) <> "" Then
					DestinationFile = DestinationFile & "test" & CN & ".mdb"
				Else
					MkDir(DestinationFile)
					DestinationFile = DestinationFile & "test" & CN & ".mdb"
				End If
				FileCopy(SourceFile, DestinationFile)

				MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
			End If

		Catch

		End Try

فما المقصود من CN فى المثال غير الانبت بكس

وايضا DIR,Makdir

وياريت كود RESTORE_DB

انا اسف يا استاذى للتطويل بس نفسى افهم معلش

اشكركم اخى وجزاكم الله خيرا

ما مشكلة بس أنا ماحبيت أعطيك الحل فوري لأني بعتقد أنك وقت بتحاول بتتعلم أكثر وهي ضفت شوية تعليقات على الكود وعدلت شوي بحلقة Try مشان إذا ظهرت الك مشكلة تعرف من الرسالة وين وتحاول تحلها

		' تعريف متغير نصي
		Dim CN As String
		' استخدام جملة التقاط الاستثناء لاصطياد الأخطاء
		Try
			' تعريف متغيرين نصيين يمثلان اسم الملف المصدر واسم الملف الهدف
			Dim SourceFile, DestinationFile As String
			' تحديد اسم الملف المصدر
			SourceFile = (System.Windows.Forms.Application.StartupPath & "\test.mdb")

			' الطلب من المستخدم ادخال بواسطة InputBox
			CN = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

			' إذا كان المتغير النصي غير فارغ
			If CN.Trim <> "" Then
				' استبدال أحرف / أو \ بـ - ـ
				If InStr(CN, "\") Or InStr(CN, "/") Then
					CN = Replace(CN, "\", "-", 1, -1, CompareMethod.Text)
					CN = Replace(CN, "/", "-", 1, -1, CompareMethod.Text)
				End If

				' تحديد المكان الهدف
				DestinationFile = "D:\MyCompany\BACKUP\"


				If Dir(DestinationFile, vbHidden) <> "" Then
					' إذا كان اسم المجلد أو الملف غير فارغ يعني موجود
					' تحديد اسم الملف الهدف
					DestinationFile = DestinationFile & "test" & CN & ".mdb"
				Else
					' أنشئ المجلد
					MkDir(DestinationFile)
					' تحديد اسم الملف الهدف
					DestinationFile = DestinationFile & "test" & CN & ".mdb"
				End If
				' نسخ الملف المصدر إلى الهدف
				FileCopy(SourceFile, DestinationFile)

				' إظهار رسالة بانتهاء العملية
				MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
			End If

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

انا شاااااااااااااكر ليك استاذى ومعلمى كثيرا بارك الله فيك الحمد لله تم وفهمت والحمد لله

لله الفضل اولا واخيرا ولك اخى الفضل بعد الله

ثانيا معلش انا رخم شويه كيف اقوم بعمل رستور هل مثل ذلك الكود ام اوامر اخر معلش بتثاقل عليك ولكن مشكلتك انك انت الاستاذ واحنا الطلبه لازم نرخم عليكو انا اسف

وشاكر ليك جداااا جدااااا الف شكر

لا شكر على واجب كلنا إخوة هنا وأرجو أن تكون مشكلتك قد حلت

بالنسبة للريستور

نفس الكود تقريبا بس اعكس بارامترات أمر FileCopy يعني

FileCopy(DestinationFile, SourceFile)

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

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

افضل استخدام اداة عن طريق ال jro فهي تقوم بعمل compact and repear لقاعدة البيانات و هي نفس العمكلية التي يقوم بها برنامج اكسس عندما تختار له عملية

و compact and repear و يعطيك قاعدة جديدة بمسار انت تقوم بتحديده للاسف ملف ال dll حاليا غير متوفر لدي و لكن فقط اكتب jro و ستجد هذا الملف

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

ارجو ان اكون قد اوصلت الفكرة و السلام

مشكورين يا أحباب