08-10-16, 08:45 PM
(08-10-16, 02:32 AM)حريف برمجة كتب :(07-10-16, 04:57 PM)Codack كتب :السلام عليكم ورحمة اللع وبركاتة
طلبي كدا وبختصار هو اني عندي داتا جريد فيو وقاعدة بيانات قاعدة بيانات في اسماء متشابة مثل ( حذاء احمر - حذاء اخضر - حذاء اصفر )
وكل حذاء فيه كمية مثل الاحمر فيه 50 والاخضر فيه 30 والاصفر فيه 25
وبعد كدا بضيف في الاحمر ضفت 40 وفي الاخضر 30 والاصفر 80 مثلا
عايز بقى اجمع الاحمر فقط والاخضر فقط والاصفر فقط واضع ناتج كل قيمة في ليبل تكست مثالا
واكون شاكر
المثال في الملفات المرفقة
عدل الكود الموجود في Public Sub loading()
ليصبح كالتالي :
كود :
Public Sub loading()
dt.Clear()
Dim cmd As New OleDbCommand("select * from color", con)
con.Open()
dt.Load(cmd.ExecuteReader)
DataGridView1.DataSource = dt
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Label4.Text = 0 : Label5.Text = 0 : Label6.Text = 0
On Error Resume Next
cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء احمر" & "'", con)
Label4.Text = cmd.ExecuteScalar
cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء اخضر" & "'", con)
Label5.Text = cmd.ExecuteScalar
cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء اصفر" & "'", con)
Label6.Text = cmd.ExecuteScalar
con.Close()
End Sub
مشكور يا خي الكود اشتغل معايا على الاكسس تمام من غير مشاكل
طب لو انا عامل كمان قاعدة بيانات Local SQl بس الكود مش راضي يظبط معاها
هل هناك طريقة؟؟
إِنْ يَنْصُرْكُمُ اللَّهُ فَلَا غَالِبَ لَكُمْ وَإِنْ يَخْذُلْكُمْ فَمَنْ ذَا الَّذِي يَنْصُرُكُمْ مِنْ بَعْدِهِ وَعَلَى اللَّهِ فَلْيَتَوَكَّلِ الْمُؤْمِنُونَ
لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ
لَيْسَ لَهَا مِنْ دُونِ اللَّهِ كَاشِفَةٌ
