تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل كود الجمع على قاعدة بيانات اكسس
#1
السلام عليكم ورحمة الله

اسمحولي بان اتشرف بوضع اول استفسار لي في هذا المنتدي , واتمنى من الله التوفيق للجميع .

اذا كان عندي جدول اسمه email وبياناته كألاتي

name date dd1 dd2 dd3 dd4 dd5
ali 2/1/2013 10 20 30 40 50

فالمطلوب التعديل على الاكود الاتي ليجمع الصف ( dd1 & dd2 & dd3 & dd4 & dd5) وليس العمود

كود :
RS.Open "select Sum(المطلوب جمعه) FROM emails WHERE name ='ali', DB, adOpenStatic, adLockOptimistic

وجزاكم الله كل خير
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- إستخدم هذه الطريقة . مع التأكد من أن جميع الحقول التي تريد جمعها في الصف نوعها رقم وليس نص :

كود :
RS.Open "select (dd1+dd2+dd3+dd4+dd5) as ToTal FROM emails WHERE Name ='ali'", DB, adOpenStatic, adLockOptimistic

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
VB_Coder كتب :السلام عليكم

- إستخدم هذه الطريقة . مع التأكد من أن جميع الحقول التي تريد جمعها في الصف نوعها رقم وليس نص :

كود :
RS.Open "select (dd1+dd2+dd3+dd4+dd5) as ToTal FROM emails WHERE Name ='ali'", DB, adOpenStatic, adLockOptimistic

- تحياتي .

جزاك الله كل خير اخي الكريم
الف شكر لك

جاري التجربة
الرد }}}
تم الشكر بواسطة:
#4
w1eg كتب :جزاك الله كل خير اخي الكريم
الف شكر لك

جاري التجربة

اخي الكريم بعد التجربة ظهر لي خطاء عند تنفيذ البرنامج

ومرفق المثال


الملفات المرفقة
.rar   New Folder.rar (الحجم : 112.96 ك ب / التحميلات : 78)
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

- هذا كود البحث بعد تعديله :

كود :
Private Sub SEARCH_DATA()
For i = 0 To LCountDate.Caption - 1
     If RST.State = 1 Then RST.Close
     RST.Open "SELECT (d1+d2+d3+d4+d5+d6+d7+d8+d9+d10+d11+d12+d13+d14+d15+d16+d17+d18+d19+d20+d21+d22+d23+d24+d25+d26+d27+d28+d29+d30)as ToTal FROM emails WHERE dates BETWEEN " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ") AND " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ")", DB, adOpenStatic, adLockOptimistic

    If RST.RecordCount > 0 Then
       If IsNull(RST![ToTal]) = False Then
          LTotal(i).Caption = RST![ToTal]
       Else
          LTotal(i).Caption = "0"
       End If
    Else
       LTotal(i).Caption = "0"
    End If
    
Next
End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#6
VB_Coder كتب :السلام عليكم

- هذا كود البحث بعد تعديله :

كود :
Private Sub SEARCH_DATA()
For i = 0 To LCountDate.Caption - 1
     If RST.State = 1 Then RST.Close
     RST.Open "SELECT (d1+d2+d3+d4+d5+d6+d7+d8+d9+d10+d11+d12+d13+d14+d15+d16+d17+d18+d19+d20+d21+d22+d23+d24+d25+d26+d27+d28+d29+d30)as ToTal FROM emails WHERE dates BETWEEN " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ") AND " & _
    " DateSerial(" & Year(LabDate(i).Caption) & "," & Month(LabDate(i).Caption) & "," & Day(LabDate(i).Caption) & ")", DB, adOpenStatic, adLockOptimistic

    If RST.RecordCount > 0 Then
       If IsNull(RST![ToTal]) = False Then
          LTotal(i).Caption = RST![ToTal]
       Else
          LTotal(i).Caption = "0"
       End If
    Else
       LTotal(i).Caption = "0"
    End If
    
Next
End Sub

- تحياتي .

[COLOR="#0000FF"]الف شكر لك اخي الكريم

وجعله في ميزان حسناتك

وغفر لك ولوالديك

شكرا جزيلا
[/COLOR]
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة gonm64 7 1,205 11-09-22, 02:04 PM
آخر رد: مصمم هاوي
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,908 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 902 04-01-22, 11:10 PM
آخر رد: AmR EiSa
  طلب تعديل من console الى windows mmoqry 0 1,097 16-04-21, 11:11 PM
آخر رد: mmoqry
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,507 01-12-20, 08:54 PM
آخر رد: tareqhabib15
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 10 11,621 31-10-20, 01:00 AM
آخر رد: ryadd
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,850 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم