Query no funciona... ¡A veces!

[Angel.Matilla]

En un programa con C++ Builder 5 tengo este query en un base de datos Firebird:

Código SQL [-]
SELECT * FROM Ls01 A, Auxiliar C 
WHERE A.CodPrv = 45 AND A.Situacion IN (0, 1, 2) AND A.Junta = C.Valor AND C.Tipo = 2 
ORDER BY NomJun, Apellidos, Nombre, Referencia

Si lo ejecuto dentro de un programa no me da ningún resultado; sin embargo, si lo pruebo en IBManager EXACTAMENTE con las mismas tablas si me saca filas, que por otra parte es el resultado lógico y por más vueltas que estoy dando no soy capaz de encontrar la razón ¿Alguna idea y/o ayuda? Ls01 es una vista sobre varias tablas y Auxiliar es una tabla sin índices.

[Casimiro Notevi]

Que lo estás ejecutando en bases de datos distintas

[[duilioisola]]

O te has olvidado de hacer el Open del Query...

Muestra el código que utilizas para ejecutar el SQL, que no somos adivinos...

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

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.