تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مجموع : حاصل جمع عمود في ListView1 بواسطة Adodc1
#1
Lightbulb 
السلام عليكم ، مطلوب معرفة حاصل جمع عمود في حالة بدء تحميل فورم او عند الاختيارات
كود :
Public Function LoadOfAdodcListView()
      On Error Resume Next
      Adodc1.RecordSource = "select * from tblEmployee"
      Call Data_Get
End Function
كود :
Private Sub Data_Get()
   On Error Resume Next ': Err.Clear
   Adodc1.CommandType = adCmdText
   Adodc1.Refres
       
   Dim XItem As ListItem
   ListView1.ListItems.Clear

   Do While Not Adodc1.Recordset.EOF
        Set XItem = ListView1.ListItems.Add(, , Adodc1.Recordset(0) & vbNullString)
            XItem.SubItems(1) = Adodc1.Recordset(1) & vbNullString
            XItem.SubItems(2) = Adodc1.Recordset(2) & vbNullString
            XItem.SubItems(3) = Adodc1.Recordset(3) & vbNullString
            XItem.SubItems(4) = Adodc1.Recordset(4) & vbNullString
            XItem.SubItems(5) = Adodc1.Recordset(5) & vbNullString
            XItem.SubItems(6) = Adodc1.Recordset(6) & vbNullString
            Adodc1.Recordset.MoveNext
   Loop
End Sub

عند قيام الاختييارات مثل الكود التالى
كود :
Private Sub cmdAdodcListViewSrBox_Click()
   On Error Resume Next
   Adodc1.RecordSource = "select * from tblEmployee where Sr Between " & Me.txtAdodcListViewSrBox1.Text & " AND " & Me.txtAdodcListViewSrBox2.Text & " Order By Sr"
   Call Data_Get
End Sub
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته 
قم بكتابة هذا الكود لايجاد حاصل مجموع عمود في ليست فيو 
PHP كود :
Private Sub Get_Col_Total()
Dim L_Index As Long
    Dim Total_Sum 
As Long
    
    For L_Index 
1 To ListView1.ListItems.Count
        Total_Sum 
Total_Sum ListView1.ListItems(L_Index).SubItems(1)
 
   Next
    
    Label_Total 
Total_Sum
End Sub 

ملاحظة : .SubItems(1) هي رقم العمود المراد تحصيل المجموع منه - يمكنك تغييره الى رقم العمود المناسب

و من ثم تعديل كود Data_Get ليصبح بهذا الشكل : 
PHP كود :
Private Sub Data_Get()
 
  On Error Resume Next ': Err.Clear
   Adodc1.CommandType = adCmdText
   Adodc1.Refres
       
   Dim XItem As ListItem
   ListView1.ListItems.Clear

   Do While Not Adodc1.Recordset.EOF
        Set XItem = ListView1.ListItems.Add(, , Adodc1.Recordset(0) & vbNullString)
            XItem.SubItems(1) = Adodc1.Recordset(1) & vbNullString
            XItem.SubItems(2) = Adodc1.Recordset(2) & vbNullString
            XItem.SubItems(3) = Adodc1.Recordset(3) & vbNullString
            XItem.SubItems(4) = Adodc1.Recordset(4) & vbNullString
            XItem.SubItems(5) = Adodc1.Recordset(5) & vbNullString
            XItem.SubItems(6) = Adodc1.Recordset(6) & vbNullString
            Adodc1.Recordset.MoveNext
   Loop
   
   Call Get_Col_Total
End Sub 

بمعنى آخر : 
قم باستدعاء كود الجمع في اي مكان تريده بمناداته بهذا الشكل : 
PHP كود :
Call Get_Col_Total 

بالتوفيق
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: princeofislam
#3
السلام عليكم
جزاك الله خير .. الكود اشتغل
هل ممكن تطبيق الكود ده على DataGrid1 بدل من ListView1 وكيف ؟
الرد
تم الشكر بواسطة:
#4
استفد من هذا الكود :
PHP كود :
Private Sub Get_dblSum()
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
MsgBox 
"Total: " dblSum
  
Me
.Adodc1.Recordset.MoveFirst
End Sub 
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة:
#5
جزاك الله خير استاذ امير .. الكود اشتغل و الحمد لله
الرد
تم الشكر بواسطة:
#6
الكود شغال 100/100
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير عمود معين حامد محمد 3 806 06-03-19, 01:17 AM
آخر رد: Amir_Alzubidy
  جمع عمود في الداتا قريد sl_dl1 8 1,381 02-11-18, 01:51 AM
آخر رد: sl_dl1
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 1,268 13-04-17, 09:57 AM
آخر رد: haniblack
  البحث داخل list viw بواسطة اداة adodc haniblack 7 1,616 27-03-17, 02:11 PM
آخر رد: Amir_Alzubidy
  [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع عبدالقادرعواد 2 1,212 23-02-17, 01:35 AM
آخر رد: عبدالقادرعواد
  [vb6.0] طلب : نسخ قاعدة البيانات gg.mdb التي نتنسيق 97 وتحويلها إلى تنسيق 2003 بواسطة الكود hamada salah90 3 1,321 05-11-15, 08:12 PM
آخر رد: hamada salah90
  [vb6.0] طلب: كيفية عمل طباعة لملف الوورد بواسطة الطباعة الإفتراضية للحاسوب hamada salah90 3 1,638 31-10-15, 08:42 PM
آخر رد: administrator
  التعديل الي اداة Adodc1 وحذف اداة الـ data abadi7455 2 1,269 31-10-15, 06:25 AM
آخر رد: abadi7455
  [vb6.0] المساعدة في الجمع التراكمي لحقل مجموع المسوق وادي العوضي 2 1,074 10-10-15, 09:51 PM
آخر رد: وادي العوضي
  [vb6.0] طلب : كود حفظ ملف الوورد باسم معين بواسطة الفيجول بيسك hamada salah90 0 1,169 05-10-15, 11:38 PM
آخر رد: hamada salah90

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم