xDESIG_CODE = THISFORM.DESIG_CODE.VALUE A = SQLEXEC(gnConnHandle,"DELETE FROM DESIGNATION WHERE DESIG_CODE = ?xDESIG_CODE") IF A = 1 WAIT WIND "Record Deleted." TIMEOUT 1 ELSE WAIT WIND "Record Could Not Be Deleted." TIMEOUT 1 ENDIFTHE ABOVE CODE DOES NOT WORK BUT IF I DO IT THE OTHER WAY IT IS WORKING
xDESIG_CODE = THISFORM.DESIG_CODE.VALUE sqlserv = "DELETE FROM DESIGNATION WHERE DESIG_CODE = " + ALLTRIM(STR(xDESIG_CODE)) A = SQLEXEC(gnConnHandle,sqlserv) IF A = 1 WAIT WIND "Record Deleted." TIMEOUT 1 ELSE WAIT WIND "Record Could Not Be Deleted." TIMEOUT 1 ENDIFIS SOMETHING WRONG IN MY 1ST CODE.