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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : اسباب ظهور رسالة الخطأ (/showthread.php?tid=6923)



اسباب ظهور رسالة الخطأ - فجر الغد - 10-11-12

السلام عليكم ورحة الله وبركاته

عند تعبئة كامل الحقول في البرنامج والظغط على زر حفظ تظهر رسالة الخطأ التالية :



[CODE][HTML]Sub getschoolName()
Dim showsql1 As String = "select * from info0 where schoolid = '" & Me.lblPass.Text & "' "
Dim counter1 As Integer = 1

connection.Open()
Dim cmd1 As New OleDbCommand(showsql1, connection)
Dim dtrlist11 As OleDbDataReader = cmd1.ExecuteReader

While dtrlist11.Read
Dim itemlist As New ListItem

If IsDBNull(dtrlist11.Item("schoolname")) Then 'اسم المدرسة'
Me.txt1.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolname")
Me.txt1.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("schooladdress")) Then 'عنوانها'
Me.txt2.Text = ""
Else
itemlist.Text = dtrlist11.Item("schooladdress")
Me.txt2.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("schoolphone")) Then 'هاتف'
Me.txt3.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolphone")
Me.txt3.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("schoolmobile")) Then 'جوال'
Me.txt4.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolmobile")
Me.txt4.Text = itemlist.Text

End If
'*******************
' المديرة'
If IsDBNull(dtrlist11.Item("managername")) Then 'جوال''
Me.txt5.Text = ""
Else
itemlist.Text = dtrlist11.Item("managername")
Me.txt5.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("managermobile")) Then 'جوال'
Me.txt6.Text = ""
Else
itemlist.Text = dtrlist11.Item("managermobile")
Me.txt6.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("assist1name")) Then 'الوكيلة1'
Me.txt7.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist1name")
Me.txt7.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("assist1mobile")) Then 'جوال'
Me.txt8.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist1mobile")
Me.txt8.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("noorpersonnelname")) Then 'مسئول نور'
Me.txt9.Text = ""
Else
itemlist.Text = dtrlist11.Item("noorpersonnelname")
Me.txt9.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("noorpersonnelmobile")) Then ' جوال'
Me.txt10.Text = ""
Else
itemlist.Text = dtrlist11.Item("noorpersonnelmobile")
Me.txt10.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("numberoflabs")) Then 'عدد معامل الحاسب'
Me.txt11.Text = ""
Else
itemlist.Text = dtrlist11.Item("numberoflabs")
Me.txt11.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher")) Then 'معلم حاسب'
Me.txt12.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher")
Me.txt12.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteachermobile")) Then 'جوال'
Me.txt13.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteachermobile")
Me.txt13.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher1")) Then '1معلم حاسب'
Me.txt14.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher1")
Me.txt14.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("compteacher1mobile")) Then 'جوال'
Me.txt15.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher1mobile")
Me.txt15.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher2")) Then 'معلم حاسب'
Me.txt16.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher2")
Me.txt16.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher2mobile")) Then 'جوال'
Me.txt17.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher2mobile")
Me.txt17.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("numberofresources")) Then 'غرف المصادر'
Me.txt18.Text = ""
Else
itemlist.Text = dtrlist11.Item("numberofresources")
Me.txt18.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("resourcesname")) Then 'مسئول المصادر'
Me.txt19.Text = ""
Else
itemlist.Text = dtrlist11.Item("resourcesname")
Me.txt19.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("resourcesmobile")) Then 'جوال'
Me.txt20.Text = ""
Else
itemlist.Text = dtrlist11.Item("resourcesmobile")
Me.txt20.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("guard1name")) Then 'الحارس1'
Me.txt21.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard1name")
Me.txt21.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("guard1phone")) Then 'جوال'
Me.txt22.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard1phone")
Me.txt22.Text = itemlist.Text
End If
'*******************
If IsDBNull(dtrlist11.Item("assist2name")) Then 'الوكيلة2'
Me.Txt23.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist2name")
Me.Txt23.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("assist2mobile")) Then 'الجوال'
Me.Txt24.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist2mobile")
Me.Txt24.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Science labs")) Then 'عدد معامل العلوم'
Me.txt25.Text = ""
Else
itemlist.Text = dtrlist11.Item("Science labs")
Me.txt25.Text = itemlist.Text
End If

'*******************
If IsDBNull(dtrlist11.Item("lab1year")) Then 'سنة التركيب1'
Me.Txt26.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab1year")
Me.Txt26.Text = itemlist.Text
End If
'*******************


If IsDBNull(dtrlist11.Item("lab1area")) Then ' مساحة1'
Me.Txt27.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab1area")
Me.Txt27.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Devices1num")) Then ' عدد الأجهزة1'
Me.Txt28.Text = ""
Else
itemlist.Text = dtrlist11.Item("Devices1num")
Me.Txt28.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("lab2year")) Then ' سنة التركيب2'
Me.Txt31.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab2year")
Me.Txt31.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("lab2area")) Then 'مساحة2'
Me.Txt32.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab2area")
Me.Txt32.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Devices2num")) Then 'عدد الأجهزه2'
Me.Txt33.Text = ""
Else
itemlist.Text = dtrlist11.Item("Devices2num")
Me.Txt33.Text = itemlist.Text
End If
'*******************


If IsDBNull(dtrlist11.Item("guard2name")) Then 'الحارس2'
Me.Txt35.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard2name")
Me.Txt35.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("guard2phone")) Then 'جوال2'
Me.Txt36.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard2phone")
Me.Txt36.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("building")) Then 'المبنى'
Me.Txt37.Text = ""
Else
itemlist.Text = dtrlist11.Item("building")
Me.Txt37.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("buildingtype")) Then 'نوع المبنى'
Me.Txt38.Text = ""
Else
itemlist.Text = dtrlist11.Item("buildingtype")
Me.Txt38.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("FloorsNum")) Then 'عدد الطوابق'
Me.Txt39.Text = ""
Else
itemlist.Text = dtrlist11.Item("FloorsNum")
Me.Txt39.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("Squares")) Then 'الساحات'
Me.Txt40.Text = ""
Else
itemlist.Text = dtrlist11.Item("Squares")
Me.Txt40.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("SquaresNum")) Then 'عددالساحات'
Me.Txt41.Text = ""
Else
itemlist.Text = dtrlist11.Item("SquaresNum")
Me.Txt41.Text = itemlist.Text
End If
'******************

If IsDBNull(dtrlist11.Item("Type1")) Then 'نوع الأجهزة 1'
Me.Txt42.Text = ""
Else
itemlist.Text = dtrlist11.Item("Type1")
Me.Txt42.Text = itemlist.Text
End If

'******************

If IsDBNull(dtrlist11.Item("Type2")) Then 'نوع الأجهزة 2'
Me.Txt43.Text = ""
Else
itemlist.Text = dtrlist11.Item("Type2")
Me.Txt43.Text = itemlist.Text
End If

'******************


End While
dtrlist11.Close()
connection.Close()
End Sub


Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim UpdStudentState1 As String = "update info0 set schoolname=@schoolname, schooladdress=@schooladdress, schoolphone=@schoolphone, schoolmobile=@schoolmobile, building=@building,buildingtype=@buildingtype,FloorsNum=@FloorsNum, Squares=@Squares, SquaresNum=@SquaresNum, managername=@managername, managermobile=@managermobile, assistname=@assistname, assistmobile=@assistmobile, noorpersonnelname=@noorpersonnelname, noorpersonnelmobile=@noorpersonnelmobile, numberoflabs=@numberoflabs,lab1year=@lab1year, lab1area=@lab1area, Devices1num=@Devices1num, Type1=@Type1, lab2year=@lab2year, lab2area=@lab2area,Devices2num=@Devices2num, Type2=@Type2, compteacher1=@compteacher1, compteacher1mobile=@compteacher1mobile, compteacher2=@compteacher2, compteacher2mobile=@compteacher2mobile, compteacher3=@compteacher3, compteacher3mobile=@compteacher3mobile, numberofresources=@numberofresources, resourcespersonnel=@resourcespersonnel, resourcesmobile=@resourcesmobile, guardname=@guardname, guardphone=@guardphone where schoolid= '" & Me.lblPass.Text & "'"
Dim cmdUpdStdStat1 As New OleDbCommand(UpdStudentState1, connection)


