السلام عليكم ورحمة الله
تفضل هذه دالة تجلب لك الكمية حسب اسم الصنف، ولا داعي ل**** فأنا لا أسعى له، فلا تقلق. الله يوفقك
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

