
Code: Select all
dbConnect
put getDbID() into tDatabaseID
put "UPDATE subjects SET email='" & vemail & "', birthdate='" & vdate & "', height='" & vheight & "', weight='" & vweight & "', firstname='" & vfname & "', lastname='" & vlname & "', distributor='" & vdistnum & "', gender='" & vgender & "', smoker='" & vsmoker & "', fruitserving='" & vfruits & "', vegeserving='" & vvege & "' WHERE email='" & gEmail & "'" into tSQL
revExecuteSQL tDatabaseID, tSQL
answer the result -- {attempt to write on read-only database}
