+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : مامعني هذا الخطاء "Expected query name after EXECUTE" (/showthread.php?tid=7637)
مامعني هذا الخطاء "Expected query name after EXECUTE" - السندباد المصري - 14-02-13
ما الخطاء في هذا الكود
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
مامعني هذا الخطاء "Expected query name after EXECUTE" - السندباد المصري - 15-02-13
مفيش حل
