基本问题 如何将sqlserver的写操作 用在oracle中 （commit，rollback 怎么写)?

Question

strSql:='insert into users(username,Password) values （'aaa','1223'）);
if ExecQry(dmMain.qryTemp,strSql)
begin
  SHowMessage('新用户已经建立!');
end;其中自定义函数为：ExecQry（）如下：
function ExecQry(var qry: TADOQuery; strSQL: string): Boolean;
begin
  result := False;
  with qry do
  begin
    active := False;
    SQL.Clear;
    SQL.Add(strSQL);
    try
      ExecSQL;
      result := True;
    except
      on E: EDBEngineError do
      begin
        DBError(E, strSQL);
      end;
    end;
  end;
end;上面写法如何修改能在orale上适合？谢谢了

Answer 1

主要是SQL语句不同了，别的没有什么差别呀， 
自定义函数没有什么问题