تقييم الموضوع :
  • 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 10 منذ 7 دقيقة مضت
آخر رد: rmnr
  سؤال في ListView Emam emam 3 51 اليوم, 02:39 AM
آخر رد: Rabeea Qbaha
  سؤال بخصوص قاعدة اكسيس احمد خطاب 3 50 20-11-18, 06:39 PM
آخر رد: حريف برمجة
  سؤال في كيفية عمل Sub report باخل الكريستال ريبورت Emam emam 3 66 19-11-18, 07:19 PM
آخر رد: elgokr
  [نقاش] سؤال مهم جدا اسامه الهرماوي 2 64 19-11-18, 05:33 PM
آخر رد: ابو يوسف النواوي 2
  سؤال بخصوص ال update فى الاكسس mostafa nada 8 177 18-11-18, 06:08 PM
آخر رد: mostafa nada
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 52 18-11-18, 02:17 AM
آخر رد: allo5_800
  سؤال في الاتصال بالاكسس اسامه الهرماوي 0 42 17-11-18, 07:05 PM
آخر رد: اسامه الهرماوي
  سؤال بخصوص حفظ قيمة في الكومبو بوكس abdullhadi999 7 151 17-11-18, 02:52 PM
آخر رد: elgokr
  سؤال عملية حسابية محمد خيري 6 74 15-11-18, 04:26 PM
آخر رد: محمد خيري

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


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