منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات (/showthread.php?tid=9747)

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - علوش - 23-07-13

اخواني لدي ثاعدة بيانات جدول اسمه (Items) وحقل بأسم (ItemsNu) رقم الصنف (ItemsQe) كمية الصنف
مثلا الصنف رقم 009 مكرر اكثر من اربع مرات اريد دمج الصفوف في صف واحد مثلا.


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


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

كيبورد 009 4

ارجو ان يكون اتضح المثال

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - علوش - 23-07-13

ارجو المساعده

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - ahmedabdelaliem - 24-07-13

اخي الموضوع سهل اعمل استعلام فقط اجعل اسم الصنف ثم اعمل sum الى الكميات فقط


بالتوفيق

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - علوش - 24-07-13

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

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - VB_Coder - 24-07-13

السلام عليكم

- هذا مايحضرني حالياً ، أولاً أنسخ قاعدة البيانات نسخه وضعها في مكان ما إذا كنت ستطبق الكود على قاعدة البرنامج الرسميه إلى أن تتأكد من نجاح الكود من غير أي مشاكل ، الكود فكرته أنك تقوم بالإستعلام وإذا كانت بيانات الإستعلام ستتخزن في الكائن الخاص بالجدول وليكن 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

- تحياتي .

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - asto - 24-07-13

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

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

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

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

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

ترجو ان تصل الفكرة

ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات - علوش - 25-07-13

تم الحل بفضل الله ثم بفضل كل من شارك معي