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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 215 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 56 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 187 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 199 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 10 413 20-03-17, 10:50 PM
آخر رد: awidan76
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 144 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 262 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 400 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 246 18-08-16, 12:13 AM
آخر رد: استايل
  [vb6.0] ارجو التعديل amer2000 2 265 08-08-16, 03:02 PM
آخر رد: amer2000

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


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