تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات
#1
اخواني لدي ثاعدة بيانات جدول اسمه (Items) وحقل بأسم (ItemsNu) رقم الصنف (ItemsQe) كمية الصنف
مثلا الصنف رقم 009 مكرر اكثر من اربع مرات اريد دمج الصفوف في صف واحد مثلا.


كيبورد 009 1
كيبورد 009 1
كيبورد 009 1
كيبورد 009 1


اريد كود يقوم السجلات الى سجل واحد

كيبورد 009 4

ارجو ان يكون اتضح المثال
الرد }}}
تم الشكر بواسطة:
#2
ارجو المساعده
الرد }}}
تم الشكر بواسطة:
#3
اخي الموضوع سهل اعمل استعلام فقط اجعل اسم الصنف ثم اعمل sum الى الكميات فقط


بالتوفيق
الرد }}}
تم الشكر بواسطة:
#4
اشكرك اخي على الرد ولاكن
المطلوب هو كود للدمج في قاعدة البيانات وليس للأستعلام
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

- هذا مايحضرني حالياً ، أولاً أنسخ قاعدة البيانات نسخه وضعها في مكان ما إذا كنت ستطبق الكود على قاعدة البرنامج الرسميه إلى أن تتأكد من نجاح الكود من غير أي مشاكل ، الكود فكرته أنك تقوم بالإستعلام وإذا كانت بيانات الإستعلام ستتخزن في الكائن الخاص بالجدول وليكن RS فقم بحذف بيانات الجدول كلها ثم أعد إضافتها بعد ماتم عمل الترتيب لها في الإستعلام المخزن نتيجته في الكائن RS ، جرب أولاً وإلا إنتظر إذا يوجد عند أحد الأخوة حل أفضل ، وأنا لم أجرب الكود لأني لست قريبا من جهاز كمبيوتر , أتمنى أن ينجح معك الكود :

كود :
IF RS.State =1 Then RS.Close
RS.Open "Select Sum(ItemsQe) As ItemsQe,ItemdNu,ItemsName from Items GROUP BY ItemsName", DB, adOpenKeyset, adLockOptimisti

IF RS.RecordCount > 0 Then

DB.Execute "DELETE From Items"
Doevents

IF RA.State =1 Then RA.Close
RA.Open "Select * from Items", DB, adOpenKeyset, adLockOptimistic

RS.MoveFirst
Do Until Rs.Eof

RA.AddNew
DoEvents

RA![ItemsNu] = RS![ItemsNu]
RA![ItemsName] = RS![ItemsName]
RA![ItemsQe] = RS![ItemsQe]

RA.Update
DoEvents

RS.MoveNext

Loop

End IF

IF RA.State =1 Then RA.Close
IF RS.State =1 Then RS.Close

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#6
ببساطة قم بالبحث عن جملة معينة و هي كيبورد 009 ثم ليكن عندك متغيير قيمته 0 الاصلية فقم بجمع اول نتيجة للبحث و هي الرقم تع السجل الذي وجدته أولا مع هذا المتيغير ثم احفظه

اي يجب ان يكون لديك تكست بوكس في الفورم لود =0

و في الكوماند
a=text
b=من السجل
c=a+b
text=c

ثم احذف السجل و هكذا تابع البحث و القيام الخطوات اعلاه حتى تنتهي

ثم قم باضافة سجل جديد فيه النتائج

ترجو ان تصل الفكرة
الرد }}}
تم الشكر بواسطة:
#7
تم الحل بفضل الله ثم بفضل كل من شارك معي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,910 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 902 04-01-22, 11:10 PM
آخر رد: AmR EiSa
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,507 01-12-20, 08:54 PM
آخر رد: tareqhabib15
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,851 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  [vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل karmina2012 0 1,345 01-05-20, 07:08 AM
آخر رد: karmina2012
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  عرض البيانات في فلكس تكرار حامد محمد 5 2,515 18-08-19, 07:38 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم