السلام عليكم ورحمة الله
اخواني الكرام,, كيف اقوم بنقل سطر من الأسط في جدول من الجوداول في قاعدة بيانات اكسس الى جدول آخر,,
يعني للتوضيح اكثر
عندي في 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;
الطريقة الثانية اسهل ولا تحتاج لمعرفة اسماء الحقول وعددهم.
السلام عليكم ورحمة الله
بارك الله فيك اخي الكريم محمد,, وجزاك الله خيرا كثيرا,,
اخي الكريم,, اذا ممكن توضيح بارك الله لك؟
لم افهم المثال جيدا,, يعني ما الذي يحدث في الكود الأول بارك الله لك؟
وما خاصّية Append ؟ بحثت عنها ولكن لم اجد شئ مناسبا,, (
رابط؟)
يعني بختصار اخي الكريم,, انا اود عمل move لل record المحدد من جدول 1 الى جدول 2,,
وجزاك الله خيرا,, وآسف على الإزعاج,,
والسلام عليكم ورحمة الله
Append تقوم بإضافة سجل جديد في الجدول (TB عبارة عن مكون Table)
الكود الذي ذكرته سابقاً يقوم بنسخ السجل بطريقتين، اذا اردت ان تقوم بنقله عليك حذفه بعد النسخ، وفي هذه الحالة استخدم ال Transactions حتى تتاكد من نجاح عملية النسخ والحذف مع بعضها البعض
محمد نسمان كتب :append تقوم بإضافة سجل جديد في الجدول (tb عبارة عن مكون table)
الكود الذي ذكرته سابقاً يقوم بنسخ السجل بطريقتين، اذا اردت ان تقوم بنقله عليك حذفه بعد النسخ، وفي هذه الحالة استخدم ال transactions حتى تتاكد من نجاح عملية النسخ والحذف مع بعضها البعض
بارك الله لك اخي الكريم محمد,, اشكرك كثيرا,,
شكرا لك
