10-11-12, 07:45 PM
السلام عليكم ورحة الله وبركاته
عند تعبئة كامل الحقول في البرنامج والظغط على زر حفظ تظهر رسالة الخطأ التالية :
[/align] أرجو تفسير سبب حدوث هذا الخطأ بالرغم من تعريف جميع الحقول في كتابة الكود
عند تعبئة كامل الحقول في البرنامج والظغط على زر حفظ تظهر رسالة الخطأ التالية :
[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
] 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