08-10-16, 08:51 PM
المفروض ان المواد لها جدول خاص بها العادة اسمه 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
بس اقولك من الحين هذه الطريقة مرة غلط.


