(17-12-14, 08:35 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

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

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 


(17-12-14, 08:35 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

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

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 


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


ضع أي استفسار يشكل عليك والكل بيساعد ومو بس أنا، طبعاً كل واحد حسب ظروفه.