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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : جمع مابداخل قاعدة البيانات (/showthread.php?tid=13120)

الصفحات: 1 2 3


جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

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

ارغب بجمع ارقام بداخل جدول قاعدة البيانات اكسس ويظهر الناتج في تكست

تحياتي لكم

اعتذر على عدم التوضيح
طبعا عمود واحد فقط في قاعدة البيانات


RE: جمع مابداخل قاعدة البيانات - أبو عمر - 03-09-15

بشرط يكون نوع الحقل رقم
select sum(field) as total from Table


RE: جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

الف شكر لك اخي
بس ياليت تعطيني الكود كامل اللي احطه في الكومند

او تعطيني ناتج جمع مابداخل الداتا قريد

انا حطيت هذا الكود بس للاسف مايجمع لي كامل الارقام اللي داخل عمود في الداتا قريد
Dim x As Integer

For x = 0 To DataGrid1.ApproxCount - 1

DataGrid1.Col = 1
DataGrid1.Row = x

Text5.Text = Val(Text5.Text) + Val(DataGrid1.Text)

Next


تحياتي لك واشكرك على تواضعك وردك على استفساري


RE: جمع مابداخل قاعدة البيانات - أبو عمر - 03-09-15

عبي الطلب ادناه :-D
كود الاتصال بقاعدة البيانات
اسم القاعدة:
اسم الجدول:
اسم الحقل المراد جمع بياناته
-------------------------------
عملينا العزيز الان تمتع بعروض سوى
ههههههههههههههههههههههههههههههههههه
بانتظارك وانا اخوك عشان ما تتوه مني


RE: جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

الله يسعدك ياغالي
هههههههههههه
وتسلم لي الف الله يرحم لي شيبانك ولا يهينك
انا بجرب وراح ارد عليك او اني ارفق المثال كامل

يعطيك العافيه اخي

الاتصال بقاعدة البيانات
Set DB = OpenDatabase("salem2.mdb")
اسم الجدوال
Set Rs = DB.OpenRecordset("db2")


اسم العموود او الحقل
NN


RE: جمع مابداخل قاعدة البيانات - أبو عمر - 03-09-15

الله يحفظك
Rs = DB.OpenRecordset("select sum(NN) as Nm from db2")
MsgBox(Rs()!Nm)
جرب ورد لي علم


RE: جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

ابشر ياغالي

الله يرحم لي والديك ولا يهينك

رفض والله برضه خطأ


RE: جمع مابداخل قاعدة البيانات - أبو عمر - 03-09-15

هات المثال
يرضى غصب


RE: جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

الله يرحم لي شيباانك
لحظه بس اصلحه واعطيك المثال لبى قلبك


RE: جمع مابداخل قاعدة البيانات - alfakeehy - 03-09-15

اسف اخي على التاخير بس جلست اصلح فيها

تعرف عليمي الله يحفظك والنت عندي تعبان الله يكرمك

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

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

تحياتي وامتناني لسموكم الكريم
[attachment=7782]