CDrawGroupYBYB YB CDrawRectYBYB  CMouseKey  !Dim connectionString, sqlStatment, objCon, tableName, J, data, numFields, fieldNames, sqlWHERE connectionString = $#connectionString:"" tableName = $#TableName:"" numFields = $#NumFields:1 fieldNames = $#FieldNames:"" sqlWHERE = $#sqlWHERE:"" sqlStatment = "UPDATE " sqlStatment = sqlStatment & "[" & tableName & "] SET " For J=0 To (numFields - 1) sqlStatment = sqlStatment & $StrGetElement(fieldNames, ",", J+1) & "=" If IsNumeric($#DataArrayTag:[J]) Then data = $#DataArrayTag:[J] Else data = "'" & $#DataArrayTag:[J] & "'" End If sqlStatment = sqlStatment & data If J < (numFields - 1) Then sqlStatment = sqlStatment & ", " Next sqlStatment = sqlStatment & " WHERE " & sqlWHERE Set objCon = CreateObject("ADODB.Connection") On Error Resume Next objCon.Open(connectionString) If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") Else objCon.Execute(sqlStatment) If err.number<>0 Then MsgBox $Ext("Error ") & err.number & ": " & err.Description, vbCritical, $Ext("Database Error") End If objCon.Close() On Error Goto 0 Set objCon = NothingDim connectionString, sqlStatment, objCon, tableName, J, data, numFields, fieldNames, sqlWHERE connectionString = "" tableName = "" numFields = 1 fieldNames = "" sqlWHERE = "" sqlStatment = "UPDATE " sqlStatment = sqlStatment & "[" & tableName & "] SET " For J=0 To (numFields - 1) sqlStatment = sqlStatment & StFunction1__(221, 3, fieldNames, ",", J+1) & "=" If IsNumeric(StGetTagVal__(-1, J, 0, 0, 0) ) Then data = StGetTagVal__(-1, J, 0, 0, 0) Else data = "'" & StGetTagVal__(-1, J, 0, 0, 0) & "'" End If sqlStatment = sqlStatment & data If J < (numFields - 1) Then sqlStatment = sqlStatment & ", " Next sqlStatment = sqlStatment & " WHERE " & sqlWHERE Set objCon = CreateObject("ADODB.Connection") On Error Resume Next objCon.Open(connectionString) If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") Else objCon.Execute(sqlStatment) If err.number<>0 Then MsgBox StFunction1__(31, 1, "Error ") & err.number & ": " & err.Description, vbCritical, StFunction1__(31, 1, "Database Error") End If objCon.Close() On Error Goto 0 Set objCon = Nothing #Disable:0 35Disable:0 Arial CDrawBitmap`x:`x:   (  upb<3%4)4)5, MD8obQ>5*4)*!k`OH<+N?,gк]L8 *"|iKۻŤβϳƥ۽d%|r_snc%ÝpֲۻŤβϳƥ۽ֳĠs>/|q\2&qIѩyֲۻŤβϳƥ۽ֳѫ{ǝj ƜhѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤβϳƥ۽ֳѫ{͢m ̡kѩyֲۻŤŸֵѪzϥrЧuŽNŽNɚaϥrΣoձٹĢ۽ֳѫ{͢m ̡kѩyҬ~̠kŔVĐQ̡kӮڼƥϳֳϧtŔXÐQʝeϦuѫ{͢m ̠jɚaĐRШwдղƖZƕXˠi œVΦs۽ŔV ̡kսսսսսսսսսսսսսսսսսսսսڼ ̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯̯ ${ááááááááááááááááááááá llaM<(ںںںںںںںںںںںںںںںںںںںںlOD:*OI<YE,ǤzձձձձձձձձձձձձձձձձձyaB:0!cbW ^H,VϧuШwШwШwШwШwШwШwШwШwШwШw`pV6%HB5^]U# P<#cK-{^9qFtJtJrFg>cK-]E(  LKBhmiYVLD@6.*#/'/'.)!95-ZUH]a^ CDrawSymbolm~5m~5 m~5 CDrawPolym~5m~5  ~%~/r/r5m*rr%~%~/r/r5m*rr%@@ {#Label:"UPDATE"} Arial