Execute procedure

[pacogarcia]

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 [-]

// El texto de la sentencia SQL lo añades fuera del bucle.
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;
 ... // El resto de campos.
 Query.ExecSQL;
 ADOQuery.Next;
end;

Un saludo.