[علي بنيان]

هذه جملة تعديل كبيرة جداً اتمنى تفيدك بشيء
بيها هواي تعديلات (TextBox,CheckBox) وغيرها

PHP كود :

Dim str As String
                    str = "update Section1 set [SaftyCheckName] ='" & TxtSaftyCheckName.Text & "',
                                  [SaftyCheckDate] ='" & TxtSaftyCheckDate.Text & "',
                                  [SaftyCheckDateLSA] =" & ChkSaftyCheckDateLSA.Checked & ",
                                  [SaftyCheckOpen] ='" & TxtSaftyCheckOpen.Text & "',
                                  [SaftyCheckQuality] =" & ChkSaftyCheckQuality.Checked & ",
                                  [ReasonREMOVALTAGFITTED] =" & ChkReasonREMOVALTAGFITTED.Checked & ",
                                  [ReasonREF] ='" & TxtReasonREF.Text & "',
                                  [ReasonFAILEDTOOPEN] =" & ChkReasonFAILEDTOOPEN.Checked & ",
                                  [ReasonFAILEDTOCLOSE] =" & ChkReasonFAILEDTOCLOSE.Checked & ",
                                  [ReasonTHROUGH] =" & ChkReasonTHROUGH.Checked & ",
                                  [ReasonEXTERNALLEAKAGE] =" & ChkReasonEXTERNALLEAKAGE.Checked & ",
                                  [ReasonDIFFICULTTOOPERATION] =" & ChkReasonDIFFICULTTOOPERATION.Checked & ",
                                  [ReasonEXTERNALCORROSION] =" & ChkReasonEXTERNALCORROSION.Checked & ",
                                  [ReasonLine] =" & ChkReasonLine.Checked & ",
                                  [ReasonValveSpec] =" & ChkReasonValveSpec.Checked & ",
                                  [ReasonNOTSPECIFIED] =" & ChkReasonNOTSPECIFIED.Checked & ",
                                  [ReasonOTHER] =" & ChkReasonOTHER.Checked & ",
                                  [ValveStatusNew] =" & ChkValveStatusNew.Checked & ",
                                  [ValveStatusUsedClean] =" & ChkValveStatusUsedClean.Checked & ",
                                  [ValveStatusUsedDirty] =" & ChkValveStatusUsedDirty.Checked & ",
                                  [ValveStatusPRESTRIPPED] =" & ChkValveStatusPRESTRIPPED.Checked & ",
                                  [ValveStatusREFURBISHED] =" & ChkValveStatusREFURBISHED.Checked & ",
                                  [ValveDetailsBALL] =" & ChkValveDetailsBALL.Checked & ",
                                  [ValveDetailsGATE] =" & ChkValveDetailsGATE.Checked & ",
                                  [ValveDetailsGLOBE] =" & ChkValveDetailsGLOBE.Checked & ",
                                  [ValveDetailsBUTTERFLY] =" & ChkValveDetailsBUTTERFLY.Checked & ",
                                  [ValveDetailsDOUBLEBB] =" & ChkValveDetailsDOUBLEBB.Checked & ",
                                  [ValveDetailsPLUG] =" & ChkValveDetailsPLUG.Checked & ",
                                  [ValveDetailsCHECK] =" & ChkValveDetailsCHECK.Checked & ",
                                  [ValveDetailsNEEDLE] =" & ChkValveDetailsNEEDLE.Checked & ",
                                  [ValveDetailsOTHER] ='" & TxtValveDetailsOTHER.Text & "',
                                  [ValveDetailsMANUFACTURER] ='" & TxtValveDetailsMANUFACTURER.Text & "',
                                  [ValveDetailsMANUFACTURERSTAG] =" & ChkValveDetailsMANUFACTURERSTAG.Checked & ",
                                  [ValveDetailsFIRESAFE] =" & ChkValveDetailsFIRESAFE.Checked & ",
                                  [ValveDetailsSIZE] ='" & TxtValveDetailsSIZE.Text & "',
                                  [ValveDetailsFB] =" & ChkValveDetailsFB.Checked & ",
                                  [ValveDetailsRB] =" & ChkValveDetailsRB.Checked & ",
                                  [ValveDetailsCLASS] ='" & TxtValveDetailsCLASS.Text & "',
                                  [ValveDetailsTYPEFIG] ='" & TxtValveDetailsTYPEFIG.Text & "',
                                  [ValveDetailsSERIALNO] ='" & TxtValveDetailsSERIALNO.Text & "',
                                  [ValveDetailsTAGNO] ='" & TxtValveDetailsTAGNO.Text & "',
                                  [ValveDetailsMODELNO] ='" & TxtValveDetailsMODELNO.Text & "',
                                  [ValveDetailsSERVICEFLUID] ='" & TxtValveDetailsSERVICEFLUID.Text & "',
                                  [ValveDetailsCETAGFITTED] =" & ChkValveDetailsCETAGFITTED.Checked & ",
                                  [ValveDetailsRAISEDFACE] =" & ChkValveDetailsRAISEDFACE.Checked & ",
                                  [ValveDetailsRINGGROOVE] =" & ChkValveDetailsRINGGROOVE.Checked & ",
                                  [ValveDetailsGRAYLOC] =" & ChkValveDetailsGRAYLOC.Checked & ",
                                  [ValveDetailsSCREWED] =" & ChkValveDetailsSCREWED.Checked & ",
                                  [ValveDetailsBUTT] =" & ChkValveDetailsBUTT.Checked & ",
                                  [ValveDetailsSOCKET] =" & ChkValveDetailsSOCKET.Checked & ",
                                  [ValveDetailsWECO] =" & ChkValveDetailsWECO.Checked & ",
                                  [ValveDetailsENDOTHER] ='" & TxtValveDetailsENDOTHER.Text & "',
                                  [ValveDetailsFLANGEALIGNMENT] ='" & TxtValveDetailsFLANGEALIGNMENT.Text & "',
                                  [ValveDetailsBODY] ='" & TxtValveDetailsBODY.Text & "',
                                  [ValveDetailsBONNET] ='" & TxtValveDetailsBONNET.Text & "',
                                  [ValveDetailsADAPTOR] ='" & TxtValveDetailsADAPTOR.Text & "',
                                  [ValveDetailsOBTURATOR] ='" & TxtValveDetailsOBTURATOR.Text & "',
                                  [ValveDetailsSEAT] ='" & TxtValveDetailsSEAT.Text & "',
                                  [ValveDetailsSTEM] ='" & TxtValveDetailsSTEM.Text & "',
                                  [ValveDetailsMeterOTHER] ='" & TxtValveDetailsMeterOTHER.Text & "',
                                  [ValveOperaterFITTED] =" & ChkValveOperaterFITTED.Checked & ",
                                  [ValveOperaterNOTFITTED] =" & ChkValveOperaterNOTFITTED.Checked & ",
                                  [ValveOperaterHANDLEVER] =" & ChkValveOperaterHANDLEVER.Checked & ",
                                  [ValveOperaterHANDWHEEL] =" & ChkValveOperaterHANDWHEEL.Checked & ",
                                  [ValveOperaterGEARBOX] =" & ChkValveOperaterGEARBOX.Checked & ",
                                  [ValveOperaterACTUATOR] =" & ChkValveOperaterACTUATOR.Checked & ",
                                  [ValveOperaterFAILOPEN] =" & ChkValveOperaterFAILOPEN.Checked & ",
                                  [ValveOperaterFAILCLOSE] =" & ChkValveOperaterFAILCLOSE.Checked & ",
                                  [ValveOperaterLOCKINGDEVICE] =" & ChkValveOperaterLOCKINGDEVICE.Checked & ",
                                  [ValveOperaterISASEPARATE] =" & ChkValveOperaterISASEPARATE.Checked & ",
                                  [ANYOTHERVALVEOPINFO] ='" & TxtANYOTHERVALVEOPINFO.Text & "',
                                  [ValveOperaterPREVIOUSUNIQUE] =" & ChkValveOperaterPREVIOUSUNIQUE.Checked & ",
                                  [ValveOperaterPRESTRIPDOWN] ='" & TxtValveOperaterPRESTRIPDOWN.Text & "',
                                  [VALVEOPERATINGCONDITIONS] ='" & TxtVALVEOPERATINGCONDITIONS.Text & "'
                                  where [ID] = " & CInt(TxtID.Text)




                    Dim cmd As OleDbCommand = New OleDbCommand(str, con)
                    MsgBox("Update Success")

                    Try

                        Validate()
                        DataAdapter.Update(DataSet1.Tables(0))
                        DataSet1.AcceptChanges()
                        cmd.ExecuteNonQuery()
                        cmd.Dispose()
                        DataAdapter.Fill(DataSet1, "Section1")
                        Me.BindingContext(DataSet1, "Section1").Position = CInt(TxtID.Text)
                        ' count()

                        con.Close()
                    Catch ex As Exception
                        con.Close()
                        MsgBox(ex.Message)
                    End Try 


---

هذه الصورة توضيحية