+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في اضافة وسحب اصناف من المخزن (/showthread.php?tid=18293)
سؤال في اضافة وسحب اصناف من المخزن - khadija_seedi_ali - 06-12-16
السلام عليكم ورحمة الله وبركاته
احتاج لكود يضيف اصناف للمخزن ويسحب منه عما بان المخزن عبارة عن مخزن ادوية يحتوي على طلبية صادرة وواردة
RE: سؤال في اضافة وسحب اصناف من المخزن - محمد كريّم - 07-12-16
طيب يا أختي العملية ليست بهذه البساطة
ما هي قاعدة البيانات؟
ماهي بنية الجداول؟
وأين تخزنين الكميات هل في حقل مخصص أم أنها ستكون محسوبة من العمليات السابقة؟
RE: سؤال في اضافة وسحب اصناف من المخزن - khadija_seedi_ali - 07-12-16
(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
RE: سؤال في اضافة وسحب اصناف من المخزن - محمد كريّم - 08-12-16
طبعا لا يوجد في الكود امر تعديل على قاعدة البيانات
هذا االكود بعد التعديل يقوم بتعديل الكمية المخزنة في المتغير 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 IfRE: سؤال في اضافة وسحب اصناف من المخزن - khadija_seedi_ali - 17-12-16
شكرآ أخي الكريم صحيت بارك الله فيك
RE: سؤال في اضافة وسحب اصناف من المخزن - محمد كريّم - 17-12-16
الله يسلمك
صار منها والا؟