منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة (/showthread.php?tid=8883)

الصفحات: 1 2

خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 14-05-13

[COLOR="#800080"]السلام عليكم

عملت قاعدة بيانات وكتبت اكواد لاضافة وحفظ وو

لااكن عند تشغيل البرنامج وتعبئة البيانات و اعمل لها حفظ ينفتح صفحة الاكواد ويجي خطا في السطر التالي > cmd.ExecuteNonQuery()

وهذه صوره مثال >
[ATTACH=CONFIG]2695[/ATTACH]

ارجو التوضيح سبب الخطأ .

شكرا
[/COLOR]


خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - hoob computer - 14-05-13

الصورة غير واضحة!

خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 14-05-13

[ATTACH=CONFIG]2696[/ATTACH]

هذه صورة اخرى ان شاء الله تكون واضحةة

خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - hoob computer - 14-05-13

حسناً, قم بتجربة الكود التالي:


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

خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 14-05-13

امم مافهمت معليش

في الرابط جميع الاكواد المستخدمة


خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - hoob computer - 14-05-13

حسناً, قم بوضع الكود التالي في مكان الكود الذي يظهر فيه الخطأ:

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 


خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 15-05-13

اشكرك اخ [b]hoob computer[/b]


ولاكن الكود به اخطاء
Sad


[ATTACH=CONFIG]2697[/ATTACH]

خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 15-05-13

ارجو المسااعدة من المبرمجين باقرب وقت




خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - hoob computer - 15-05-13

اسف يا أخي,
لكني نسيت وضع " و وضع ( في جملة الادخال.

شكلك جديد في البرمجة Smile

تفضل الكود الجديد:

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 


خطأ بعد تشغيل البرنامج في حفظ للبيانات الدخلة - abeer - 15-05-13

شككراً لك hoob computer

ربي يجزاك كل خير