تقييم الموضوع :
  • 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
الله يسلمك
صار منها والا؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الفورم الذي يظهر فيه التقرير Emam emam 2 45 17-02-19, 03:59 PM
آخر رد: Emam emam
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 76 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 87 06-02-19, 10:35 AM
آخر رد: dametucorazon
  سؤال حول امر الطباعة الفورية Osama Bayoumy 6 594 02-02-19, 01:08 PM
آخر رد: atef_020
  سؤال BackgroundWorker new_programer 5 204 23-01-19, 06:50 PM
آخر رد: %Eman%
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 3 143 22-01-19, 07:51 AM
آخر رد: حريف برمجة
  سؤال في تغيير قيمة الخلية sofiane-phy 3 146 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 266 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  خطأ فى كود اضافة احمد خطاب 1 85 14-01-19, 11:50 AM
آخر رد: محمد اسماعيل
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 425 09-01-19, 10:56 PM
آخر رد: abdullhadi999

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


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