+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب جمع قيم اشياء معية في الداتا جريد فيو (/showthread.php?tid=17577)
طلب جمع قيم اشياء معية في الداتا جريد فيو - Codack - 07-10-16
السلام عليكم ورحمة اللع وبركاتة
طلبي كدا وبختصار هو اني عندي داتا جريد فيو وقاعدة بيانات قاعدة بيانات في اسماء متشابة مثل ( حذاء احمر - حذاء اخضر - حذاء اصفر )
وكل حذاء فيه كمية مثل الاحمر فيه 50 والاخضر فيه 30 والاصفر فيه 25
وبعد كدا بضيف في الاحمر ضفت 40 وفي الاخضر 30 والاصفر 80 مثلا
عايز بقى اجمع الاحمر فقط والاخضر فقط والاصفر فقط واضع ناتج كل قيمة في ليبل تكست مثالا
واكون شاكر
طلبي كدا وبختصار هو اني عندي داتا جريد فيو وقاعدة بيانات قاعدة بيانات في اسماء متشابة مثل ( حذاء احمر - حذاء اخضر - حذاء اصفر )
وكل حذاء فيه كمية مثل الاحمر فيه 50 والاخضر فيه 30 والاصفر فيه 25
وبعد كدا بضيف في الاحمر ضفت 40 وفي الاخضر 30 والاصفر 80 مثلا
عايز بقى اجمع الاحمر فقط والاخضر فقط والاصفر فقط واضع ناتج كل قيمة في ليبل تكست مثالا
واكون شاكر
المثال في الملفات المرفقة
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - حريف برمجة - 07-10-16
وعليكم السلام ورحمة الله وبركاته
عند ارفاق مثال ستجد الحل بشكل اسرع
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - Codack - 07-10-16
رابط المثال من الملفات المرفقة بعد رفعة على المنتدى
تحميل الملف
ورابط خارجي من موقع مخزن
تحميل الملف
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - ابو ليلى - 08-10-16
نفس السؤال في هذا الرابط
مساعدة بكتابة كود إظهار عدد الاسماء المتطابقة في الجدول
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - حريف برمجة - 08-10-16
(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 SubRE: طلب جمع قيم اشياء معية في الداتا جريد فيو - benomar - 08-10-16
[attachment=11927]محاولة
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - Codack - 08-10-16
(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 بس الكود مش راضي يظبط معاها
هل هناك طريقة؟؟
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - mhmd_911 - 08-10-16
المفروض ان المواد لها جدول خاص بها العادة اسمه items وجدول الكرة مثل الي انت عامله تشير للمادة برقمها من جدول items
هذا تعديل يمشي الحال مؤقتا الين تصلح قاعدة البيانات
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Public con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DB.accdb")
Public dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loading()
End Sub
Public Sub loading()
dt.Clear()
Dim cmd As New OleDbCommand("select * from color", con)
con.Open()
dt.Load(cmd.ExecuteReader)
DataGridView1.DataSource = dt
con.Close()
Me.Label4.Text = 0
Me.Label5.Text = 0
Me.Label6.Text = 0
Dim dadapt As New OleDbDataAdapter("SELECT hzaa, SUM(mach) AS mach FROM color GROUP BY hzaa", con)
Dim tab As New DataTable
dadapt.Fill(tab)
For Each r In tab.Rows
If r.item("hzaa") = "حذاء احمر" Then Me.Label4.Text = r.item("mach")
If r.item("hzaa") = "حذاء اخضر" Then Me.Label5.Text = r.item("mach")
If r.item("hzaa") = "حذاء اصفر" Then Me.Label6.Text = r.item("mach")
Next
End Sub
End Class
بس اقولك من الحين هذه الطريقة مرة غلط.
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - حريف برمجة - 08-10-16
(08-10-16, 08:45 PM)Codack كتب :(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 بس الكود مش راضي يظبط معاها
هل هناك طريقة؟؟
يجب عليك تحويل الحقل في الجدول إلى رقمي بدل من نصي وسيعمل الكود تمام .
RE: طلب جمع قيم اشياء معية في الداتا جريد فيو - mhmd_911 - 08-10-16
زي ما قلت لك عدل قاعدة البيانات بطريقة صحيحة
وهذا الجزء الي انت محتاجة مؤقتا الين تصلح فاعدة البيانات
PHP كود :
Dim dadapt As New OleDbDataAdapter("SELECT hzaa, SUM(mach) AS mach FROM color GROUP BY hzaa", con)
Dim tab As New DataTable
dadapt.Fill(tab)
For Each r In tab.Rows
If r.item("hzaa") = "حذاء احمر" Then Me.Label4.Text = r.item("mach")
If r.item("hzaa") = "حذاء اخضر" Then Me.Label5.Text = r.item("mach")
If r.item("hzaa") = "حذاء اصفر" Then Me.Label6.Text = r.item("mach")
Next