Datenmodul:
uses
SysUtils, Classes, Dialogs, Messages,
DB, ADODB;
type
Tdm = class(TDataModule)
ADOConnection1: TADOConnection;
Hd: TADOTable;
{ ________________________ procedure Tdm.DataModuleCreate _____________________}
procedure Tdm.DataModuleCreate(Sender: TObject);
begin
dm.Hd.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False',['c:\JrBrHd.mdb']);
{ dm.Hd.DisableControls; }
end;
Function FINDE_HAND_MIT_HANDNR( HdNr : String ) : boolean;
begin
if not dm.Hd.Active then dm.Hd.Open;
result := False;
if dm.Hd.Locate('HdNr',(HdNr),[loPartialKey]) then
result := True;
end;
Procedure ZEITINTERVALLE_SPEICHERN;
var sWert, strIntv : String;
begin
if FINDE_HAND_MIT_HANDNR( 'G001' ) then
begin
…
dm.Hd.Edit;
dm.Hd['Info1'] := strIntv;
dm.Hd.Post;
end;
end;
Die Tabelle ist also nach Ausführung von FINDE_HAND_MIT_HANDNR geöffnet. Das Problem entsteht mit der Ausführung von dm.Hd.Post !
Auch bei gelöschtem Statement dm.Hd.DisableControls kommt die Fehlermeldung.
Und in der Delphi 10 / 32-Bit Version funktioniert es (ohne ConnectionString)
.
Gerkey