07/11/18 11:09:49
UpdateSQLがうまくいきません。以下のようなコードで実行すると、例外エラー'アップデート失敗'がでます。
propertyの設定は
cachedupdate true /requestlive true /updateobject updatesql
updatesqlのsql設定文もできてると思うんですが、、、
begin
database1.open;
database1.StartTransaction;
query1.Open;
end;
procedure TSDIAppForm.Button1Click(Sender: TObject);
begin
if query1.UpdatesPending then begin
query1.ApplyUpdates;
end;
database1.Commit;
query1.CommitUpdates;
query1.Close;
database1.Close;
end;
どこが間違ってるのでしょうか?教えてください
Turbo Delphi for wind32
OS : wind2000です。