oracle

Question

delphi用bde,ado连接数据库
为什么程序执行的时候没有提交呢，程序关闭后才提交。
with DataM.saveQuery1 do
begin
  DatabaseName:=FDatabaseName1;
  Close;
  Sql.Clear;
  Sql.Add('update userorder set upnum=upnum+1 where usercode='+QuotedStr(Fusercode)+' and scode='+QuotedStr(Fscode));
  Execsql;//为什么没有提交呢
end;
怎样才能提交数据呢？

Answer 1

with DataM.saveQuery1 do
begin
  DatabaseName:=FDatabaseName1;
  DatabaseName.StartTransaction;///----------------------------------------
  Close;
  Sql.Clear;
  Sql.Add('update userorder set upnum=upnum+1 where usercode='+QuotedStr(Fusercode)+' and scode='+QuotedStr(Fscode));
  Execsql;//为什么没有提交呢
DatabaseName.commit;//----------------------------------------------
end;

Answer 2

sorrywith DataM.saveQuery1 do
begin
  DatabaseName:=FDatabaseName1;
  Database1.StartTransaction;///----------------------------------------
  Close;
  Sql.Clear;
  Sql.Add('update userorder set upnum=upnum+1 where usercode='+QuotedStr(Fusercode)+' and scode='+QuotedStr(Fscode));
  Execsql;//为什么没有提交呢
  Database1.commit;//----------------------------------------------
end;