Error : field not found

[identsoft]

El error lo da en la misma linea.
Si pongo sqlVarios.fieldbyname('AGENTE').asinteger el error queda da "FIELD NOT FOUND"
Si pongo SqlVarios,Fields[0].asinteger el error que da es "'xxx' is not a valid integer value". Le Intenta asignar el valor de otro campo(direccion) de tipo string.
Es como si no reconociera el campo AGENTE. Pero lo he comprobado varias veces y existe, es integer y en otro form lo utilizo en un dbedit.
Expediente X.

[identsoft]

Si en vez de utilizar el sqlquery(sqlVarios) utilizo un SIMPLIDATASET la cosa funciona perfectamente.
La solución la tengo, pero esto me genera muchas dudas con el sqlquery.
Gracias a todos por vuestro tiempo y si alguien quiere o puede aportar algo más, estaremos atentos.
Un saludo

[[movorack]]

Hola!,

Solo para ver que pudo ser el fallo con el Query. ¿Puedes copiar el componente acá? (Copiar sobre el componente y pegar en el editor de texto del foro)

[identsoft]

Empezado por movorack

Hola!,

Solo para ver que pudo ser el fallo con el Query. ¿Puedes copiar el componente acá? (Copiar sobre el componente y pegar en el editor de texto del foro)

Explicame como lo hago. No lo he hecho nunca

[[duilioisola]]

Por el nombre del componente, diría que lo utilizas varias veces con SQLs distintos.
Prueba a crear otro componente para ese SQL. Puede que quede la estructura del SQL anterior en memoria y debas borrar los campos antes de seguir.
Prueba con algo como esto:

Código Delphi [-]
   // Creo componente
   with TSQLQuery.Create(nil) do
   begin
       // Me aseguro de liberarlo aunque falle
     try
         // Trabajo con el compoente
       Close;
       SQL.Clear;
       SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
       ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
       Open;
       if IsEmpty = False then
       begin
        fpago := FieldByName('FORMA_COBRO').AsInteger;
        ag_aux := FieldByName('AGENTE').AsInteger;  <-- El error lo da aquí
       end;
     finally
         // Libero componente
       Free;
     end;
   end;

[identsoft]

Empezado por duilioisola

Por el nombre del componente, diría que lo utilizas varias veces con SQLs distintos.
Prueba a crear otro componente para ese SQL. Puede que quede la estructura del SQL anterior en memoria y debas borrar los campos antes de seguir.
Prueba con algo como esto:

Código Delphi [-]
// Creo componente    
with TSQLQuery.Create(nil) do    
begin        
  // Me aseguro de liberarlo aunque falle        
  try            
  // Trabajo con el compoente            
    Close;            
    SQL.Clear;            
    SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';            
    ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);            
    Open;            
    if IsEmpty = False then            
    begin               
      fpago := FieldByName('FORMA_COBRO').AsInteger;               
      ag_aux := FieldByName('AGENTE').AsInteger;  <-- El error lo da aquí            
    end;        
  finally            
    // Libero componente            
    Free;        
  end;    
end;

Da error : "Parameter ICODIGO not found"

[Casimiro Notevi]

Empezado por identsoft

Da error : "Parameter ICODIGO not found"

Eso no puede ser.
¿Qué código estás usando?