كيف يمكن نقل السجلات من جدول الى اخر بطريق Ado بكود 000 مين يساعدنا

بدنا المساعدة في التعلم يا شباب

با :rolleyes: رك الله فيك وزادك الله علما وكثر الله من أمثالك

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

نقل السجلات من جدول الى جدول اخر مسئلة صعبة000 يرجى المراجعة

العملية سهلة جدا

لنقل السجل المحدد

DB.Execute "insert into aaaa SELECT * From MMMM Where noch =" & datagrid1.Columns(0).Value

لنقل بين تاريخين نفس الطريقة

DB.Execute "insert into aaaa select * from MMMM where Date between #" & Text1.Text & "#" & "and" & "#" & Text2.Text & "#"

نقل جميع الجدول

DB.Execute "insert into aaaa select * from MMMM"

انتظر منك التعديل على البرنامج

اخي العزيز Tareg VB الله يعطيك العافية والصحة

اشكرك كل الشكر على المساعدة في التعديل واليك ما حصل معي

نقل السجل الؤشر علية فقط من جدول Mmmm الى جدول Aaaa الكود لم ينجح معي قطعيا

نقل السجلات المعروضة فقط بعد البحث بين تاريخين فقط من جدول Mmmm الى الجدول Aaaa الكود شغال 100% ولكن هناك مشكلة عند

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

الطريقة الثالثة وهي نقل جميع السجلات من جدول الى اخر الكود شغال 100% وفيها نفس مشكلة بين تاريخين اعادة عرضها مرة اخرى في الجدول الاول

اخي العزيز لاكمال الموضوع حتى يستفاد منة يرجى المساعدة مرة اخرى ليتم تعديل المثال

ولك كل الشكر والعرفان

بالنسبة لنقل سجل واحد يجب ان تغيير اسم ال datagrid حسب اسم الاداة عندك ولست متاكدا من كيفية الحصول على الرقم الموجود في الخلية للصف الحال بحيث استخدمت datagrid1.Columns(0).Value لاستعادتها ( استخدم ادوات اخرى ولم استخدمها من قبل)

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

On Error GoTo hErr
DB.BeginTrans
DB.Execute "insert into aaaa select * from MMMM"
DB.Execute "delete from MMMM"  '  put where
DB.CommitTrans

	Exit Sub

hErr:

DB.CommitTrans
	MsgBox Err.Description & "in Errh at (" & Erl & ")", vbCritical

اخي العزيز Tareg VB اسعد الله اوقاتك

اشكرك كل الشكر على المساعدة في الرد

وقد تم تعديل البرنامح بناء على تعليماتك وتوجيهاتك التي تشكر عليها

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

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

Example.rar

المشكلة عندك هي في اغلاق ال recordset اي في السطر

If RS.State = adStateOpen Then RS.Close

حيث يجب ازالته من كل الاماكن بعد الادخال تعمل

rs.requery

set ms1.datasource=rs

ولا تنسى بعد الاضافة ان تحذف السجل