+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين (/showthread.php?tid=13560)
طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين - hamada salah90 - 19-10-15
السلام عليكم
لدي جدول يسمى TBsalary
وبه حقول Name - Salary - SalDate
كما بالصورة
المثال مرفق للتعديل عليه
أريد كود جمع العنصر Salary من الجدول في الفترة بين تاريخين معينين SalDate
RE: طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين - Ahmed_Mansoor - 19-10-15
أهلا بك أخي الكريم ، إستخدم هذه الطريقة :
كود :
RS.Open "Select SUM(Salary) As Total From TBsalary Where SalDat >=#" & Text1.Text & "# And SalDate <=#" & Text2.Text & "#"
IF RS.RecordCount > 0 Then
Text3.Text = RS![Total]
Else
Text3.Text = "0"
End IFRE: طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين - hamada salah90 - 20-10-15
(19-10-15, 11:41 PM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم ، إستخدم هذه الطريقة :
كود :
RS.Open "Select SUM(Salary) As Total From TBsalary Where SalDat >=#" & Text1.Text & "# And SalDate <=#" & Text2.Text & "#"
IF RS.RecordCount > 0 Then
Text3.Text = RS![Total]
Else
Text3.Text = "0"
End IF
لك جزيل الشكر والتقدير
RE: طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين - احمداحمداحمد6 - 20-10-15
s=val(date)
z=val(date2)
if sal<s and sal>z then ado.sal=ado.sal+x
العفو
x=ado.sla+x
RE: طلب : كود جمع العناصر من جدول بقاعدة البيانات بتحديد عنصرين - Ahmed_Mansoor - 20-10-15
أهلا أخي الكريم , تم التعديل على المثال .