The following code using the Community version of Delphi and Interbase 2020 running on a Windows 10 machine results in the following error when the Commit is executed. What am I doing wrong?
Project FamilyTree.exe raised exception class $C0000005 with message ‘access violation at 0x00481a6f: read of address 0x8b57569f’.
procedure writepreamble;
var
sqltext : string;
basicaction : tbasicaction;
begin
sqltext := 'insert into preambleds(preambleseq,text) values(';
sqltext := sqltext+inttostr(preambleseq)+','+quotedstr(cardimage)+');';
datamodule1.IBSQL1.SQL.text := sqltext;
datamodule1.geddb.DefaultTransaction := datamodule1.IBTransaction1;
datamodule1.IBsql1.Transaction := datamodule1.IBTransaction1;
datamodule1.IBsql1.Transaction.StartTransaction;
datamodule1.ibsql1.ExecuteAction(basicaction) ;
datamodule1.IBsql1.Transaction.Commit;
sqlcount := sqlcount+1;
end;
basicaction
doesn't appear to be initialised. Is that intended? – David Heffernan Nov 27 '20 at 12:40sqltext := sqltext+inttostr(preambleseq)
- it is way to easy to screw data types. See bobby-tables.com and see github.com/petdance/bobby-tables/issues/98 – Arioch 'The Nov 27 '20 at 12:42datamodule1.ibsql1.ExecuteAction(basicaction);
, and my bet is that it's becaused you declaredtbasicaction
but never initialized it before using it. – Ken White Nov 27 '20 at 14:03