+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=15842)
للفائدة - كود كم عدد السجلات المدخلة في ادود - ولدي أسئلة - عمور2016 - 18-05-16
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
[هدا كود كم عدد السجلات المدخلة في ...ادود
Private Sub DataGrid1_DblClick()
Dim dblSum As Double
Me.Adodc1.Recordset.MoveFirst
Do While Not Me.Adodc1.Recordset.EOF
dblSum = dblSum + Me.Adodc1.Recordset.Fields(2)
Me.Adodc1.Recordset.MoveNext
Loop
Me.Print "Total: " & dblSum
Adodc1.Refresh
Me.Adodc1.Recordset.MoveFirst
End Sub
هدا كود جمع العمود
اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك مثلا كم عدد الذكور ... جزاكم الله خيرا
RE: للفائدة - عمور2016 - 19-05-16
اريد منكم كود البحث بين تاريخين .
كود (جمع البيانات المدخلة في اودك adodce مثلا كم عدد الذكور ... او لا ايجابه
جزاكم الله خيرا
RE: للفائدة - Ahmed_Mansoor - 19-05-16
أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .
سوف ارفق صورة - عمور2016 - 20-05-16
(19-05-16, 02:25 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .
احمد منصور الله يحفظ ولوالديك الجنة والاخوة المشاركين
مجرد ان تدخل التاريخين
تعمل معك label
جمع عدد الذكور وسعودي
جمع عدد الانات السعودين
كود التريخين كي يعمل معك adodc
كود عمل label في البيانات المحصورة في...الاعلى كما هو مبين.
(20-05-16, 06:26 PM)عمور2016 كتب :(19-05-16, 02:25 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , أرفق مثال ليتم التعديل عليه .
احمد منصور الله يحفظ ولوالديك الجنة والاخوة المشاركين
مجرد ان تدخل التاريخين
تعمل معك label
جمع عدد الذكور وسعودي
جمع عدد الانات السعودين
كود التريخين كي يعمل معك adodc
كود عمل label في البيانات المحصورة في...الاعلى كما هو مبين.
RE: للفائدة - كود كم عدد السجلات المدخلة في ادود - ولدي أسئلة - Ahmed_Mansoor - 20-05-16
أهلا أخي الكريم , لو أرفقت المثال كان أفضل , على العموم لنفترض أن إسم الجدول هو Table1 وإسم حقل التاريخ هو zDate وإسم حقل الجنسية هو Nat وإسم حقل نوع الجنس هو Gen إذا سيكون إستعلام وكود جلب المجاميع كالتالي :
PHP كود :
Private Sub Command1_Click()
Dim SQL_Saudi_Male As String
Dim SQL_Saudi_Female As String
Dim SQL_NoneSaudi_Male As String
Dim SQL_NoneSaudi_Female As String
SQL_Saudi_Male = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='سعودي' And Gen='ذكر') as Saudi_Male_Total"
SQL_Saudi_Female = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='سعودي' And Gen='انثى') as Saudi_Female_Total"
SQL_NoneSaudi_Male = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='مقيم' And Gen='ذكر') as NoneSaudi_Male_Total"
SQL_NoneSaudi_Female = "(Select Count(*) From Table1 Where zDate>=#" & DTPicker1.Value & "# And zDate<=#" & DTPicker2.Value & "# And Nat='مقيم' And Gen='انثى') as NoneSaudi_Female_Total"
Adodc1.RecordSource = "Select (Select " & SQL_Saudi_Male & "," & SQL_Saudi_Female & "," & SQL_NoneSaudi_Male & "," & SQL_NoneSaudi_Female & " From Table1"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
If Not IsNull(Adodc1.Recordset.Fields("Saudi_Male_Total")) Then
Label1.Caption = Adodc1.Recordset.Fields("Saudi_Male_Total").Value
Else
Label1.Caption = "0"
End If
If Not IsNull(Adodc1.Recordset.Fields("Saudi_Female_Total")) Then
Label2.Caption = Adodc1.Recordset.Fields("Saudi_Female_Total").Value
Else
Label2.Caption = "0"
End If
If Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Male_Total")) Then
Label3.Caption = Adodc1.Recordset.Fields("NoneSaudi_Male_Total").Value
Else
Label3.Caption = "0"
End If
If Not IsNull(Adodc1.Recordset.Fields("NoneSaudi_Female_Total")) Then
Label4.Caption = Adodc1.Recordset.Fields("NoneSaudi_Female_Total").Value
Else
Label4.Caption = "0"
End If
Else
Label1.Caption = "0"
Label2.Caption = "0"
Label3.Caption = "0"
Label4.Caption = "0"
End If
End Sub
في هذا الكود الليبل1 سيكون لعدد الذكور السعوديين والليبل2 لعدد الإناث السعوديين والليبل3 لعدد الذكور المقيمين والليبل4 لعدد الإناث المقيمين وكل الأعداد بين تاريخين .