+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : مجموع عمود من داتا جريد (/showthread.php?tid=2923)
مجموع عمود من داتا جريد - حمادة الزملكاوى - 19-05-14
السلام عليكم ورحمة الله وبركاتة
اريد مجموع قيمة عمود من داتا جريد واظهارها بتكست بوكس
RE: مجموع عمود من داتا جريد - عبدو الليبي - 23-05-14
إذا أنت رابط الداتا جريد بـ Adodc ممكن بهذه الطريقة:
كود :
adodc1.datasource="select * from اسم الجدول"
adodc1.refersh
dim tt
tt=0
do while not adodc1.recordset.eof
tt=adodc1.recordset.field("اسم الحقل") + tt
adodc1.recordset.movenext
loop
text1.text=ttمع تصحيح الخطأ إن وجد
هذه الطريقة أو ما شابهها هي الحل، وليس بالضرورة حساب المجموع من الداتا قريد
هذه الطريقة أو ما شابهها هي الحل، وليس بالضرورة حساب المجموع من الداتا قريد
RE: مجموع عمود من داتا جريد - حمادة الزملكاوى - 24-05-14
للاسف مش مربوطة بأدو مربوطة بالداو
لو فى طريقة للداو اكون عاجز عن الشكر
RE: مجموع عمود من داتا جريد - عبدو الليبي - 24-05-14
تفضل يا خونا تم العمل عليه وبنجاح هذا مني أنا.. قبل وضع الكود ببرنامجك اربط الداتا بقاعدة البيانات عن طريق الخاصية DataBaseName وغير من الكود اسم الجدول واسم الحقل المطلوب حساب مجموعه
كود :
Data1.RecordSource = "select * from tb"
Dim tt
tt = 0
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
tt = Data1.Recordset.Fields("m_no") + tt
Data1.Recordset.MoveNext
Loop
Text1.Text = ttRE: مجموع عمود من داتا جريد - حمادة الزملكاوى - 25-05-14
شكرآ اخى الكريم استفدت جدآ من المثال وفعلآ اتطبق
لى سؤال اخر بعد اذنك
لو عايز ترقيم تلقائى يظهر بالداتاريبورت على شرط انة مش موجود بالجدول بمعنى انة يعمل ترقيم تلقائى لعدد الحقول بالجدول ويظهر بالدتاريبورت
RE: مجموع عمود من داتا جريد - عبدو الليبي - 25-05-14
يا خونا أنا مش امجرب ترقيم الداتا جريد نفسه ولا أعتقد يوجد طريقة إلا...
أن تقوم إضافة حقل في قاعدة البيانات ونوع البيانات (ترقيم تلقائي)
أن تقوم إضافة حقل في قاعدة البيانات ونوع البيانات (ترقيم تلقائي)