20-12-17, 01:06 AM (آخر تعديل لهذه المشاركة : 20-12-17, 01:24 AM {2} بواسطة eiocm.)
قبل تنفيذ الكود يجب تغيير نوع الحقل ID في الجدول kind من مذكرة إلى نص
Private Sub Form_Load()
Call Connect_DB
Call SHOW_LIST
End Sub
Private Sub SHOW_LIST()
If RUNIT.State = adStateOpen Then RUNIT.Close
Dim sql As String
sql = "SELECT Unit.rid,Unit.id,Unit.name,Sum(kind.NUM) AS Expr1 FROM Unit INNER JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
RUNIT.Open sql, DB, adOpenStatic, adLockPessimistic
ListView1.ListItems.Clear
If RUNIT.EOF = False Then
Do While Not RUNIT.EOF
With ListView1.ListItems.Add(, , RUNIT("rid"), 2, 2)
.ListSubItems.Add , , RUNIT("id")
.ListSubItems.Add , , RUNIT("name")
.ListSubItems.Add , , RUNIT("Expr1")
End With
RUNIT.MoveNext
Loop
RUNIT.Close
Set RUNIT = Nothing
End If
End Sub
وإذا تقصد بالجمع عدد الاسطر وليس جمع قيم الحقل num فغير السطر التالي
sql = "SELECT Unit.rid,Unit.id,Unit.name,COUNT(kind.ID) AS Expr1 FROM Unit INNER JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
20-12-17, 02:30 AM (آخر تعديل لهذه المشاركة : 20-12-17, 02:40 AM {2} بواسطة w123eg.)
(20-12-17, 01:06 AM)eiocm كتب : قبل تنفيذ الكود يجب تغيير نوع الحقل ID في الجدول kind من مذكرة إلى نص
Private Sub Form_Load()
Call Connect_DB
Call SHOW_LIST
End Sub
Private Sub SHOW_LIST()
If RUNIT.State = adStateOpen Then RUNIT.Close
Dim sql As String
sql = "SELECT Unit.rid,Unit.id,Unit.name,Sum(kind.NUM) AS Expr1 FROM Unit INNER JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
RUNIT.Open sql, DB, adOpenStatic, adLockPessimistic
ListView1.ListItems.Clear
If RUNIT.EOF = False Then
Do While Not RUNIT.EOF
With ListView1.ListItems.Add(, , RUNIT("rid"), 2, 2)
.ListSubItems.Add , , RUNIT("id")
.ListSubItems.Add , , RUNIT("name")
.ListSubItems.Add , , RUNIT("Expr1")
End With
RUNIT.MoveNext
Loop
RUNIT.Close
Set RUNIT = Nothing
End If
End Sub
وإذا تقصد بالجمع عدد الاسطر وليس جمع قيم الحقل num فغير السطر التالي
sql = "SELECT Unit.rid,Unit.id,Unit.name,COUNT(kind.ID) AS Expr1 FROM Unit INNER JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
20-12-17, 02:54 AM (آخر تعديل لهذه المشاركة : 20-12-17, 03:04 AM {2} بواسطة eiocm.)
sql = "SELECT Unit.rid,Unit.id,Unit.name, Sum(IIF(kind.NUM IS null,0,kind.NUM)) AS Expr1 FROM Unit LEFT JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
وإذا تقصد بالجمع عدد الاسطر وليس جمع قيم الحقل num فغير السطر التالي
sql = "SELECT Unit.rid,Unit.id,Unit.name, COUNT(kind.ID) AS Expr1 FROM Unit LEFT JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
(20-12-17, 02:54 AM)eiocm كتب : sql = "SELECT Unit.rid,Unit.id,Unit.name, Sum(IIF(kind.NUM IS null,0,kind.NUM)) AS Expr1 FROM Unit LEFT JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"
وإذا تقصد بالجمع عدد الاسطر وليس جمع قيم الحقل num فغير السطر التالي
sql = "SELECT Unit.rid,Unit.id,Unit.name, COUNT(kind.ID) AS Expr1 FROM Unit LEFT JOIN kind ON Unit.ID=kind.ID GROUP BY Unit.rid,Unit.id,Unit.name"