• 0
HnHn

كيف يتم نقل بيانات من جدول لآخر

سؤال

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

يقوم هذا البرنامج بعرض البيانات

ونقلها على جدول آخر

المطلوب

1- عند عرض البيانات يتم ترتيبها على حسب الاحرف

بمعنى يتم فرز البيانات بناء على حقل CategoryName

ويبدأ الرتيب من الحرف A إلى أخر حرف Z

2- عند نقل البيانات إلى الجدول الأخر

يتم حذفها من الأول وتخزينها في الجدول الأخر

وهكذا تتم العملية وكلما أردت أن أقوم بنقل بيانات

من الجدول الأول إلى الأخر تتم العملية بإضافة البيانات الجديدة

من الجدول الأول على البيانات السابقة من الجدول الثاني

حيث أن الجدول الثاني يصبح كمخزن لهذه البيانات

MSFlexGrid.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

9 إجابة على هذا السؤال .

  • 0

السلام عليكم

لقد قمت بعمل بعض التعديلات ولكن قاعدة البيانت لم تفتح عندي لسبب وجود اكسس 97 ولكن قم بالتعديل في الكود الماف لما يتناسب نع اسماء الحقول في والجداول في قاعدة البيانات لديك

تحياتي لك

[email protected]

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

لقد قمت بعمل بعض التعديلات ولكن قاعدة البيانت لم تفتح عندي لسبب وجود اكسس 97 ولكن قم بالتعديل في الكود الماف لما يتناسب نع اسماء الحقول في والجداول في قاعدة البيانات لديك

تحياتي لك

[email protected]

MSFlexGrid.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما في مشكلة أخي الكريم لقد قمت بتحويل قاعدة البيانات إلى الاصدار 97

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

MSFlexGrid.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

قمت بعمل نقل البيانات من جدول الاول الى الثاني وبعد نقل السجل يتم حذف السجل

من الجدول الاول

ولكن عن طريق أداة DataGrid

ملاحظة لكي يعمل ضعها في D

لان مسار قاعدة البيانات ل Adobc في D

MSFlexGrid.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أشكرك أخي soliman_v بعنف

على مجهودك الأكثر من رائع

أذهب أنارا الله طريقك في

الدنيا والآخرة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عندي 3 أسئلة

السؤال الأول

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

السؤ ال الثاني

كيف أستطيع عمل زر تراجع

عند النقل أو الحذف

السؤال الثالث

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أنتظر الحل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

:lol: ياه ... هذا الموضوع قديم الله يعطيك العافية اخ المهنا عدم قمت برفعه وتوفير عملية تكرار السؤال h37.gif لاحظ الحل

السؤال الأول

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

تتم هذه العملية بعد الاستعلام عن البيانات وحصرها بشرط ثم عمل جملة تكرار لأتمام ذلك كما يلي

الجدول الأول الذي سنستعلم عنه

rs.Open "select * from Table1 where ID = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

الجدول الثالني الذي سننقل البيانات فيه

ra.Open "select * from Table2 ", con, adOpenDynamic, adLockOptimistic

سنضع هذا الشرط لنتأكد من وجود بيانات بعد عملية حصر الجدول الأول بالاستعلام

If rs.RecordCount > 0 Then

'HnHn : جملة التكرار التي تبدء بعملية النقل


Do Until rs.EOF

ra.AddNew

'HnHn وهنا ستضع اسما الحقول المطلوب نقلها أو ارقام الفهرسه الخاصة بها

ra.Fields(0) = rs.Fields(1)

ra.Update

Loop


End if

السؤ ال الثاني

كيف أستطيع عمل زر تراجع

عند النقل أو الحذف

بعكس العملية ...

السؤال الثالث

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

عن طريق هذا الاستعلام

rs.Open "Delete* from Table1 ", con

تم تعديل بواسطه HnHn
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .