المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
[COLOR="#800080"]السلام عليكم
عملت قاعدة بيانات وكتبت اكواد لاضافة وحفظ وو
لااكن عند تشغيل البرنامج وتعبئة البيانات و اعمل لها حفظ ينفتح صفحة الاكواد ويجي خطا في السطر التالي > cmd.ExecuteNonQuery()
وهذه صوره مثال >
[ATTACH=CONFIG]2695[/ATTACH]
ارجو التوضيح سبب الخطأ .
شكرا
[/COLOR]
الملفات المرفقة
صورة/صور
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
[ATTACH=CONFIG]2696[/ATTACH]
هذه صورة اخرى ان شاء الله تكون واضحةة
الملفات المرفقة
صورة/صور
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
حسناً, قم بتجربة الكود التالي:
PHP كود :
Private Sub Button2_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles Button2 . Click Try Dim cmd As New OleDbCommand ( "insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1) cmd.Parameters.AddWithValue(" @ nameb1 ", TextBox1.Text) cmd.Parameters.AddWithValue(" @ mobileb1 ", TextBox2.Text) cmd.Parameters.AddWithValue(" @ emailb1 ", TextBox3.Text) cmd.Parameters.AddWithValue(" @ biographyb1 ", TextBox4.Text) cn.Open() cmd.ExecuteNonQuery() cmd.Dispose() MsgBox(" تم حفظ السجل بنجاح ", 64, " Hreef Parmgh ") dextxt() showdata() Catch ex As Exception MsgBox(" Error in insertion " & vbCrLf & ex.Message) End Try End Sub
و لكن عندي سؤال,
أين تعريف (cn.Open())؟
المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
امم مافهمت معليش
في الرابط جميع الاكواد المستخدمة
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
14-05-13, 11:09 AM
(آخر تعديل لهذه المشاركة : 15-05-13, 10:17 AM {2} بواسطة abde6726 .)
حسناً, قم بوضع الكود التالي في مكان الكود الذي يظهر فيه الخطأ:
PHP كود :
Private Sub Button2_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles Button2 . Click Try Dim cmd As New OleDbCommand ( "insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1), cn cmd.Parameters.AddWithValue(" @ nameb1 ", TextBox1.Text) cmd.Parameters.AddWithValue(" @ mobileb1 ", TextBox2.Text) cmd.Parameters.AddWithValue(" @ emailb1 ", TextBox3.Text) cmd.Parameters.AddWithValue(" @ biographyb1 ", TextBox4.Text) cn.Open() cmd.ExecuteNonQuery() cmd.Dispose() cn.Close() MsgBox(" تم حفظ السجل بنجاح , 64 ", " Hreef Parmgh ") dextxt() showdata() Catch ex As Exception MsgBox(" Error in insertion " & vbCrLf & ex.Message) End Try End Sub
المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اشكرك اخ [b]hoob computer [/b]
ولاكن الكود به اخطاء
[ATTACH=CONFIG]2697[/ATTACH]
الملفات المرفقة
صورة/صور
المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
ارجو المسااعدة من المبرمجين باقرب وقت
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
15-05-13, 10:08 AM
(آخر تعديل لهذه المشاركة : 15-05-13, 10:17 AM {2} بواسطة abde6726 .)
اسف يا أخي,
لكني نسيت وضع " و وضع ( في جملة الادخال.
شكلك جديد في البرمجة
تفضل الكود الجديد:
PHP كود :
Private Sub Button2_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles Button2 . Click Try Dim cmd As New OleDbCommand ( "insert into tbb1 (nameb1,mobileb1,emailb1,biographyb1) values (@nameb1,@mobileb1,@emailb1,@biographyb1)" , cn ) cmd . Parameters . AddWithValue ( "@nameb1" , TextBox1 . Text ) cmd . Parameters . AddWithValue ( "@mobileb1" , TextBox2 . Text ) cmd . Parameters . AddWithValue ( "@emailb1" , TextBox3 . Text ) cmd . Parameters . AddWithValue ( "@biographyb1" , TextBox4 . Text ) cn . Open () cmd . ExecuteNonQuery () cmd . Dispose () cn . Close () MsgBox ( "تم حفظ السجل بنجاح, 64" , "Hreef Parmgh" ) dextxt () showdata () Catch ex As Exception MsgBox ( "Error in insertion" & vbCrLf & ex . Message ) End Try End Sub
المشاركات : 10
المواضيع 2
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
شككراً لك hoob computer
ربي يجزاك كل خير