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

الصفحات : 1 2

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

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

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

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

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

شكرا
[/COLOR]

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

[ATTACH=CONFIG]2696[/ATTACH]

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

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

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

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

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

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

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 

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

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

[ATTACH=CONFIG]2697[/ATTACH]

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

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

شكلك جديد في البرمجة 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 

شككراً لك hoob computer

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

abeer

hoob computer

abeer

hoob computer

abeer

hoob computer

abeer

abeer

hoob computer

abeer