السلام عليكم ورحمة الله وبركاته
احتاج لكود يضيف اصناف للمخزن ويسحب منه عما بان المخزن عبارة عن مخزن ادوية يحتوي على طلبية صادرة وواردة
طيب يا أختي العملية ليست بهذه البساطة
ما هي قاعدة البيانات؟
ماهي بنية الجداول؟
وأين تخزنين الكميات هل في حقل مخصص أم أنها ستكون محسوبة من العمليات السابقة؟
(07-12-16, 02:42 PM)محمد كريّم كتب : [ -> ]طيب يا أختي العملية ليست بهذه البساطة
ما هي قاعدة البيانات؟
ماهي بنية الجداول؟
وأين تخزنين الكميات هل في حقل مخصص أم أنها ستكون محسوبة من العمليات السابقة؟
استعمل قاعدة بيانات sql server
اقوم بتخزين الكميات في نفس الجدول اللي فيه بيانات الادوية
عندي حاجة غلط في الكود المفرض لما انضيف كمية دواء تنضاف لي على الكمية الموجود ,لاكن الكود يقوم بالتعديل على الكمية السابقة
Dim x As Integer = 0
If Trim(TextBox1.Text) <> "" Then
Dim Str As String = "Select * from medicines where name1 ='" & Trim(ComboBox1.Text) & "'"
'Dim Str As String = "select * from altalabia_mostalama where no1 = " + TextBox1.Text + " "
Dim cmd As New SqlCommand(Str, con)
If con.State = ConnectionState.Closed Then con.Open()
Dim DrView As SqlDataReader = cmd.ExecuteReader
If DrView.Read Then
If Not IsDBNull(DrView.Item("quantity")) Then x = DrView("quantity")
x = x + Val(TextBox2.Text)
DrView.Close()
Else
DrView.Close()
End If
DrView.Close()
End If
طبعا لا يوجد في الكود امر تعديل على قاعدة البيانات
هذا االكود بعد التعديل يقوم بتعديل الكمية المخزنة في المتغير x
كود :
Dim x As Integer = 0
If Trim(TextBox1.Text) <> "" Then
Dim Str As String = "Select * from medicines where name1 ='" & Trim(ComboBox1.Text) & "'"
'Dim Str As String = "select * from altalabia_mostalama where no1 = " + TextBox1.Text + " "
Dim cmd As New SqlCommand(Str, con)
If con.State = ConnectionState.Closed Then con.Open()
Dim DrView As SqlDataReader = cmd.ExecuteReader
If DrView.Read Then
If Not IsDBNull(DrView.Item("quantity")) Then x = DrView("quantity")
x = x + Val(TextBox2.Text)
DrView.Close()
Dim myCommand = New SqlCommand
myCommand.CommandText = "UPDATE medicines SET quantity='" & x & "' WHERE name1 ='" & Trim(ComboBox1.Text) & "'"
myCommand.Connection = con
myCommand.ExecuteNonQuery()
Else
DrView.Close()
End If
End If
شكرآ أخي الكريم صحيت بارك الله فيك
الله يسلمك
صار منها والا؟