hola de Nuevo.
Creo que el problema lo tienes porque pones dentro del bucle el
Código Delphi
[-]
query.sql.Add('execute procedure importar( :numero, :fecha,:lectura,:consumo)');
Deberia quedar mas o menos asi:
Código Delphi
[-]
query.sql.Add('execute procedure importar( :numero, :fecha,:lectura,:consumo)');
while not ADOQuery.eof do
begin
Query.ParamByName('numero').AsString := ADOquery.fieldbyname('contador').Text;
Query.ParamByName('fecha').AsDateTime := ADOquery.Fieldbynem('fecha').asdatetime;
... Query.ExecSQL;
ADOQuery.Next;
end;
Un saludo.