الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه HnHn في 15 يونيو 2004 · 9 رد · 2,032 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

المطلوب

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

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

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

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

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

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

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

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

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

MSFlexGrid.zip

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#2

السلام عليكم

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

تحياتي لك

Prof_1982@hotmail.com

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

السلام عليكم

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

تحياتي لك

Prof_1982@hotmail.com

MSFlexGrid.zip

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#4

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

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

MSFlexGrid.zip

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#5

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

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

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

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

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

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

MSFlexGrid.zip

#6

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

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

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

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

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#7

عندي 3 أسئلة

السؤال الأول

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

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

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

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

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

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

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#8

أنتظر الحل

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#9

أنتظر الحل

من مواضيعي :

كود ضغط القاعدة بـwinzip

إجعل برنامجك يعمل على كل جهاز في العالم

النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات

هذا الكود يحتاج لكثير من الذكاء وقليل من العمل

إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6

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

برنامجين مع السورس كود قديمين جداً

مثال كامل لــانشاء ملف txt*. النصي

الاداة رائعة جدا بكل المقاييس swbbtnba.ocx

كود ممتاز ؟ ومساعدة في الاضافة / الحذف

احلى حركة وجدتها اخيرا بعد وقت طويل

وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio

#10

: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 في 8 أكتوبر 2006 في 20:45

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة

هذا الموضوع مغلق.

مواضيع مشابهة