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