CONNECT USING SQLCA;
dw_1.SetTransObject(SQLCA)
rtncode=dw_1.Update(True,False)
If rtncode=1 then
INSERT INTO "hahaha"
("student",
"laiba")
values (:sle_3.text,
:sle_4.text);
dw_1.retrieve()
sle_3.text=""
sle_4.text=""
dw_1.update()
dw_1.retrieve()
commit using SQLCA;
else
ROLLBACK using sqlca;
end if