اسباب ظهور رسالة الخطأ - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 اسباب ظهور رسالة الخطأ - 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 & "'" بارك الله فيكم اسباب ظهور رسالة الخطأ - Mr. DotNet - 11-11-12 اخي في المثال الذي بعثته لك من فترة على الخاص هناك موجودة عملية Update صحيحة .. يرجى الاطلاع عليها وشوف ايش الخطأ عندك اسباب ظهور رسالة الخطأ - فجر الغد - 11-11-12 المشكلة أنه تم تغيير على قاعدة البيانات حيث أنه أستخدمنا جدول واحد جمعنا فيه جميع الحقول المطلوبة وعند استخدامي لجملة update التي بعثتها لجدول واحد كما هو في الكود ايضا يظهر نفس المسج . اسباب ظهور رسالة الخطأ - Mr. DotNet - 12-11-12 ارفق المثال اسباب ظهور رسالة الخطأ - فجر الغد - 12-11-12 تم رفع ملف المشروع على الخاص اسباب ظهور رسالة الخطأ - سعود - 13-11-12 الله يكون بعونكم ...بما انه تم التغيير بمصدر البيانات لما لا تنشيء جملة استعلام من الصفر ؟ قد يكون متعب لكن افضل. |