[khadija_seedi_ali]

السلام عليكم ورحمة الله وبركاته
احتاج لكود يضيف اصناف للمخزن ويسحب منه عما بان المخزن عبارة عن مخزن ادوية يحتوي على طلبية صادرة وواردة

[محمد كريّم]

طيب يا أختي العملية ليست بهذه البساطة
ما هي قاعدة البيانات؟
ماهي بنية الجداول؟
وأين تخزنين الكميات هل في حقل مخصص أم أنها ستكون محسوبة من العمليات السابقة؟

[khadija_seedi_ali]

(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

[khadija_seedi_ali]

شكرآ أخي الكريم صحيت بارك الله فيك

[محمد كريّم]

الله يسلمك
صار منها والا؟