🚀 go-pugleaf

No, I'm not using that type of construct in this case.

I'm just copying values from a field in one DB to the identical field in
another DB.

For what it's worth I've appended the routine below.

Note  that this error messsage does not appear when the program is run.

Alan

----------
> From: Martin Ziemer <MZiemer@ferrocontrol.de>
> Newsgroups: borland.public.delphi.database;
comp.lang.pascal.delphi.databases
> Subject: Re: Access Violation using MSACCESS
> Date: Sunday, August 16, 1998 3:19 PM
> 
> Alan Buckle wrote:
> 
> > However after processing in excess of 18,000 records (18408 to be
exact,
> > not counting 'child' records ) I get
> > Access Violation at Address 4E5FA1F6 in module 'IDDAO32.DLL'.
> > I'm tearing my few remaining hairs out at this stage. Does anyone have
any
> > ideas ??
> 
> May be. Do You use SQL-constructs like "insert into ... values
> ('+MyString+...')'"? I got such an exception if there was a ":"
> somewhere in MyString! I think the reason is that MSACCESS tries a
> parameter substitution. It's generally more reliable if you use
> TQuery.Params[] for such purposes.
> 
> Bye,
>   Martin
> 


procedure TfrmLoadUpdates.CopyThisRecord (TblSlave :TDataSet; TblMaster :
TDataset);
{
 This Routine copies data from TblSlave to TblMaster on a Field by Field
Basis.
 AutoIncrementing fields are ignored.
}
Var
   i : Integer;
   M : String;
   ThisField : ShortString;
begin
     With TblSlave do begin
          For i := 0 to FieldCount -1 do begin
              ThisField := Fields[i].FieldName;
              If (Fields[i].Datatype <> ftAutoInc) then try
                 TblMaster.FieldByName(ThisField).value :=
TblSlave.Fields[i].value;
              except
                 M := 'ERROR - Failed to Update Field ' + ThisField + ' in
' + TblMaster.Name;
                 M := M + ' This Master and Slave databases may have
differing Field Names or Sizes';
                 beep; beep; beep;
                 ShowMessage ( M);
                 AbortMe := True;
                 exit;
              end;
           end; {for i}
     end; {With }

end;