تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن حل للمشكلة هدي
#1
السلام عليكم
عند التعديل علي فورم الاصناف تظهر معاي هدي الريسالة ياريت حل للمشكلة




كود التعديل

PHP كود :
Private Sub BtnEdit_Click(sender As ObjectAs EventArgsHandles BtnEdit.Click
        Update_Items
(ItemID.TextItemBarcode.TextItemName.TextItemGroup.TextItemCompany.TextItemPlace.TextItemPrice.TextItemQty.TextItemLimit.TextItemMaxDiscound.TextItemEran.TextItemDate.ValueItemTime.ValueItemUser.Text)
 
       Load_Items()
 
   End Sub 

كود التعديل 2
PHP كود :
Public Sub Update_Items(ByVal ItemID AS LongByVal ItemBarcode AS String,ByVal ItemName AS String,ByVal ItemGroup AS String,ByVal ItemCompany AS String,ByVal ItemPlace AS String,ByVal ItemPrice AS DecimalByVal itemQty As DecimalByVal ItemLimit As DecimalByVal ItemMaxDiscound As DecimalByVal ItemEran As Decimal,ByVal ItemDate AS DateTime,ByVal ItemTime AS DateTime,ByVal ItemUser AS String)
 
     Dim Cmd As New OledbCommand
With Cmd
.Connection Con
.CommandType CommandType.Text
            
.CommandText "Update Items Set ItemID = @ItemID,ItemBarcode = @ItemBarcode,ItemName = @ItemName,ItemGroup = @ItemGroup,ItemCompany = @ItemCompany,ItemPlace = @ItemPlace,ItemPrice = @ItemPrice,ItemQty = @ItemQty,ItemLimit = @ItemLimit,ItemMaxDiscound = @ItemMaxDiscound,ItemEran = @ItemEran,ItemDate = @ItemDate,ItemTime = @ItemTime,ItemUser = @ItemUser"
 
           .Parameters.AddWithValue("@ItemID"OleDbType.Integer ).Value ItemID
.Parameters.AddWithValue("@ItemBarcode"OleDbType.VarWChar ).Value ItemBarcode
.Parameters.AddWithValue("@ItemName"OleDbType.VarWChar ).Value ItemName
.Parameters.AddWithValue("@ItemGroup"OleDbType.VarWChar ).Value ItemGroup
.Parameters.AddWithValue("@ItemCompany"OleDbType.VarWChar ).Value ItemCompany
.Parameters.AddWithValue("@ItemPlace"OleDbType.VarWChar ).Value ItemPlace
.Parameters.AddWithValue("@ItemPrice"OleDbType.Double ).Value ItemPrice
.Parameters.AddWithValue("@ItemQty"OleDbType.Double ).Value ItemQty
.Parameters.AddWithValue("@ItemLimit"OleDbType.Double ).Value ItemLimit
.Parameters.AddWithValue("@ItemMaxDiscound"OleDbType.Double ).Value ItemMaxDiscound
.Parameters.AddWithValue("@ItemEran"OleDbType.Double ).Value ItemEran
.Parameters.AddWithValue("@ItemDate"OleDbType.Date ).Value ItemDate
.Parameters.AddWithValue("@ItemTime"OleDbType.Date ).Value ItemTime
.Parameters.AddWithValue("@ItemUser"OleDbType.VarWChar ).Value ItemUser

End With
If Con.State 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("تم تعديل السجل بنجاح"MsgBoxStyle.Information"تعديل")
Cmd Nothing
End Sub 
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
احي الكريم 
انت لم تضع حقل الشرط الذي سيتم بموجبه اختيار السجل لتعديله وهو هنا   ItemID  
الامر الاخر في جملة التعديل نضع كل الحقول التي سيتم التعديل عليها اولا ثم حقل الشرط في النهاية
تفضل التعديل
كود :
 Public Sub Update_Items(ByVal ItemBarcode As String, ByVal ItemName As String, ByVal ItemGroup As String, ByVal ItemCompany As String, ByVal ItemPlace As String, ByVal ItemPrice As Decimal, ByVal itemQty As Decimal, ByVal ItemLimit As Decimal, ByVal ItemMaxDiscound As Decimal, ByVal ItemEran As Decimal, ByVal ItemDate As DateTime, ByVal ItemTime As DateTime, ByVal ItemUser As String, ByVal ItemID As Integer)
       Dim Cmd As New OledbCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Update Items Set ItemBarcode = @ItemBarcode,ItemName = @ItemName,ItemGroup = @ItemGroup,ItemCompany = @ItemCompany,ItemPlace = @ItemPlace,ItemPrice = @ItemPrice,ItemQty = @ItemQty,ItemLimit = @ItemLimit,ItemMaxDiscound = @ItemMaxDiscound,ItemEran = @ItemEran,ItemDate = @ItemDate,ItemTime = @ItemTime,ItemUser = @ItemUser Where ItemID = @ItemID"

           .Parameters.AddWithValue("@ItemBarcode", OleDbType.VarWChar).Value = ItemBarcode
           .Parameters.AddWithValue("@ItemName", OleDbType.VarWChar).Value = ItemName
           .Parameters.AddWithValue("@ItemGroup", OleDbType.VarWChar).Value = ItemGroup
           .Parameters.AddWithValue("@ItemCompany", OleDbType.VarWChar).Value = ItemCompany
           .Parameters.AddWithValue("@ItemPlace", OleDbType.VarWChar).Value = ItemPlace
           .Parameters.AddWithValue("@ItemPrice", OleDbType.Double).Value = ItemPrice
           .Parameters.AddWithValue("@ItemQty", OleDbType.Double).Value = itemQty
           .Parameters.AddWithValue("@ItemLimit", OleDbType.Double).Value = ItemLimit
           .Parameters.AddWithValue("@ItemMaxDiscound", OleDbType.Double).Value = ItemMaxDiscound
           .Parameters.AddWithValue("@ItemEran", OleDbType.Double).Value = ItemEran
           .Parameters.AddWithValue("@ItemDate", OleDbType.Date).Value = ItemDate
           .Parameters.AddWithValue("@ItemTime", OleDbType.Date).Value = ItemTime
           .Parameters.AddWithValue("@ItemUser", OleDbType.VarWChar).Value = ItemUser
           .Parameters.AddWithValue("@ItemID", OleDbType.Integer).Value = ItemID

       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
       Cmd = Nothing
   End Sub

 تعديل كود الزر

كود :
Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
       Update_Items(ItemBarcode.Text, ItemName.Text, ItemGroup.Text, ItemCompany.Text, ItemPlace.Text, Convert.ToDecimal(ItemPrice.Text), Convert.ToDecimal(ItemQty.Text), Convert.ToDecimal(ItemLimit.Text), Convert.ToDecimal(ItemMaxDiscound.Text), Convert.ToDecimal(ItemEran.Text), ItemDate.Value, ItemTime.Value, ItemUser.Text, Convert.ToInt32(ItemID.Text))
       Load_Items()
   End Sub

ملاحظة : كان لديك اختلاف ايضا في نوع حقل الاي دي حيث تم تعريفه في سطر اسم تعريف الصب من نوع long  وفي الباراميتر integer  تم تعديله عدله في قاعدة البيانات ليتوافق ايضا

في كود زر التعديل كل مربعات النصوص قم بتحويلها الى نوع بيانات الحقل ايضا بالرغم من ان الفيجوال بيسك يتساهل في هذه النقطة لكن تحويلها افضل تم تعديلها
لا اعلم ان كان هناك اخطاء اخرى تتعلق باسماء الحقول او شي أخر جرب الكود اولا 
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو روضة
#3
جزاك الله خيرا تم جل المشكلة وربي يعطيك مزيدا من العلم والتقدم سلمت يداك
الرد
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#4
الحمد لله والشكر لله
ولك اخي الكريم
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟ AhmedRamadan 7 204 25-09-21, 11:49 PM
آخر رد: asemshahen5
  [VB.NET] محتاج حل للمشكلة الموجودة بالصورة 3loosh44 14 444 10-09-21, 03:28 AM
آخر رد: 3loosh44
  [VB.NET] ممكن مساعدة في جدول Category وعرضه في Data grid love_hell 0 136 10-09-21, 12:15 AM
آخر رد: love_hell
  ممكن توضيح بسيط فى الداتا جريد فيو خالد كامل1 1 327 04-09-21, 07:14 PM
آخر رد: ابو انس
Thumbs Up ممكن الاجابه عن الاسئله باسرع وقت ممكن روان سعد 3 298 18-08-21, 06:37 PM
آخر رد: ابو انس
  ممكن طريقة نقل الاسماء من datagridview الى textbox العطر الرايق 2 414 31-07-21, 01:56 PM
آخر رد: العطر الرايق
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 626 27-07-21, 09:32 PM
آخر رد: Ofealas
  ممكن طريقة نقل اسماء من datagridview الي اكثر من textbox العطر الرايق 1 387 27-07-21, 03:59 AM
آخر رد: aldery
  ممكن مساعدة في عمل مشغل crazykinko 5 892 14-07-21, 03:40 PM
آخر رد: Hatem Zahran
  ممكن كود window media player لتشغيل القنوات masport tv 1 322 14-07-21, 03:30 PM
آخر رد: Hatem Zahran

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


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