Query no funciona... ¡A veces!

[Angel.Matilla]

Perdón; tenéis razón:

Código SQL [-]
Query->Close(); Query->SQL->Add("SELECT * FROM Ls01 A, Auxiliar C 
WHERE A.CodPrv = :CodPrv AND A.Situacion IN (0, 1, 2) AND A.Junta = C.Valor AND C.Tipo = 2
ORDER BY NomJun, Apellidos, Nombre, Referencia");
Query->ParamByName("CodPrv")->AsInteger = nCodPrv;
Query->Open();

Así está puesto en el programa. CodPrv es un entero sin signo y está bien definido (en este caso el valor es 45 porque es el código de Toledo) y Query es un TIBQuery asociado a la base de datos Firebird, lógicamente.

[Angel.Matilla]

Explico el proceso completo. Este query lo uso para generar unos listados y la consulta depende de las opciones que elige el usuario, pero la SELECT es la misma en todos los casos. Esa tabla Auxiliar la uso para guardar los valores que se escogen en el formulario (por ejemplo el código de población) y monto esto:

Query->Close();
Query->SQL->Text = "SELECT * FROM Ls01 A";

qAuxil->Close();
qAuxil->SQL->Text = "SELECT DISTINCT Tipo FROM Auxiliar WHERE Usuario = :Usuario";
qAuxil->ParamByName("Usuario")->AsString = NombreUser;                    
qAuxil->Open();
for (; !qAuxil->Eof; qAuxil->Next())
     Query->SQL->Text = Query->SQL->Text + ", Auxiliar " + CHAR(65 + fPersonas->qAuxil->FieldByName("Tipo")->AsInteger);

Query y qAuxil son sendos TIBQuery y en la tabla Auxiliar sólo se guardan dos tipos: 1 y 2. De esta forma, si hubiera valores de ambos tipos, el query sería por ejemplo:

SELECT * FROM Ls01 A, Auxiliar B, Auxiliar C
WHERE A.CodPrv= :CodPrv
AND B.Tipo = 1 AND B.Usuario = :Usuario AND A.Profesion = B.Valor
AND C.Tipo = 2 AND C.Usuario = :Usuario AND A.Junta = C.Valor

El programa se ejecuta sin errores; he probado todos los casos para la tabla Auxiliar: sin datos, sólo con un tipo de datos (bien 1 bien 2) y con ambos tipos. En todos los casos el query se monta bien, pero al ejecutarlo es como si la tabla Auxiliar se hubiera vaciado y no es así. En ningún punto del código se hace un DELETE sobre dicha tabla.

[Casimiro Noteví]

Creo que no se entiende lo que explicas, Angel.Matilla.
Por lógica, si tienes un select que unas veces trae unos datos y otras veces trae otros datos distintos, tan sólo tienes varias posibilidades:

- que no sea el mismo select
- que sea el mismo select, pero los parámetros sean distintos
- que sea el mismo select, y lo ejecutes en bases de datos distintas

No puede haber más opciones, o sea, no puedes ejecutar un select con unos parámetros en una misma base de datos y que te devuelva datos distintos. Lógicamente.

Deberías detener el programa justo antes de lanzar el query y mirar la sentencia completa en ambos casos, para ver si está formada correctamente.

La otra opción es que nos pases la BD y probemos nosotros

[Angel.Matilla]

Gracias prola respuesta Casimiro.

Empezado por Casimiro Notevi

Creo que no se entiende lo que explicas, Angel.Matilla.

Lo que he puesto es el código de cómo monto el query.

Empezado por Casimiro Notevi

Por lógica, si tienes un select que unas veces trae unos datos y otras veces trae otros datos distintos, tan sólo tienes varias posibilidades:

- que no sea el mismo select
- que sea el mismo select, pero los parámetros sean distintos
- que sea el mismo select, y lo ejecutes en bases de datos distintas

No puede haber más opciones, o sea, no puedes ejecutar un select con unos parámetros en una misma base de datos y que te devuelva datos distintos. Lógicamente.

Deberías detener el programa justo antes de lanzar el query y mirar la sentencia completa en ambos casos, para ver si está formada correctamente.

Ninguna de las tres opciones que das es correcta: es el mismo select con los mismos parámetros y la misma base de datos. No es que unas veces traiga resultados y otras no, es que dentro del programa no devuelve nada y en IBManager sí. Para comprobarlo paro la ejecución justo antes de hacer el open() y copio el contenido del query para ejecutarlo en IBManager.

Empezado por Casimiro Notevi

La otra opción es que nos pases la BD y probemos nosotros

No tengo inconveniente en pasarte el programa (está hecho en Builder 5) y la base de datos; dime como y dónde.

[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).