OK after futher investigation the following works: -
config.properties command is set to the following
sql.ExecuteAll=SET IDENTITY_INSERT SWArchive ON;INSERT INTO SWArchive (id,DateArrived,collfrom,Registration,PartNumber,Colour,wheeltype,Strip,STRAIGHTENING,Start,Finish,initst,Comments,MachStart,machfinish,initmach,StructTest,qc,CUSTOMER,CUSTOMERID,COMPANY,COMPANYID,DateCreated,Completed,Username,primer,WheelDesc,wheelmake,WheelSize,Damaged,DateLeft,Orderno,Invoiced,networklocation,diskno,
dateworked,notes,wheeltypeid,repairtype,OffMonitor,OnMonitor,Monitor,tyrecharge,logisticcharge,tps) SELECT id,DateArrived,collfrom,Registration,PartNumber,Colour,wheeltype,Strip,STRAIGHTENING,Start,Finish,initst,Comments,MachStart,machfinish,initmach,StructTest,qc,CUSTOMER,
CUSTOMERID,COMPANY,COMPANYID,DateCreated,Completed,Username,primer,WheelDesc,wheelmake,WheelSize,Damaged,DateLeft,Orderno,Invoiced,networklocation,diskno,
dateworked,notes,wheeltypeid,repairtype,OffMonitor,OnMonitor,Monitor,tyrecharge,logisticcharge,tps from SWMain WHERE completed = 1;SET IDENTITY_INSERT SWArchive OFF
effectively concatenating the three commands into a single string then execute the following command
private Sub SetInsertOn
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("ExecuteAll", Null)
Dim j As HttpJob = req.ExecuteCommand(cmd, Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success = True Then
DeleteData
End If
End Sub
and voila it all works as it should.
Regards
David