دخول

**moha8080** · 19-11-19, 05:47 AM

استخدم قاعده بيانات 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 

بعد ملئ البيانات والضغط علي الزر يهر هذا الخطاء

**حريف برمجة**

كود :

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

**moha8080**

(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)

**moha8080**

(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)

**حريف برمجة** · 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()

ضع الكود في الزر مباشرة ،،

**moha8080** · 19-11-19, 07:21 AM

(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()
ضع الكود في الزر مباشرة ،،

ربي ما يحرمني منك ابداااااااا

**moha8080** · 19-11-19, 09:05 AM

(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()
ضع الكود في الزر مباشرة ،،

ولكن ظهر هذا الخطاء

**حريف برمجة** · 19-11-19, 09:20 AM

اخي اذا امكن ارفق مثالك ليتم التعديل عليه !

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] مشكله رساله خطا	Omaro	7	152	24-03-24, 03:46 PM آخر رد: Omaro
	[سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود	مبرمج صغير 1	6	406	09-01-24, 01:41 AM آخر رد: Taha Okla
	[سؤال] اريد تحميل فيجوال بيسك 2010 وعمل قواعد بيانات داخله لكن عند تنصيبه تظهر رساله؟؟؟؟؟	Tame	0	347	22-03-23, 01:41 AM آخر رد: Tame
	[كود] مشكله ظهور رساله خطا قابل للتثبيت ISAM تعذر العثور على	محمد مسافر	0	602	29-11-22, 03:11 AM آخر رد: محمد مسافر
	[كود] رساله خطاء لملف اكسس مرتبط بفيجوال دوت نت.	محمد مسافر	5	677	23-11-22, 12:16 PM آخر رد: Jounior_P
	[سؤال] كيفيه ارسال رساله الي الواتساب	حسن الجلب	3	823	12-08-22, 01:28 AM آخر رد: asmarsou
	[سؤال] كيفية معرفه مسار الويندوز أو بمعني آخر ازاي اعرف البارتيشن ال نازل عليه الويندوز	حسن الجلب	1	957	16-10-21, 09:59 PM آخر رد: Mohamad Anan
	السلام عليكم ممكن اعرف اى سبب المشكلة وحلها ؟	AhmedRamadan	13	2,863	03-10-21, 08:01 PM آخر رد: asemshahen5
	[سؤال] ازاي اعرف العدد الصحيح	حسن الجلب	1	956	13-04-21, 06:08 AM آخر رد: messry
	عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج	Hosam Ashraf Elwakel	1	1,499	10-02-21, 01:09 AM آخر رد: أبو عبدالله الحلواني