استخدم قاعده بيانات sql مرفوعه علي استضافه
وعند اضافه بيانات جديده تظهر هذا الخطاء ومع العلم انا متأكد من جميع اسامي العمدان انها صحيحه
هذا الكود الذي استخدمه الكود في صاب
كود :
Sub add1()
sql = "INSERT INTO DB_SIGN VALUES(FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
'.AddWithValue("USER_ID", TextBox3.Text)
.AddWithValue("FRIST_NUM", frsttx.Text)
.AddWithValue("LAST_NUM", lsttx.Text)
.AddWithValue("EMAIL_NUM", emltx.Text)
.AddWithValue("PASSWORD_NUM", pastx.Text)
.AddWithValue("PHONE_NUM", phontx.Text)
.AddWithValue("USER_NUM", usrtx.Text)
.AddWithValue("SER_NUM", TextBox5.Text)
.AddWithValue("POINT_NUM", TextBox1.Text)
.AddWithValue("DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
End Sub
وهنا استدعي الصاب داخل الزر
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
add1()
End Sub
بعد ملئ البيانات والضغط علي الزر يهر هذا الخطاء
(19-11-19, 06:08 AM)حريف برمجة كتب : [ -> ]Sub add1()
sql = "INSERT INTO DB_SIGN VALUES(@FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
.AddWithValue("@FRIST_NUM", frsttx.Text)
.AddWithValue("@LAST_NUM", lsttx.Text)
.AddWithValue("@EMAIL_NUM", emltx.Text)
.AddWithValue("@PASSWORD_NUM", pastx.Text)
.AddWithValue("@PHONE_NUM", phontx.Text)
.AddWithValue("@USER_NUM", usrtx.Text)
.AddWithValue("@SER_NUM", TextBox5.Text)
.AddWithValue("@POINT_NUM", TextBox1.Text)
.AddWithValue("@DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
End Sub
ممكن افهم بس ايه التعديل اللي تم علي الكود وهل استخدم هذا الكود مباشره في الزر
(19-11-19, 06:08 AM)حريف برمجة كتب : [ -> ]
كود :
Sub add1()
sql = "INSERT INTO DB_SIGN VALUES(@FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
.AddWithValue("@FRIST_NUM", frsttx.Text)
.AddWithValue("@LAST_NUM", lsttx.Text)
.AddWithValue("@EMAIL_NUM", emltx.Text)
.AddWithValue("@PASSWORD_NUM", pastx.Text)
.AddWithValue("@PHONE_NUM", phontx.Text)
.AddWithValue("@USER_NUM", usrtx.Text)
.AddWithValue("@SER_NUM", TextBox5.Text)
.AddWithValue("@POINT_NUM", TextBox1.Text)
.AddWithValue("@DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
End Sub
ظهر هذا الخطأ
التعديل تم إضافة : @
بعد كلمة Values وقبل الحقل الأول : First_NUM
وبعد أسماء الحقول كاملة بعد (AddWithValue)
وتم حذف :
'.AddWithValue("USER_ID", TextBox3.Text)
**********************************************
رسالة الخطأ الأخيرة مفادها البرامتر وعدد الحقول غير متطابقة :
البرامتر هي التي بعد @
عدد الحقول هي الحقول الموجوده في الجدول والتي بعد Values ،، لا بد تكون مرتبه بنفس تنسيق الجدول ولا تنسى حقل الترقيم التلقائي لا تضعه ضمن الحقول .
أو ان تكتبها كالتالي :
(هنا البرامتر ويجب تطابقها مع أسماء الحقول في الجهة المقابلة مسبوقة بآت @) Values (هنا أسماء الحقول كماهي في الجدول يفصل بين الأسماء بفاصلة)
نعم يمكنك استخدامه مباشرة في الزر فقط انسخ الكود كامل بدون الصب (Sub add1)
(19-11-19, 06:30 AM)حريف برمجة كتب : [ -> ]التعديل تم إضافة : @
بعد كلمة Values وقبل الحقل الأول : First_NUM
وبعد أسماء الحقول كاملة بعد (AddWithValue)
وتم حذف :
'.AddWithValue("USER_ID", TextBox3.Text)
**********************************************
رسالة الخطأ الأخيرة مفادها البرامتر وعدد الحقول غير متطابقة :
البرامتر هي التي بعد @
عدد الحقول هي الحقول الموجوده في الجدول والتي بعد Values ،، لا بد تكون مرتبه بنفس تنسيق الجدول ولا تنسى حقل الترقيم التلقائي لا تضعه ضمن الحقول .
أو ان تكتبها كالتالي :
(هنا البرامتر ويجب تطابقها مع أسماء الحقول في الجهة المقابلة مسبوقة بآت @) Values (هنا أسماء الحقول كماهي في الجدول يفصل بين الأسماء بفاصلة)
نعم يمكنك استخدامه مباشرة في الزر فقط انسخ الكود كامل بدون الصب (Sub add1)
شكرا لك اخي حريف البرمجه ولكن لم افهم اطلاقا خصوصا اني لسه مبتدأ في الsql
لكن كلام حضرتك يتطابق مع الاكواد والجداول يبقي اين المشكله
وانظر الترتيب صحيح
(19-11-19, 06:30 AM)حريف برمجة كتب : [ -> ]التعديل تم إضافة : @
بعد كلمة Values وقبل الحقل الأول : First_NUM
وبعد أسماء الحقول كاملة بعد (AddWithValue)
وتم حذف :
'.AddWithValue("USER_ID", TextBox3.Text)
**********************************************
رسالة الخطأ الأخيرة مفادها البرامتر وعدد الحقول غير متطابقة :
البرامتر هي التي بعد @
عدد الحقول هي الحقول الموجوده في الجدول والتي بعد Values ،، لا بد تكون مرتبه بنفس تنسيق الجدول ولا تنسى حقل الترقيم التلقائي لا تضعه ضمن الحقول .
أو ان تكتبها كالتالي :
(هنا البرامتر ويجب تطابقها مع أسماء الحقول في الجهة المقابلة مسبوقة بآت @) Values (هنا أسماء الحقول كماهي في الجدول يفصل بين الأسماء بفاصلة)
نعم يمكنك استخدامه مباشرة في الزر فقط انسخ الكود كامل بدون الصب (Sub add1)
كود :
sql = "INSERT INTO DB_SIGN VALUES(@USER_ID, @FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
.AddWithValue("USER_ID", TextBox3.Text)
.AddWithValue("@FRIST_NUM", frsttx.Text)
.AddWithValue("@LAST_NUM", lsttx.Text)
.AddWithValue("@EMAIL_NUM", emltx.Text)
.AddWithValue("@PASSWORD_NUM", pastx.Text)
.AddWithValue("@PHONE_NUM", phontx.Text)
.AddWithValue("@USER_NUM", usrtx.Text)
.AddWithValue("@SER_NUM", TextBox5.Text)
.AddWithValue("@POINT_NUM", TextBox1.Text)
.AddWithValue("@DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
ضع الكود في الزر مباشرة ،،
(19-11-19, 07:14 AM)حريف برمجة كتب : [ -> ]
كود :
sql = "INSERT INTO DB_SIGN VALUES(@USER_ID, @FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
.AddWithValue("USER_ID", TextBox3.Text)
.AddWithValue("@FRIST_NUM", frsttx.Text)
.AddWithValue("@LAST_NUM", lsttx.Text)
.AddWithValue("@EMAIL_NUM", emltx.Text)
.AddWithValue("@PASSWORD_NUM", pastx.Text)
.AddWithValue("@PHONE_NUM", phontx.Text)
.AddWithValue("@USER_NUM", usrtx.Text)
.AddWithValue("@SER_NUM", TextBox5.Text)
.AddWithValue("@POINT_NUM", TextBox1.Text)
.AddWithValue("@DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
ضع الكود في الزر مباشرة ،،
ربي ما يحرمني منك ابداااااااا
اخي اذا امكن ارفق مثالك ليتم التعديل عليه !