Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 2.05 » View Incident Report |
Serious |
Reported By: Helmut Woss Reported On: 11/22/2000 For: Version 2.04 Build 1 |
procedure TForm1.FormCreate(Sender: TObject); begin q1.Close; q1.Prepare; end; procedure TForm1.bstartClick(Sender: TObject); var x: integer; begin for x := 1 to 2 do begin label1.Caption := 'start insert, x = ' + IntToStr(x); label1.update; tbl1.Insert; tbl1.FieldByName('wert').AsInteger := 1; tbl1.Post; label1.Caption := 'post okay, x = ' + IntToStr(x); label1.update; end; end; procedure TForm1.tbl1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin if Pos('9729',E.message) = 0 then Exit; q1.ParamByName('wert').AsInteger := 1; q1.ExecSql; Action := daRetry; label1.Caption := 'retry post ...'; label1.update; end; end.
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |