[Alanwalker]

السلام عليكم
عند التعديل علي فورم الاصناف تظهر معاي هدي الريسالة ياريت حل للمشكلة




كود التعديل

PHP كود :

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


كود التعديل 2

PHP كود :

Public Sub Update_Items(ByVal ItemID AS Long, 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)
      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