Here is an example of how to do a table update with VBScript:
Public Function Update()
Dim adoCMD
Dim adoConn
Dim strSQL
'Define a query to Update a new record into the FE temp table
strSQL = "UPDATE [" & Me.FETempTableName & "]" & vbCrLf & _
"SET [partnumber] = ?," & vbCrLf & _
"[title] = ?," & vbCrLf & _
"[qtyper] = ?," & vbCrLf & _
"[oldqtyper] = ?," & vbCrLf & _
"[addpartrecordflg] = ?," & vbCrLf & _
"[doneflg] = ?" & vbCrLf & _
"WHERE [aid] = ?;"
Set adoConn = CreateObject(ADODB.Connection)
strCnxn="Provider='sqloledb';Data Source=SERVER_NAME;Integrated Security=SSPI;Initial Catalog=Northwind;"
adoConn.Open strCnxn
Set adoCMD = CreateObject(ADODB.Command)
With adoCMD
.ActiveConnection = adoCnn
.CommandType = adCmdText
.CommandText = strSQL
.Parameters.Append .CreateParameter("p1", adVarChar, adParamInput, 25, Me.partnumber)
.Parameters.Append .CreateParameter("p2", adVarChar, adParamInput, 50, Me.title)
.Parameters.Append .CreateParameter("p3", adSmallInt, adParamInput, 2, Me.qtyper)
.Parameters.Append .CreateParameter("p4", adSmallInt, adParamInput, 2, Me.oldqtyper)
.Parameters.Append .CreateParameter("p5", adBoolean, adParamInput, 2, Me.addpartrecordflg)
.Parameters.Append .CreateParameter("p6", adBoolean, adParamInput, 2, Me.doneflg)
.Parameters.Append .CreateParameter("p7", adInteger, adParamInput, 4, Me.aid)
Set adoRS = .Execute(lRecordsAffected)
End With
If lRecordsAffected = 0 Then
Update = False
Else
'Return a good return code
Update = True
End If
End Function
\_(ツ)_/
