procedure Scrivi; // con eccezione
begin
with ADOQUERY do begin
with SQL do begin
clear;
add('INSERT INTO RICHI00F');
add('(DGMAP)');
add('VALUES(:DGMAP)');
end;
Parameters.ParamByName('DGMAP').value:=VALORE+' ';
try
EXECSQL;
except
end;
end;
end;
end;
procedure Scrivi; // senza eccezione
begin
with ADOTABLE do begin
close;
TableName:='RICHI00F';
open;
insert;
FieldByName('DGMAP').AsString:=VALORE+' ';
post;
close;
end;
end;
Alla fine il risultato e' stato raggiunto ma mi rode non comprendere il
motivo di tale comportamento.
Grazie per l'attenzione e per le eventuali vostre risposte.
Max