cmd.Parameters.AddWithValue("@chk", CheckBox1.Checked)If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.Open()
Dim cmdInsH As New OleDbCommand
cmdInsH.Connection = Con
cmdInsH.CommandType = CommandType.Text
cmdInsH.CommandText = "UPDATE [salse].[login] SET [user] = @us ,[pass] = @pass ,[add] = @ad,[cars] = @ca,[day] = @da,[stor] = @sto,[entag] = @ent,[data] = @da,[admin] = @adm WHERE loginID = @id"
cmdInsH.Parameters.AddWithValue("@id", txtid.Text)
cmdInsH.Parameters.AddWithValue("@us", txtuser.Text)
cmdInsH.Parameters.AddWithValue("@pass", txtpass.Text)
cmdInsH.Parameters.AddWithValue("@ad", add.Checked)
cmdInsH.Parameters.AddWithValue("@ca", car.Checked)
cmdInsH.Parameters.AddWithValue("@da", day.Checked)
cmdInsH.Parameters.AddWithValue("@sto", stor.Checked)
cmdInsH.Parameters.AddWithValue("@ent", entag.Checked)
cmdInsH.Parameters.AddWithValue("@da", data.Checked)
cmdInsH.Parameters.AddWithValue("@adm", adm.Checked)
cmdInsH.ExecuteNonQuery()
Con.Close()
MsgBox("تمت ---- التعديل بنجاح", 64 + 524288, "نجاح")
cmdInsH.CommandText = "UPDATE [salse].[login] SET [user] = @us ,[pass] = @pass ,[add] = @ad,[cars] = @ca,[day] = @da,[stor] = @sto,[entag] = @ent,[data] = @da,[admin] = @adm WHERE loginID = @id"
cmdInsH.Parameters.AddWithValue("@us", txtuser.Text)
cmdInsH.Parameters.AddWithValue("@pass", txtpass.Text)
cmdInsH.Parameters.AddWithValue("@ad", add.Checked)
cmdInsH.Parameters.AddWithValue("@ca", car.Checked)
cmdInsH.Parameters.AddWithValue("@da", Day.Checked)
cmdInsH.Parameters.AddWithValue("@sto", stor.Checked)
cmdInsH.Parameters.AddWithValue("@ent", entag.Checked)
cmdInsH.Parameters.AddWithValue("@da", Data.Checked)
cmdInsH.Parameters.AddWithValue("@adm", adm.Checked)
cmdInsH.Parameters.AddWithValue("@id", txtid.Text)
cmdInsH.ExecuteNonQuery()