如题?
with Oratable do begin
Close;
TableName:='';
Open;
with OraSQL do begin
if flag then begin
SQL.Text:='Insert Into tablename() Values()';
ParamByName......;
ParamByName......;
Execute;
end;
SQL.Text:='Update Tablename set... '+' where... ';
ParamByName......;
ParamByName......;
Execute;
end;
end;
end;
程序大概是如此的是不是有问题的?
with Oratable do begin
Close;
TableName:='';
Open;
with OraSQL do begin
if flag then begin
SQL.Text:='Insert Into tablename() Values()';
ParamByName......;
ParamByName......;
Execute;
end;
SQL.Text:='Update Tablename set... '+' where... ';
ParamByName......;
ParamByName......;
Execute;
end;
end;
end;
程序大概是如此的是不是有问题的?
OraSQL.close;
OraSQL.open;
ossession.StartTransaction;
try
......
ossession.Commit;
except
ossession.Rollback;
end;