[فجر الغد]

السلام عليكم

بعد التأكد من عدد الحقول والباراميترات ظهرت
رسالة الخطأ ( خطأ في عبارة جملة 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(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("@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() 


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