19-05-14, 10:23 AM
23-05-14, 06:31 PM
إذا أنت رابط الداتا جريد بـ 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
مع تصحيح الخطأ إن وجد
هذه الطريقة أو ما شابهها هي الحل، وليس بالضرورة حساب المجموع من الداتا قريد
هذه الطريقة أو ما شابهها هي الحل، وليس بالضرورة حساب المجموع من الداتا قريد
24-05-14, 09:15 AM
للاسف مش مربوطة بأدو مربوطة بالداو
لو فى طريقة للداو اكون عاجز عن الشكر
لو فى طريقة للداو اكون عاجز عن الشكر
24-05-14, 11:43 PM
تفضل يا خونا تم العمل عليه وبنجاح هذا مني أنا.. قبل وضع الكود ببرنامجك اربط الداتا بقاعدة البيانات عن طريق الخاصية 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 = tt
25-05-14, 05:41 PM
شكرآ اخى الكريم استفدت جدآ من المثال وفعلآ اتطبق
لى سؤال اخر بعد اذنك
لو عايز ترقيم تلقائى يظهر بالداتاريبورت على شرط انة مش موجود بالجدول بمعنى انة يعمل ترقيم تلقائى لعدد الحقول بالجدول ويظهر بالدتاريبورت
لى سؤال اخر بعد اذنك
لو عايز ترقيم تلقائى يظهر بالداتاريبورت على شرط انة مش موجود بالجدول بمعنى انة يعمل ترقيم تلقائى لعدد الحقول بالجدول ويظهر بالدتاريبورت
25-05-14, 11:30 PM
يا خونا أنا مش امجرب ترقيم الداتا جريد نفسه ولا أعتقد يوجد طريقة إلا...
أن تقوم إضافة حقل في قاعدة البيانات ونوع البيانات (ترقيم تلقائي)
أن تقوم إضافة حقل في قاعدة البيانات ونوع البيانات (ترقيم تلقائي)