Consulta en Cero si no se encuentra datos

[ingabraham]

Hola.
DELPHI E INTERBASE 6.0
Realizo mi consulta y la muestro en un dbgrid

Código SQL [-]
select cedula,valor from nomina where concepto='hora extra' and cedula='782538';

ok
Yo quiero lo siguiente que si no encuentra el valor de la hora extra me muestre un cero.

alguna idea de como hacerlo, por q me deja la casilla en blanco.
gracias

[Neftali [Germán.Estévez]]

¿Qué base de datos estás utilizando?
Se puede usar la clausula IF en la SQL, pero varía segun el SGBD.

[ingabraham]

Empezado por Neftali

¿Qué base de datos estás utilizando?
Se puede usar la clausula IF en la SQL, pero varía segun el SGBD.

Nada no se puede utilizo interbase 6.0

[ContraVeneno]

Podrías utilizar los métodos "isEmpty" o "isNull" de tu dataset...

[ingabraham]

Empezado por ContraVeneno

Podrías utilizar los métodos "isEmpty" o "isNull" de tu dataset...

Disculpa pero no puedo por que muestro los datos de todos mis empleados en el dbgrid no de uno solo
ej:
ced valor
xxx xxx
yyy yyy
zzz zzz

[[egostar]]

Empezado por ingabraham

Disculpa pero no puedo por que muestro los datos de todos mis empleados en el dbgrid no de uno solo
ej:
ced valor
xxx xxx
yyy yyy
zzz zzz

Hola

Tal vez puedes utilizar la funcion COALESCE

Salud OS

[ingabraham]

Empezado por egostar

Hola

Tal vez puedes utilizar la funcion COALESCE

Salud OS

Function unknow

no me reconoce la funcion en interbase 6.0

[[egostar]]

Empezado por ingabraham

Function unknow

no me reconoce la funcion en interbase 6.0

Parece ser que esa función está disponible a partir de Interbase 7.0

Salud OS

[*Caro*]

Empezado por ingabraham

Function unknow

no me reconoce la funcion en interbase 6.0

Entonces tendras que usar el evento OnGetText de tu campo Valor.

Código Delphi [-]
procedure TForm1.Query1ValorGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Sender.AsString = '' then
   Text := '0'
  else
   Text := Sender.AsString;
end;

Saluditos

[ingabraham]

Empezado por Caro

Entonces tendras que usar el evento OnGetText de tu campo Valor.


Código Delphi [-]
procedure TForm1.Query1ValorGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.AsString = '' then
Text := '0'
else
Text := Sender.AsString;
end;





Saluditos

Disculpa pero no utilizo dataset y mis (dbgrid-datasourse-querys) los utilizo para realizar varias consultas independientes.
gracias por la ayuda pero no podria utilizar ese codigo.

[pcicom]

Código SQL [-]

SELECT '782538' AS cedula,(case WHEN valor<>NULL THEN valor ELSE 0 END)  AS valorSinNulo FROM nomina where concepto='hora extra' and cedula='782538';

Lo que tendrias que hacer es crear el comando SQL segun los campos que necesites..

Código Delphi [-]

cCedula := '782538';
cConcepto := 'hora extra';

cSql := 'SELECT' + QuotedStr(cCedula) + ' as cedula, (case WHEN valor<>NULL THEN valor ELSE 0 END)  AS valorSinNulo FROM nomina where concepto=' + QuotedStr(cConcepto)+' and cedula='+QuotedStr(cCedula);

qry.clear;
qry.add(cSql);
qry.open;

[ingabraham]

discupla pero el case no es aceptado en interbase

[xander]

lo unico que podrias hacer en IB6 sería una UDF que te devolviera el valor que necesitas dada la condición... es decir implementar una funcion similar al IIF via una UDF... revisa en google debe haber alguna implementación por ahí ya hecha por algún ruso sin novia.

Saludos

[Kipow]

proba con

Código SQL [-]
select cedula,ABS(valor) 
from nomina 
where concepto='hora extra' and cedula='782538';

asi lo hacia yo hasta que migre a firebird 2.1 y me entere de la funcion COALESCE.

Saludos.

[[Delphius]]

Empezado por xander

revisa en google debe haber alguna implementación por ahí ya hecha por algún ruso sin novia.

Saludos

Disculpame xander, pero no sabía que los informáticos rusos no tenían novia. Suena un tanto despectiva tu frase.

Te felicito a ti por tener alguien a tu lado.

Empezado por Kipow

proba con

Código SQL [-]select cedula,ABS(valor) from nomina where concepto='hora extra' and cedula='782538';


asi lo hacia yo hasta que migre a firebird 2.1 y me entere de la funcion COALESCE.

Saludos.

Nomás aclaro que COALESCE existe desde Firebird 1.5

Saludos,