Error : field not found

[identsoft]

Hola a todos.
Estoy intentando obtener el valor de dos campos de una tabla y de un campo si obtengo pero del otro campo no. El error que da es "Error SqlVarios:Field AGENTE not found" . Los dos campos existen el la tabla ASEGURADOS y tiene valor.
Pongo código:

Código Delphi [-]
        SQLVarios.Close;
         SQLVarios.SQL.Clear;
         SQLVarios.SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
         SQLVarios.ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
         SQLVarios.Open;
         if SQLVarios.IsEmpty = False then
            begin
               fpago := SQLVarios.FieldByName('FORMA_COBRO').AsInteger;
               ag_aux := SQLVarios.FieldByName('AGENTE').AsInteger;  <-- El error lo da aquí
            end

Las dos variable están definidas de igual forma.Son Integer.
Siguiendo el debug, si antes de la asignación le pregunto por el valor del campo (SQLVarios.FieldByName('AGENTE').AsInteger) me lo da correctamente, no tira ningún error.

Utilizo del DBExpress y la bd es firebird. La tabla existe y los dos campos existen y definidos como integer.
Alguien tiene alguna idea de porque da este error?

Muchas gracias.

[Casimiro Notevi]

¿Qué componente es SQLVarios?
¿Qué base de datos estás usando?

El error está claro, pero mejor antes nos aclaras esas dudas.

EDITO: Estoy ciego, lo pones claramente

[Casimiro Notevi]

Seguramente ese componente va así:

Código Delphi [-]
fpago := SQLVarios.Fields[0].AsInteger;
ag_aux := SQLVarios.Fields[1].AsInteger;

O también así:

Código Delphi [-]
ag_aux := SQLVarios.Fields.FieldByName('agente').AsInteger;

[identsoft]

Casimiro:
poniendolo como tu dices, me tira otro tipo de error 'xxx' is not a valid integer value

[[duilioisola]]

Empezado por identsoft

Casimiro:
poniendolo como tu dices, me tira otro tipo de error 'xxx' is not a valid integer value

¿El error lo da en el mismo lugar o en otra línea?
Aparentemente etá recibiendo 'xxx' y tratan de convertirlo a entero y no puede.
Supongo que se trata de la línea donde carga el parámetro, en donde tienes StrToInt().

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

[ecfisa]

Hola identsoft.

Una consulta, ¿ Has creado campos persistentes en SQLVarios ?

Saludos

[identsoft]

No. Nada extraño, solo lo que puse

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

[identsoft]

Empezado por Casimiro Notevi

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

el que puso duilioisola en el foro:

Código Delphi [-]
with TSQLQuery.Create(nil) do 
begin 
  try 
    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; 
    end; 
  finally 
    Free; 
  end; 
end;

Y el error lo da en la linea del ParamByName('ICODIGO').....

[identsoft]

lo siento, no ha respetado los marcadores codigo delphi

[Casimiro Notevi]

Dime exactamente qué componentes estás usando y a qué paleta pertenecen, para hacer una prueba igual.

[identsoft]

Empezado por Casimiro Notevi

Dime exactamente qué componentes estás usando y a qué paleta pertenecen, para hacer una prueba igual.

El componente es un SQLQUERY de la paleta dbexpress.
Lo he utilizado muchas veces de la misma forma: buscar el contenido de un campo de una tabla. previamente un Close y un Clear. A continuacion en sql.Text pongo la select que busco ( a veces con parametros, otras sin parametros) y siempre a funcionado bien, excepto en este caso.
Tal como decia anteriormente, el problema lo tengo solucionado con otro componente(simplidataset, en la misma paleta), pero la cuestion es (si se puede) saber porque hace estas cosas, porque me genera dudas.

[Casimiro Notevi]

He hecho una prueba similar y no ha ocurrido ningún error.
Yo probaría a eliminar esos componentes, guardar, volver a crearlos y probar de nuevo. Vaya a haber algo raro que haya quedado.

[[movorack]]

Podría ser que el componente que usa tiene campos persistentes y al modificar la consulta por código agrega un campo que no está persistente y por eso genera el error.

Por eso te dije que copies el componente acá en el foro.

Como copiar un componente for dummies:
- Clic derecho del mouse sobre el componente. Edit > Copy
- Abres la página del navegador donde enviarás la respuesta
- En el cuadro de texto de la respuesta haces Clic derecho del mouse y seleccionas Pegar

Vas a obtener algo parecido a esto:

Código Delphi [-]
object SQLQuery1: TSQLQuery
  Params = <>
  Left = 240
  Top = 184
end