تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في اضافة وسحب اصناف من المخزن
#1
Wink 
السلام عليكم ورحمة الله وبركاته
احتاج لكود يضيف اصناف للمخزن ويسحب منه عما بان المخزن عبارة عن مخزن ادوية يحتوي على طلبية صادرة وواردة
الرد }}}
تم الشكر بواسطة:
#2
طيب يا أختي العملية ليست بهذه البساطة
ما هي قاعدة البيانات؟
ماهي بنية الجداول؟
وأين تخزنين الكميات هل في حقل مخصص أم أنها ستكون محسوبة من العمليات السابقة؟
الرد }}}
تم الشكر بواسطة: khadija_seedi_ali
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
طبعا لا يوجد في الكود امر تعديل على قاعدة البيانات

هذا االكود بعد التعديل يقوم بتعديل الكمية المخزنة في المتغير 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
الرد }}}
تم الشكر بواسطة:
#5
شكرآ أخي الكريم صحيت بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#6
الله يسلمك
صار منها والا؟
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم