كيف يمكت تخزين كل ما يكتب في Datagrid دفعة واحدة

اخى تفضل

save__seach

مشكور اخي على هذا المثال 000 ولكن الحل بعيد جدا عما نبحث عنة000 يرجي المراجعة

مع كل الاحترام والتقدير

يرجى المساعدة من الاعضاء الكرام

وشكرا

اين الشباب والاعضاء المحترفين

up

اخواني الاعضاء

على ما يبدو ان المثال غير مفهوم

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

هل الامر صعب 0000 يرجى الرد 000 المعذرة

اخواني الاعضاء

على ما يبدو ان المثال غير مفهوم

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

هل الامر صعب 0000 يرجى الرد 000 المعذرة

وما زال البحث جاريا

up

أخي الكريم ، أنت لديك العديد من الأمثلة بالمنتدي تفيد بذلك ، وليس من الشرط أن يكون العنوان متشابه !!!

لكن أخي إسمح لي أن أعطي لك الفكرة وحاول مع نفسك ، وإذا لم تنجح أنا تحت أمرك !!

نفرض أن لديك قاعدة بيانات تحتوي علي جدول Dep ، هذا الجدول يحتوي علي مجموعة من السجلات وترغب في عرض محتويات هذا الجدول بجدول DataGrid !!!

أفتح كائن Recordset يجلب لك بيانات الجدول كلياً !!!

حاول تحفظ البيانات المرتجعة بكائن الـ Recordset في أي مسار علي مشغل السواقة الصلب كما يلي :

Rs.Save App.Path & "\DataRs.rs"

بهذه الطريقة قد أرسلت محتويات الجدول الي ملف بيانات ، أغلق كائن البيانات ومن ثم حاول فتحة مرة أخري من المسار التي قمت بحفظ النتائج فية من قبل كما يلي :

If(Rs.State = 1)Then Rs.Close
Rs.Open App.Path & "\DataRs.rs"

من هنا فتحت البيانات المخزنة بملف البيانات بكائن الـ Rs يمكنك إرسال هذا الكائن للجريد كما يلي :

Set DataGrid1.DataSource = Rs

بعد ذلك قم بالتعديل علي الـ DataGrid كما تشاء وأنت متأكد تماماً أن البيانات سيتم حفظها حفظ مؤقت بذاكرة الحاسب بمعني أنه لا يتم تخزين المعلومات بقاعدة البيانات ، وحتي لا يتم تخزين البيانات بملف DataRs.rs إلا بعد أن يتم حذفة ثم حفظ البيانات الجديدة كما يلي :

Kill App.Path & "\DataRs.rs"
Rs.Save App.Path & "\DataRs.rs"

بعد ذلك يمكنك إنشاء زر أمر Command Button وتكتب بداخلة الكود المناسب للمرور علي كافة محتويات كائن الـ Rs بحيث أن تحفظ محتوياتها بجدول قاعدة البيانات كما تشاء ، وإليك فكرة بسيطة :

On Error GoTo ExitError
	Cn.BeginTrans
	Cn.Execute "Delete From Dep"
	Do While Not Rs.EOF
		Cn.Execute "Insert Into Dep(Dep_Code,Dep_Name) Values('" & _
				   Rs(0) & "','" & Rs(1) & "')"
		Rs.MoveNext
	Loop
	Cn.CommitTrans
	Exit Sub
ExitError:
	Cn.RollbackTrans

طبعاً مجرد فكرة ، لكن هناك الأفكار كثيرة ، ومن المستحب أن العملية ( Delete From Dep ) لا تتم ، ولكن من المفضل إضافة حقل إضافي يحتوي علي كافة معلومات كل سجل مثل :

None
Delete
Update
Insert

بحيث أن كل أمر يمثل عملية معينة ، أما عملية الحذف الكلي للسجلات ثم إدراجها مرة أخري يؤدي الي حدوث بطأ للبرنامج ، وكذلك عملية الإدراج تؤدي الي حدوث بطأ ، ولكن فكرة العمود الإضافي تؤدي الي إدراج أو حذف أو تعديل حسب الطلب وحسب تعديل المستخدم بسجل البيانات .

كذلك العملية Save و Open يمكننا الإستغناء عنها وإستخدام أسلوب آخر مثل :

rs.Fields.Append "FieldName","DataType","FieldSize"
Rs.Open

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

علي العموم حاول وإذا حدث أي مشكلة راسلني بالمنتدي

بالتوفيق

اخي العزيز MMA-EG-cairo الله يعطيك العافية على هذا الشرح الرائع وقد اعطيتنا افكار عديدة منه الصعب ومنها الصعب جدا بالنسبة لي

سنحاول ونحاول والله الموفق

اشكرك مرة اخرى واتمنى من الله العلي العظيم ان تكون في ميزان حسناتك

وما زال البحث جاريا عن الحل

أخي الكريم ، أنت ترغب في إجراء حفظ لمجموعة من السجلات دفعة واحدة فأعتقد أن ما قمت بإدراجة لك هو أسهل بكثير من طرق أخري !!!

ما المشكلة إذاً

شكراً