تقييم الموضوع :
  • 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
تم الحل بفضل الله ثم بفضل كل من شارك معي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 127 23-11-16, 09:41 AM
آخر رد: amer2000
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 97 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 102 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 126 18-08-16, 12:13 AM
آخر رد: استايل
  [vb6.0] ارجو التعديل amer2000 2 132 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 184 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 140 10-07-16, 12:26 PM
آخر رد: عمور2016
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 430 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] عمل باسوور لقاعدة البيانات الاكسس عمور2016 1 119 07-07-16, 01:29 PM
آخر رد: الوادي
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 788 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy

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


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