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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 1 18 منذ 2 ساعة مضت
آخر رد: aljzazy
  [سؤال] اضافة فلتر الى داتا قريد فيو مصطفى محمود 2 53 منذ 3 ساعة مضت
آخر رد: مصطفى محمود
  سؤال عن حقل primry key في sql server hglogtd 6 116 اليوم, 05:43 AM
آخر رد: mero5000
  سؤال - حول الطباعة المباشرة لتقارير الكريستال lysalh65@gmail.com 6 114 19-09-18, 11:52 PM
آخر رد: lysalh65@gmail.com
  سؤال حول امر الطباعة الفورية Osama Bayoumy 4 165 19-09-18, 06:55 PM
آخر رد: elgokr
  سؤال عن كود التأكد من صلاحيات المستخدم nagoma 10 194 17-09-18, 10:43 PM
آخر رد: حريف برمجة
  سؤال كريستال ريبورتى لولبى lysalh65@gmail.com 4 94 17-09-18, 10:37 PM
آخر رد: lysalh65@gmail.com
  سؤال حول الباركود alipro 5 134 12-09-18, 08:19 AM
آخر رد: elgokr
  سؤال حول جملة for DOX.1 3 83 12-09-18, 07:53 AM
آخر رد: elgokr
  سؤال كيف انفذ امر من لوحة المفاتيح من دون الظغط علي اي زر علي لوحة المفاتيح alipro 1 133 07-09-18, 05:40 PM
آخر رد: DK-x

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


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