'المدرسة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolname", Me.txt1.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schooladdress", Me.txt2.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolphone", Me.txt3.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolmobile", Me.txt4.Text))
'المبنى'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@building", Me.Txt37.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@buildingtype", Me.Txt38.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@FloorsNum", Me.Txt39.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Squares", Me.Txt40.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@SquaresNum", Me.Txt41.Text))

'المديرة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managername", Me.txt5.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managermobile", Me.txt6.Text))
'الوكيلة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1name", Me.txt7.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1mobile", Me.txt8.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2name", Me.Txt23.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2mobile", Me.Txt24.Text))
'مسئول نور'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelname", Me.txt9.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelmobile", Me.txt10.Text))

'معامل'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@sciencelabs", Me.txt25.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberoflabs", Me.txt11.Text))

cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1year", Me.Txt26.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1area", Me.Txt27.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices1num", Me.Txt28.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type1", Me.Txt42.Text))


cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2year", Me.Txt31.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2area", Me.Txt32.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices2num", Me.Txt33.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type2", Me.Txt33.Text))
'معلم الحاسب'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher", Me.txt12.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteachermobile", Me.txt13.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1", Me.txt14.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1mobile", Me.txt15.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2", Me.txt16.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2mobile", Me.txt17.Text))
'المصادر'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberofresources", Me.txt18.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesname", Me.txt19.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesmobile", Me.txt20.Text))
'الحارس'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1name", Me.txt21.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1phone", Me.txt22.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard2name", Me.Txt35.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard2phone", Me.Txt36.Text))




connection.Open()
cmdUpdStdStat1.ExecuteNonQuery()
connection.Close()


Me.lblResult.Text = "لقد تم حفظ البيانات بنجاح "
Me.lblResult.Visible = True

Catch ex As OleDbException
' Utilities.CreateMessageAlert(Me, "يوجد خطأ: اتصل بمسؤول البرنامج", "strkey")'
MsgBox(ex.Message)
connection.Close()
Exit Sub
End Try
End Sub[/HTML][/CODE
]

[/align] أرجو تفسير سبب حدوث هذا الخطأ بالرغم من تعريف جميع الحقول في كتابة الكود


اسباب ظهور رسالة الخطأ - Mr. DotNet - 10-11-12

صديقي عليك التأكد من عدد الحقول في قاعدة البيانات و عدد البراميترز المدخلة و عدد القيم المراد ادخالها الى فاعدة البيانات


اسباب ظهور رسالة الخطأ - فجر الغد - 11-11-12

السلام عليكم

بعد التأكد من عدد الحقول والباراميترات ظهرت
رسالة الخطأ ( خطأ في عبارة جملة updat )

فأرجو الإطلاع على الكود واكتشاف الخطأ حيث عجزت عن اكتشافة


