تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل
#1
كود التنقيص

كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()
           For Each row As DataGridViewRow In DataGridView1.Rows
               If row.Cells(0).Value Is Nothing Then Exit For
               Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] -1 WHERE Equ_ID=@Equ_ID", conn)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)
                   cmd.ExecuteNonQuery()
               End Using
           Next
           conn.Close()
       End Using
من يومين شغال والحين مادري ويش فيه ما يشتغل

اين الخلل واذا ارتم ارسال لكم المثال راح ارسله ليكم
الرد }}}
تم الشكر بواسطة:
#2
مرحبا اخى

PHP كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           
conn.Open()
           For 
Each row As DataGridViewRow In DataGridView1.Rows
               
If row.Cells(0).Value Is Nothing Then Exit For
               
Using cmd As New OleDbCommand("UPDATE [Equpment] SET [Equ_Qantity]=[Equ_Qantity] - @Equ_Qantity WHERE [Equ_ID]=@Equ_ID"conn)
                   
cmd.Parameters.AddWithValue("@Equ_Qantity"val(row.Cells(2).Value) )
                   
cmd.Parameters.AddWithValue("@Equ_ID"val(row.Cells(0).Value) )
                   
cmd.ExecuteNonQuery()
               
End Using
           Next
           conn
.Close()
       
End Using 
الرد }}}
تم الشكر بواسطة:
#3
عندي خلل بسيط في كود بعد الترجيع :

عندما اقوم بعملية الحفظ يتم الحفظ لكن العدد المرجع لايتم اضافته :

الكود :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

           conn.Open()
           For Each itm As ListViewItem In ListView1.Items
               If itm.SubItems(0).Text Is Nothing Then Exit For
               Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] +1 WHERE Equ_ID=@Equ_ID", conn)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", itm.SubItems(2).Text.ToString)
                   cmd.ExecuteNonQuery()
               End Using
           Next
           conn.Close()
       End Using
كود الحفظ للترجيع :
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()
           Dim sql As String =
                   "INSERT INTO [Return]" &
                   "( Cus_Balance, Cus_Name, Cus_Private_Number, Cus_Address, Cus_Car, Cus_Telephone_Number, Equ_Name, Equ_Qantity, Equ_Price, Rent_Date, Ret_Date )" &
                   "VALUES" &
                   "( @Cus_Balance, @Cus_Name, @Cus_Private_Number, @Cus_Address, @Cus_Car, @Cus_Telephone_Number, @Equ_Name, @Equ_Qantity, @Equ_Price, @Rent_Date, @Ret_Date )"
           Using cmd As New OleDbCommand(sql, conn)
               For Each itm As ListViewItem In ListView1.Items
                   cmd.Parameters.Clear()
                   cmd.Parameters.AddWithValue("@Cus_Balance", ComboBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Car", TextBox4.Text.ToString)
                   cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text.ToString)
                   cmd.Parameters.AddWithValue("@Equ_Name", itm.SubItems(0).Text)
                   cmd.Parameters.AddWithValue("@Equ_Qantity", itm.SubItems(1).Text)
                   cmd.Parameters.AddWithValue("@Equ_Price", TextBox6.Text.ToString)
                   cmd.Parameters.AddWithValue("@Rent_Date", itm.SubItems(2).Text)
                   cmd.Parameters.AddWithValue("@Ret_Date", DateTimePicker1.Value.ToString)
                   cmd.ExecuteNonQuery()
               Next
           End Using
           conn.Close()
       End Using
       SumCount()
       MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
الرجاء اخباري اين الخطأ
الرد }}}
تم الشكر بواسطة:
#4
مرحبا اخى

اعتقد ان ما تخصم من المخزون مباشره
الرد }}}
تم الشكر بواسطة:
#5
هذا مو حق خصم هذا بعد الخصم اريد الترجيع المفروض اذا كان المنتج 100 حبة وتم استئجار حبة واحدة يحصل 99 حبة المتبقية
وبعد الترجيع يرجع حبة فيكون عدد المنتج المتوفر 100

العملية تكون :
اثناء الخصم
100-1 = 99
اثناء الترجيع
1+99=100

وهكذا
الرد }}}
تم الشكر بواسطة:
#6
أخي العزيز أرسل مثال أفضل للتعديل علية وتوضيح المشكلة والحل
Email : mrma11581@gmail.com
الرد }}}
تم الشكر بواسطة: أبو نوره
#7
تم رفع المثال اخي الفاضل مثل ماطلبت


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 216.75 ك ب / التحميلات : 42)
الرد }}}
تم الشكر بواسطة:
#8
أعتقد المشكلة لعدم الحفظ الكميات بعد التعديل انك بتعمل التعديل بناءا على رقم المعدة وهو غير موجود باللست فيو
PHP كود :
Sub SumCount()
        
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

            
conn.Open()
            For 
Each itm As ListViewItem In ListView1.Items
                
If itm.SubItems(0).Text Is Nothing Then Exit For
                
Using cmd As New OleDbCommand("UPDATE Equpment SET [Equ_Qantity]=[Equ_Qantity] +1 WHERE Equ_name=@Equ_ID"conn)
                    
cmd.Parameters.AddWithValue("@Equ_Qantity"itm.SubItems(0).Text.ToString)
                    
cmd.ExecuteNonQuery()
                
End Using
            Next
            conn
.Close()
        
End Using
    End Sub 
Email : mrma11581@gmail.com
الرد }}}
تم الشكر بواسطة: أبو نوره
#9
اخي الفاضل

لقد قام بالترجيع بشكل جيد ولكن هناك خطأ بسيط

الزبون قد استأجر 20 حبة لماذا يقم بإضافة حبة واحدة والكمية المتوفرة هي 100 فيكون 101 بدل مايكون 120 حبة ؟؟
الرد }}}
تم الشكر بواسطة:
#10
لحد الأن اقوم بالبحث ولم اوصل للحل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 457 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 508 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 502 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 402 23-07-23, 12:22 AM
آخر رد: أبووسم

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


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