Error en Coalesce de un Parámetro tipo Int64

[[gluglu]]

Yo estoy utilizando Delphi 2007 y TIBDataSet.

No sé cómo hacer dicha operación con el IBExpert. Sí que puedo ver relaciones Maestro/Detalle y funcionan correctamente, pero no sé cómo poder relacionar un Query con la tabla correspondiente y así poder probar la sentencia SQL que indicaba anteriormente.

[Casimiro Notevi]

Si no hay forma de hacerlo como quieres, quizás pueda hacerse ejecutando desde tu programa el isql y que guarde el resultado en una tabla/fichero externo, luego desde tu programa lees ese fichero.
Desde luego que las pruebas que he hecho con ibdataset no funcionan, debe ser que internamente hacen uso de un int aunque se haya declarado el campo como bigint. A ver si a mediodía hago una prueba con TFIBDataSet, aunque si no lo usas tú, tampoco va a servir de nada.

[ecfisa]

Hola.

Para aportar mas datos, usando esta tabla:

Código SQL [-]
CREATE TABLE PRUEBA (
  CP_SMALLINT SMALLINT,
  CP_INTEGER INTEGER,
  CP_BIGINT BIGINT,
  CP_FLOAT FLOAT,
  CP_DOUBLEPRECISION DOUBLE PRECISION,
  CP_NUMERIC NUMERIC(15, 3),
  CP_DECIMAL DECIMAL(15, 3));

hice unas pruebas con TIBDataset, variando en la cláusula SELECT: CP_SMALLINT, CP_INTEGER, CP_BIGINT, CP_FLOAT, P_DOUBLEPRECISION, CP_NUMERIC y CP_DECIMAL.

Con el código:

Código Delphi [-]
  IBDataSet1.Close;
  IBDataSet1.SelectSQL.Clear;
  IBDataSet1.SelectSQL.Add('SELECT CP_SMALLINT FROM PRUEBA');
  IBDataSet1.SelectSQL.Add('WHERE :CLAVE IS NULL');
  IBDataSet1.Open;

En todos los casos obtuve el error: "Tipo de datos SQL desconocido (32766)", sin siquiera asignar valor al parámetro. Lo que me induce a pensar que esta forma de llamada es incorrecta.

Con el código:

Código Delphi [-]
  IBDataSet1.Close;
  IBDataSet1.SelectSQL.Clear;
  IBDataSet1.SelectSQL.Add('SELECT CP_SMALLINT FROM PRUEBA');
  IBDataSet1.SelectSQL.Add('WHERE Coalesce(:Clave, 0) = 0');
  ...
  IBDataSet1.Open;

Sin asignar valor al parámetro no arroja error en ningún caso. Asignando el valor que nos dió gluglu con cualquier tipo de entero, me dá el mismo error de overflow que a él.

Con el código:

Código Delphi [-]
  IBDataSet1.Close;
  IBDataSet1.SelectSQL.Clear;
  IBDataSet1.SelectSQL.Add('SELECT CP_SMALLINT FROM PRUEBA');
  IBDataSet1.SelectSQL.Add('WHERE CAST(:CLAVE AS SMALLINT) IS NULL');
  ...
  IBDataSet1.Open;

No obtuve error en ningún caso, asignando o no, valores al parámetro CLAVE.

Saludos.

[Casimiro Notevi]

A ver, me estoy liando, en todo esto que se está tratando, ¿qué es :clave ?, si es un parámetro, ¿cómo se está usando?

[ecfisa]

Eso entendí yo Antonio, al menos es el problema que comenta gluglu en el primer post.

[guillotmarc]

Hola.

Empezado por ecfisa

Código SQL [-]
IBDataSet1.Close;   
IBDataSet1.SelectSQL.Clear;   
IBDataSet1.SelectSQL.Add('SELECT CP_SMALLINT FROM PRUEBA');   
IBDataSet1.SelectSQL.Add('WHERE CAST(:CLAVE AS SMALLINT) IS NULL');   
...   
IBDataSet1.Open;

Esta consulta funciona perfectamente (las comparaciones con Null tienen este problema en los parámetros, el motor no sabe de que tipo es). ¿ Qué problema tienes con ella ?.

Saludos.

[ecfisa]

Hola guillotmarc.

A mi no me ofrece ningún problema, el tema viene de más atrás. Esa consulta que estás mencionando, es la que le sugerí a gluglu como solución al error que le provocaba esta:

Código SQL [-]
  Select Campo1 from Tabla1
  where :Clave is Null

y esta:

Código SQL [-]
  Select Campo1 from Tabla1
  where Coalesce(:Clave, 0) = 0

cuando el valor asignado al parámetro es el que menciona en el post que inició el hilo.

Lo que no estaba en claro era el por qué. Pero ahora se aclara con tu comentario:

(las comparaciones con Null tienen este problema en los parámetros, el motor no sabe de que tipo es)

Un saludo.

[[gluglu]]

Perdón, estaba un poco liado con un asunto y me perdí un poco del hilo.

Casimiro, 'Clave' es cualquier campo que quiero pasar a otro DataSet como parámetro para una nueva búsqueda. Creo que Ecfisa me entendió correctamente.

Se trata de que quiero realizar una búsqueda con un dato que viene de otra tabla diferente (DataSet diferente). Vamos, como si fuera un Maestro-Detalle. Al detalle, le debo pasar el parámetro 'Clave' (que puede ser cualquier campo que decidamos ...) al DataSet Detalle.

Por eso creo que Ecfisa lo ha probado correctamente, creando para ello una tabla que contenga todos los diferentes de tipos de datos que en una consulta posterior pasaremos como parámetros a una nueva consulta de 'Detalle'.

El problema es que ese parámetro que vamos a pasar al 'Detalle' puede ser Null ! ... y aquí es donde aparecen todos los problemas que estamos comentando.

Delphi parece ser que, como dice guillotmarc, no se aclara con el tipo de datos que se está pasando como parámetro al 'Detalle' en caso de que sea 'Null' dicho parámetro (que en este hilo hemos llamado 'Clave'). Lanza un error de Tipo de Datos desconocido.

Es por ello, como estamos comentando, que es necesario hacer un Cast de la manera adecuada. Inicialmente, yo no probé con el Cast, sino con la función Coalesce, para que el valor, en caso de que el parámetro fuera Null, devolviera 0. Pero vuelve a dar otro error, que es por lo que abrí el hilo, en caso de que el valor del parámetro a pasar, fuera un BigInt o en mi caso particular un dato de 12 cifras declarado como Decimal(12,0).

De aquí toda la problemática del hilo !

[Casimiro Notevi]

Supongo que con "when" ocurrirá igual que con "coalesce"

Código Delphi [-]
case when (expr1 is null) then expr2 else expr1 end

[[gluglu]]

El problema no es When o Coalesce, el problema es cuando hablamos de Parámetros ....

En tu consulta no has utilizado los campos como parámetros que se pasan de una consulta a otra.