تقييم الموضوع :
  • 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 ك ب / التحميلات : 46)
الرد }}}}
تم الشكر بواسطة:
#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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 169 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 127 23-11-16, 09:41 AM
آخر رد: amer2000
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 161 01-11-16, 09:50 AM
آخر رد: amer2000
Photo [سؤال] مشاكل فى برمجة مفاتيح بحث،تعديل محمد إبراهيم على حسن 0 82 18-08-16, 07:34 PM
آخر رد: محمد إبراهيم على حسن
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 126 18-08-16, 12:13 AM
آخر رد: استايل
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 786 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  تعديل كود تسجيل نقرات الكيبورد عبدالله الصافي 6 723 18-06-16, 12:44 PM
آخر رد: abulayth
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 163 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,031 29-12-15, 02:57 AM
آخر رد: awidan76
  احتاج تعديل كود فجول بيسك 6 ابومحمد1979 3 397 31-03-15, 11:01 PM
آخر رد: abulayth

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


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