منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ما الخطاء في هذا الكود
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = Conn
Sql = "add"
SavInto.CommandText = Sql
SavInto.CommandType = CommandType.StoredProcedure
Try

SavInto.Parameters.Add("@Nomber", OleDbType.Integer, 50)
SavInto.Parameters("@Nomber").Value = Trim(TextBox1.Text)

SavInto.Parameters.Add("@Name", OleDbType.VarChar, 50)
SavInto.Parameters("@Name").Value = Trim(TextBox2.Text)

SavInto.Parameters.Add("@Markz", OleDbType.VarChar, 50)
SavInto.Parameters("@Markz").Value = Trim(ComboBox1.Text)

SavInto.Parameters.Add("@Adress", OleDbType.VarChar, 50)
SavInto.Parameters("@Adress").Value = TextBox3.Text

SavInto.Parameters.Add("@Job", OleDbType.VarChar, 50)
SavInto.Parameters("@Job").Value = TextBox4.Text

SavInto.Parameters.Add("@Phone", OleDbType.Integer)
SavInto.Parameters("@Phone").Value = TextBox5.Text

SavInto.Parameters.Add("@Date-berth", OleDbType.Date)
SavInto.Parameters("@Date-berth").Value = DateTimePicker1.Text

SavInto.Parameters.Add("@Code", OleDbType.Integer)
SavInto.Parameters("@Code").Value = TextBox7.Text

SavInto.Parameters.Add("@Hezb_Do", OleDbType.VarChar, 50)
SavInto.Parameters("@Hezb_Do").Value = Trim(ComboBox1.Text)

SavInto.Parameters.Add("@Date_Joine", OleDbType.Date)
SavInto.Parameters("@Date_Joine").Value = Trim(DateTimePicker1.Text)
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "تمت العملية بنجاح")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
Conn.Close()
End Try

مفيش حل