منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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 


الوليد انا ضعيف جدا في الاكسس
فقالو لي الاكسس سههل المهم
انا الان احضر برنامج لعمل ومعتمد علي الان اذا ممكن تساعدني بكم شغله