PHP كود :
Dim UpdStudentState1 As String UpdStudentState1 "Update info0 set schoolname=@schoolname, schooladdress=@schooladdress, schoolphone=@schoolphone, schoolmobile=@schoolmobile, building=@building, buildingtype=@buildingtype, FloorsNum=@FloorsNum, Squares=@Squares, SquaresNum=@SquaresNum, managername=@managername, managermobile=@managermobile, assist1name=@assist1name, assist1mobile=@assist1mobile, assist2name=@assist2name, noorpersonnelname=@noorpersonnelname, noorpersonnelmobile=@noorpersonnelmobile, Science labs=@Science labs, numberoflabs=@numberoflabs, lab1year=@lab1year, lab1area=@lab1area, Devices1num=@Devices1num, Type1=@Type1, lab2year=@lab2year, lab2area=@lab2area, Devices2num=@Devices2num, Type2=@Type2, compteacher=@compteacher, compteachermobile=@compteachermobile, compteacher1=@compteacher1, compteacher1mobile=@compteacher1mobile, compteacher2=@compteacher2, compteacher2mobile=@compteacher2mobile, numberofresources=@numberofresources, resourcesname=@resourcesname, resourcesmobile=@resourcesmobile, guardname=@guardname, guardphone=@guardphone, guard1name=@guard1name, guard1phone=@guard1phone where schoolid= '" Me.lblPass.Text "'"
            
Dim cmdUpdStdStat1 As New OleDbCommand(UpdStudentState1connection)


            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolname"Me.txt1.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schooladdress"Me.txt2.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolphone"Me.txt3.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolmobile"Me.txt4.Text))
           
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@building"Me.Txt37.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@buildingtype"Me.Txt38.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@FloorsNum"Me.Txt39.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Squares"Me.Txt40.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@SquaresNum"Me.Txt41.Text))

            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managername"Me.txt5.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managermobile"Me.txt6.Text))
          
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1name"Me.txt7.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1mobile"Me.txt8.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2name"Me.Txt23.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2mobile"Me.Txt24.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelname"Me.txt9.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelmobile"Me.txt10.Text))

          
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Science labs"Me.txt25.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberoflabs"Me.txt11.Text))

            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1year"Me.Txt26.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1area"Me.Txt27.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices1num"Me.Txt28.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type1"Me.Txt42.Text))


            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2year"Me.Txt31.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2area"Me.Txt32.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices2num"Me.Txt33.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type2"Me.Txt43.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher"Me.txt12.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteachermobile"Me.txt13.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1"Me.txt14.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1mobile"Me.txt15.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2"Me.txt16.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2mobile"Me.txt17.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberofresources"Me.txt18.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesname"Me.txt19.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesmobile"Me.txt20.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guardname"Me.txt21.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guardphone"Me.txt22.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1name"Me.Txt35.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1phone"Me.Txt36.Text))




            
connection.Open()
            
cmdUpdStdStat1.ExecuteNonQuery()

            
Me.lblResult.Text "لقد تم حفظ البيانات بنجاح "
            
Me.lblResult.Visible True
            connection
.Close()
        Catch 
ex As OleDbException
            
' Utilities.CreateMessageAlert(Me, "يوجد خطأ: اتصل بمسؤول البرنامج", "strkey")'
            
MsgBox(ex.Message)
          
connection.Close() 

بارك الله فيكم


اسباب ظهور رسالة الخطأ - Mr. DotNet - 11-11-12

اخي في المثال الذي بعثته لك من فترة على الخاص هناك موجودة عملية Update صحيحة .. يرجى الاطلاع عليها وشوف ايش الخطأ عندك


اسباب ظهور رسالة الخطأ - فجر الغد - 11-11-12

المشكلة أنه تم تغيير على قاعدة البيانات حيث أنه أستخدمنا جدول واحد جمعنا فيه جميع الحقول المطلوبة وعند استخدامي لجملة update التي بعثتها لجدول واحد كما هو في الكود ايضا يظهر نفس المسج .


اسباب ظهور رسالة الخطأ - Mr. DotNet - 12-11-12

ارفق المثال


اسباب ظهور رسالة الخطأ - فجر الغد - 12-11-12

تم رفع ملف المشروع على الخاص


اسباب ظهور رسالة الخطأ - سعود - 13-11-12

الله يكون بعونكم ...بما انه تم التغيير بمصدر البيانات لما لا تنشيء جملة استعلام من الصفر ؟ قد يكون متعب لكن افضل.