17-04-21, 07:26 PM
الصفحات : 1 2
18-04-21, 12:43 AM
(17-04-21, 07:26 PM)abde6726 كتب : [ -> ]طلب كود خاص بجمع مجاميع الباب حسب الصفوف المتشابه في الفليكس غريد حسب المثال المرفق
حاولت افتح الملف بس ما تمكنت
كود التجميع :
PHP كود :
Dim Sql As String
Sql = "Select Sum(Col1) As Sum From TB_Name GROUP BY Col2"
'The SUM() function returns the total sum of a numeric column.
18-04-21, 03:03 AM
اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg
18-04-21, 03:05 AM
(18-04-21, 03:03 AM)abde6726 كتب : [ -> ]اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg
هاااا فهمت عليك
طيب اكتب لك الكود في الرد القادم ان شاء الله
ولا يهمك
18-04-21, 03:11 AM
انا عندي هذا الكود الذي يجمع الاعمدة في قاعدة البيانات
و انا اريد جمع مجاميع الصفوف المتشابه
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
Text2.Text = "0"
End If
و انا اريد جمع مجاميع الصفوف المتشابه
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
Text2.Text = "0"
End If
18-04-21, 03:20 AM
(18-04-21, 03:03 AM)abde6726 كتب : [ -> ]اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg
(18-04-21, 03:11 AM)abde6726 كتب : [ -> ]انا عندي هذا الكود الذي يجمع الاعمدة في قاعدة البيانات
و انا اريد جمع مجاميع الصفوف المتشابه
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
Text2.Text = "0"
End If
اخي الحبيب بناءً على الصورة قمت بكتابة هذا الكود
PHP كود :
Private Sub Get_TotalBy_article()
Set Rs = New ADODB.Recordset
Dim XStr, YStr As String
XStr = "1.01.1a"
YStr = "1.01.1b"
Set Rs = DB.Execute("Select Sum(total) As TotalSum From recettes Where [article] = '" & Trim$(XStr) & "'")
If Rs.Recordcount > 0 Then
TextX.Text = Rs!TotalSum
End If
Set Rs = DB.Execute("Select Sum(total) As TotalSum From recettes Where [article] = '" & Trim$(YStr) & "'")
If Rs.Recordcount > 0 Then
TextY.Text = Rs!TotalSum
End If
End Sub
18-04-21, 03:28 AM
اخي الكريم شكرا جزيلا
18-04-21, 05:02 AM
هذا في حالة وجود صفوف تحتوي على article يعطي المطلوب
اما اذا كانت الصفوف لا تحتوي على article فيطلع التنبيه التالي invalid use of nul
و عليه اريد لهذا الكود ان يعمل و يعطيني نتيجة 0
اما اذا كانت الصفوف لا تحتوي على article فيطلع التنبيه التالي invalid use of nul
و عليه اريد لهذا الكود ان يعمل و يعطيني نتيجة 0
20-04-21, 07:19 PM
سلام عليكم
عدل هذا الجزء من الكود هكذا اخي
بالتوفيق
عدل هذا الجزء من الكود هكذا اخي
كود :
TextX.Text = IIf(rs!TotalSum <> "", rs!TotalSum, "")
بالتوفيق
20-04-21, 08:06 PM
اخي أحمد عبد العليم السلام عليكم لقد قمت بتعديل الكود حسب ماطلبت ............. شكرا جزبلا
الصفحات : 1 2