الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في الداتا بيز

مغلق
بدأه mega_soft في 20 يونيو 2006 · 10 رد · 826 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

اريد كود يقوم بجمع جميع الأعداد في حقل معين مربوط بالفيجول عن طريق DateGrid والناتج يظهر في Text مع العلم ان الأعداد المراد جمعها أعداد غير صحيحه ويفضل ان يكود الكود بلغة SQL

وجزاكم الله خيرا

تم تعديل هذه المشاركة بواسطة mega_soft في 20 يونيو 2006 في 17:26


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#2

ماشي يا سيدي

خ الكود ده كدة جربه

select name,sum(number)as [total]from table group by number

text1.text=rs("total")

جرب كدة وقلي ايه النتيجة

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#3

شكرا sameh_ibm علي تعاونك معي ولكن الكود لا يعمل الكود خطأ يا ريت كود أخر


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#4

up


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#5

السلام عليكم

استعمل هذا الكود

يجب ان تكون رابط البرنامج كع قاعدة البيانات بالطريقة العادية direct مباشرة عن طريق الاداة

m=0

while not data1.recordset.eof

m=m+data1.recordset.filds!a

data1.recordset.movenext

wend

a = الحقل الدي توجد به القيم

وارجو لك التوفيق ( وادعو لنا بالنجاح )

الساحر

#6

مشكور اخ aimn_2004

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


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#7

up

up


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#8

يا جماعة هو مفيش حد بيجوبني علي سؤالي ليه :(


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#9

اين الخبراء ؟

اين مشرفي المنتدي ؟

هو انا بطلب المستحيل


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#10

up


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg
#11

والله انا مستغرب هو السؤال صعب خالص كده ؟؟!


msgbox "WELCOME",vbokonly,""
else
msgbox "YOU ARE LOSER",vbokonly,""
end if
if text1.text="www.arabteam2000.com" then

megasoft.jpg

هذا الموضوع مغلق.

مواضيع مشابهة