(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
فقالو لي الاكسس سههل المهم
انا الان احضر برنامج لعمل ومعتمد علي الان اذا ممكن تساعدني بكم شغله
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها 
