اكواد لعمل الباك اب والريستور في الفيجوال بيسك

السلام عليكم

وين مافي احد يرد على الموضوع

لهدرجة صعب

أبو ريناد أتمنى تطول بالك وتعذر الأخوة ..

بالنسبة للباك أب الامر سهل مجرد عملية نسخ لقاعدة البيانات من خلال الأمر التالي

FileCopy("c:\DATABASENAME.mdb", "d:\DATABASENAME.mdb")

ولا تنسى أن تتأكد من اغلاق الاتصال بقاعدة البيانات قبل عملية النسخ ..

السلام عليكم

بالنسبة لكود الاخ نبيل المشفى

هل هذا الكود يعمل دائما بالشكل المطلوب منه؟؟؟

يعني أنا عملت بالك اب لقاعدة البيانات بالكود الذي تفضلت وكتبته وتمت العملية بنجاح ......تمام

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

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

الجديد

أرجو التوضيح

وشكراااااا

السلام عليكم

مشكورين اخواني على الرد

اخي نبيل المشفي انا مستعجله

لان عندي مشروع وراح نسلمه السبت

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

يمكنني ان اعمل باك اب والاسترجاع ومكان حفظ الباك اب

وعندي هذا الملف بس مني عارفه كيف اتعامل معها لذلك ارجو منكم ان توفيدوني وبسرعة

Project5.rar

الأخ أبو ريناد أرفقت لك المثال وأتمنى يكون واضح

وبالنسبة لك أخي dr.misho فسيقوم الأمر بالاستبدال مباشرة وتستطيع أن تتأكد من ذلك بالتجربة

على مثال بسيط ..

بالنسبة للاسترجاع مجرد عملية عكسية للنسخ

_______________________________.rar

مشكور اخي نبيل المشفي على الرد السريع

بس عندي مشكله ان البروجيكت ما يشتغل

مجرد ما افتح يعطيني رسالة خطا ماادري ليه

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

ابغ اساللك راح تكون بنفس الطريقة

ارجو الرد بسرعة لو تقدر اليوم

علشان اقدر اكمل الباقي

لان نفسي اسوي في نفس الفورم صلاحيات

وش رايك

عندي جدول فيه اسم المستخدم والكلمة السر

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

يعني المدير بيده كافة الصلاحيات

واي موظف اخرى ليس لديه إلى الإضافة فقط دون التعديل اوالحذف شيء زي كذا

واريد اقول انه ماعندي جدول للموظفين

تتوقع راح يضبط

ولك الشكر الجزيل :wub:

Microsoft_Word_Document_New_111.rar

معليش أبو ريناد حبة حبة علي لأنك شربكت المواضيع مع بعض وما فهمت وش تقصد

بالنسبة للمشروع اذا مافتح معك قم بانشاء فورم وضع فيه 2 تكست بوكس و2 بوتن

التكست بوكس الأول اسمه txt_name وهو لاسم الباك اب

التكست بوكس الثاني اسمه txt_path وهو لمسار حفظ الباك أب

البوتن الأول اسمه btn_browser لاستعرض المجلدات من أجل الحصول على مسار حفظ الباك أب

البوتن الثاني اسمه btn_copy من أجل انشاء الباك أب

وأسحب الأداة FolderBrowserDialog على الفورم

ثم ضع هذا الكود

 Private Sub btn_browser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_browser.Click

		Dim selectedFolder As String
		If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
			selectedFolder = FolderBrowserDialog1.SelectedPath
			txt_path.Text = CStr(selectedFolder)
		End If

	End Sub

	Private Sub btn_copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_copy.Click
		Dim fullpath As String = txt_path.Text + "\" + txt_name.Text + ".mdb"
		FileCopy("DATABASEPATH", fullpath)
	End Sub

وبالنسبة للموضوع الثاني وهو صلاحيات المستخدمين

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

ومنعها عن البعض الآخر ويكون هذا الحقل من نوع ( yes/no) ..

مثلا نضيف حقل للاضافة وعند الرغبة بمنع مستخدم من الاضافة نجعل قيمة هذا الحقل ( no ) وفي فورم الاضافة

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

هذه الفكرة وعليك التطبيق ..

السلام عليكم

اشكر اخي على الرد

جربت إلى موجود في المرفق ولكن يعطيني خطا عند my.computer

Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" + My.Computer.Name + ";Initial Catalog=tempdb;Integrated Security=SSPI;")

MessageBox.Show(" قاعدة البيانات متصلة بالسرفر بالفعل", My.Computer.Name, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

ما ادري ليش يمكن لانه الفيجوال الذي استخدمه 2003

ولك الشكر الجزيل

جربت الكود إلى حاطه الزر الازل يشتغل اما زر النسخ يتوقف عند FileCopy("DATABASEPATH", fullpath)

بس اسال انت قصد اسوي حقل الاضافة وغيره طيب كيف اخليه yse ,no اش اخلي نوع البيانات

في دالة filecopy استبدل العبارة DATABASEPATH بمسار قاعدة البيانات لديك حتى تقوم

الدالة بنسخها فهي تأخذ بارميترين من نوع string الأول لمسار قاعدة البيانات الحالية والثاني لموقع الباك أب

من الضروري جدا أن تفهم الكود السابق وأنا سأساعدك فيما يشكل عليك

أما حقل الاضافة فستطيع جعل نوع البيانات yes/no في الأكسس ولم أنتبه أنك تعمل على sql لذلك

اجعل نوع الحقل bit ويكون إما true أو false

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

اذا ممكن تعطيني طريقة كتابة المسار ولزم اكتب وين موجود القاعدة

Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("c:\factory.mdf")



Dim fullpath As String = txt_path.Text + "\" + txt_name.Text + ".mdb"

FileCopy(SqlConnection1.ConnectionString = "workstation id=DELL;packet size=4096;integrated security=SSPI;data source=DELL;persist security info=true;initial catalog=Factory", fullpath)

وابغى اسال عن المجلد الذي ضبظه ليش يطلع الخطا عن my.computre.name