نقل معلومات من جدول الى آخر من خلال الدلفي مع الأكسس؟

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

اخواني الكرام,, كيف اقوم بنقل سطر من الأسط في جدول من الجوداول في قاعدة بيانات اكسس الى جدول آخر,,

يعني للتوضيح اكثر

عندي في tabel1 اسم الزبون مع عمر الزبون وو الى آخره,,

و اود ان انقله الى tabel2 برمجيّا,, فكيف يتم ذلك ؟

بارك الله لكم

والسلام عليكم ورحمة الله

[محمد نسمان]

يمكن عمل ذلك بطريقتين

الاولى تعتمد على دلفي بشكل أكبر، مثلاً تقوم بقراءة الحقول من الجدول الاول ومن ثم تخزين بيانات الحقول في الجدول الثاني كالتالي:

كود :

TB1.Append; Tb1.FieldByName('CustNo').AsInteger := TbCust.FieldByName('CustNo').AsInteger; Tb1..FieldByName('CustName').AsString := TbCust.FieldByName('CustName').AsString; ... TB1.Post;

ايضاً يمكنك كتابة الكود السابق بطريقة افضل عن طريق عمل جملة تكرار بعدد الحقول الموجودة في الجدول بدلاً من كتابة كل حقل بشكل مباشر

الطريقة الثانية ان تقوم بذلك مباشرة عن طريق جملة SQL مثلاً

كود :

INSERT INTO NewCust SELECT * FROM CustomerTB WHERE CustNo=1;

الطريقة الثانية اسهل ولا تحتاج لمعرفة اسماء الحقول وعددهم.

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

بارك الله فيك اخي الكريم محمد,, وجزاك الله خيرا كثيرا,,

اخي الكريم,, اذا ممكن توضيح بارك الله لك؟

لم افهم المثال جيدا,, يعني ما الذي يحدث في الكود الأول بارك الله لك؟

وما خاصّية Append ؟ بحثت عنها ولكن لم اجد شئ مناسبا,, (رابط؟)

يعني بختصار اخي الكريم,, انا اود عمل move لل record المحدد من جدول 1 الى جدول 2,,

وجزاك الله خيرا,, وآسف على الإزعاج,,

والسلام عليكم ورحمة الله

[محمد نسمان]

Append تقوم بإضافة سجل جديد في الجدول (TB عبارة عن مكون Table)
الكود الذي ذكرته سابقاً يقوم بنسخ السجل بطريقتين، اذا اردت ان تقوم بنقله عليك حذفه بعد النسخ، وفي هذه الحالة استخدم ال Transactions حتى تتاكد من نجاح عملية النسخ والحذف مع بعضها البعض

[AL-MOB4RM3G]

append تقوم بإضافة سجل جديد في الجدول (tb عبارة عن مكون table)
الكود الذي ذكرته سابقاً يقوم بنسخ السجل بطريقتين، اذا اردت ان تقوم بنقله عليك حذفه بعد النسخ، وفي هذه الحالة استخدم ال transactions حتى تتاكد من نجاح عملية النسخ والحذف مع بعضها البعض

بارك الله لك اخي الكريم محمد,, اشكرك كثيرا,,

شكرا لك

[محمد عبد العزيز]

لكي تفهم اكثر Append
عندما تكتب

PHP كود :

Table1.Append; 


كانك (تقريبا) كتبت

PHP كود :

Table1.Last;
Table1.Inseert;