[الوليد ☺]

السلام عليكم ورحمة الله

تفضل هذه دالة تجلب لك الكمية حسب اسم الصنف، ولا داعي ل**** فأنا لا أسعى له، فلا تقلق. الله يوفقك

PHP كود :

Public Class Form1

    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database191.accdb"

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.TextBox2.Text = GetSum(Me.TextBox1.Text)
    End Sub

    Private Function GetSum(s As String) As Integer
        Try

            Dim sql As String = _
                "SELECT SUM([الكمـية])" & _
                "FROM [husin] " & _
                "WHERE [اسم الصنف] = @where"

            Using conn As New OleDb.OleDbConnection(connString)
                Using cmd As New OleDb.OleDbCommand(Sql, conn)
                    cmd.Parameters.AddWithValue("@where", s)

                    conn.Open()
                    Dim result As Object = cmd.ExecuteScalar
                    conn.Close()

                    If TypeOf result Is DBNull Then
                        MsgBox("لا يوجد اسم الصنف: " & s, MsgBoxStyle.MsgBoxRtlReading)
                    Else
                        Return result
                    End If

                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

End Class