15-06-21, 12:12 AM
(آخر تعديل لهذه المشاركة : 15-06-21, 12:17 AM {2} بواسطة Alanwalker.)
السلام عليكم
عند التعديل علي فورم الاصناف تظهر معاي هدي الريسالة ياريت حل للمشكلة
كود التعديل
كود التعديل 2
عند التعديل علي فورم الاصناف تظهر معاي هدي الريسالة ياريت حل للمشكلة
كود التعديل
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