منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل كود الجمع على قاعدة بيانات اكسس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تعديل كود الجمع على قاعدة بيانات اكسس (/showthread.php?tid=8529)

تعديل كود الجمع على قاعدة بيانات اكسس - w1eg - 18-04-13

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

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

اذا كان عندي جدول اسمه 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

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

تعديل كود الجمع على قاعدة بيانات اكسس - VB_Coder - 18-04-13

السلام عليكم

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

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

- تحياتي .

تعديل كود الجمع على قاعدة بيانات اكسس - w1eg - 19-04-13

VB_Coder كتب :السلام عليكم

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

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

- تحياتي .

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

جاري التجربة

تعديل كود الجمع على قاعدة بيانات اكسس - w1eg - 19-04-13

w1eg كتب :جزاك الله كل خير اخي الكريم
الف شكر لك

جاري التجربة

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

ومرفق المثال

تعديل كود الجمع على قاعدة بيانات اكسس - VB_Coder - 20-04-13

السلام عليكم

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

كود :
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

- تحياتي .

تعديل كود الجمع على قاعدة بيانات اكسس - w1eg - 20-04-13

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]