我是这样写的:
string ls_sql
ls_sql = "insert into a1_test (varchar) values('" + em_1.text + "');"
messagebox("ls_sql",ls_sql)
EXECUTE IMMEDIATE :ls_sql USING sqlca;
messagebox(string(sqlca.sqlcode),sqlca.sqlerrtext)
if sqlca.sqlcode <> 0 then
rollback using sqlca;
else
commit using sqlca;
end if
可是提示缺少SQL语句