Query no funciona... ¡A veces!

[Angel.Matilla]

Añado más cosas. Perdonad que lo haga así, pero según voy haciendo pruebas lo pngo. He probado a montar el código de otra manera.
Ejecuto un bucle para leer los datos de Auxiliar del tipo 1:
AnsiString cAux = "";

Query->Close();
Query->SQL->Text = "SELECT Valor FROM Auxiliar WHERE Tipo = 1 AND Usuario = :Usuario";
Query->ParamByName("Usuario")->AsString = NombreUser;
Query->Open();
for (; !Query->Eof; Query->Next())
     cAux = cAux + FormatFloat("0', '", Query->FieldByName("Valor")->AsInteger);
cAux = cAux.SubString(1, cAux.LastDelimiter(",") - 1);

Esto la hago para que me quede uan cadena del tipo

1, 2, 3, 4

que luego pondré en el query así:

Query->Close();
Query->SQL->Text = "SELECT * FROM Ls01 WHERE CodPrv = :CodPrv AND Junta IN (" + cAux + ") ORDER BY Apellidos, Nombre";
Query->ParamByName("CodPrv")->AsInteger = nCodPrv;
Query->Open();

¡Y así funciona perferctamente! Lo que pasa que no quisera usar este método porque puede crear verdaderas monstruosidades de código.

[Casimiro Noteví]

Hombre, yo aseguraría que el problema, como ya dije antes, es que no creas el mismo select o los mismos parámetros. Es pura lógica.

[Angel.Matilla]

Puedo garantizar que es el mismo query (parando la ejecución del prograna JUSTO antes del Open() y copiando el contenido del SQL->Text) y la misma base de datos (no hay otra en Firebird en ese disco).

[Casimiro Noteví]

Pero, Ángel, un mismo sql en una misma base de datos, es imposible que devuelva datos distintos.
Por muchas vueltas que quieras darle, no puede ser.

Salvo que la base de datos esté estropeada y se haya vuelta loca.

[Casimiro Noteví]

Ya digo, si quieres copia y pega aquí el sql y comprime la BD y la subes también.
Haremos pruebas y compararemos resultados.

[[Chris]]

Y si probás? :P
... A.Situacion IN (0, 1, 2, 3, 4) ...

Saludos!

[[Al González]]

Ángel:

1. ¿Después de hacer el Open, el conjunto de datos permanece abierto (en estado dsBrowse)? Cabe la posibilidad de que algo lo esté cerrando de inmediato y tú lo interpretes como que no trajo nada de la base de datos.

2. ¿Casualmente tiene algo en la propiedad Filter o en el evento OnFilterRecord? Puede que tenga establecido algo que filtre los registros que trajo de la base de datos, de tal forma que no queda ninguno disponible para ser leído.

3. Tal vez tú crees que le estás dando los "mismos" parámetros en tu programa que en IBManager, pero alguno de ellos podría ser diferente por algo que no ves a simple vista, quizá espacios en blanco al final de los campos / valores VarChar / String. Por cierto, ¿no estarás usando campos Char en lugar de VarChar para datos de longitud variable, o alguna opción de "trim" automático que se esté aplicando en un caso y no en el otro?

No dejes de informarnos.

Saludos.

[Angel.Matilla]

Empezado por Chris

Y si probás? :P
... A.Situacion IN (0, 1, 2, 3, 4) ...

Saludos!

Asi funciona perfectamente. Tendre que dejarlo con esas sintaxis, aunque no me guste mucho por lo grandes que pueden ser los querys.