Problema en consulta sql

[jsc]

Hola,
Tengo problemas con una consulta sql que lanzo desde delphi a una bd access (en si la consulta si la lanzo desde acces tambien da el mismo problema asi que no es problema de delphi)
Los datos en access estan importados de una hoja excell. La hoja excell, no tiene en todas las columnas datos, asi que podemos encontrar en alguna columna blancos - ahí el problema
La cosa, es que no se de que manera puedo tratar esos blancos ya que he probado de todo
En acces todos los campos estan definidos como texto: el campo tlf2 de algun registro contiene texto...
Supongamos que la hoja excell tiene:

NOMBRE  DIRECCION TELEF1 TELEF2
jsc1       direccion1   tlf1  tlf2
jsc2       direccion2   tlf2
nombre3 direccion3   tlf3
...

en delphi, tengo una etiqueta por campo(nombre,direccion,tlf1,tlf2) de manera que la busqueda la pueda hacer concatenando parametros con los valores de

edit1.text, edit2.text,edit3.tex,edit4.text

la consulta que lanzo al escribir cualquier caracter en cualquiera de los edit es lo siguiente

procedure buscar(s:string);
begin
   with form1 do
      with form1.Query1 do
         TRY
         Close ;
         SQL.clear ;
         Params.Clear ;
         sql.add ('SELECT * FROM TABLA') ;
         if s<>'todos'
         then
            begin
               sql.add (' where NOMBRE like :nomb AND DIRECCION like :direc AND TELEF1 like :tlf1 AND TELEF2 like :tlf2');
               parambyname ('nomb').asstring := '%'+edit1.Text+'%' ;
               parambyname ('direc').asstring := '%'+edit2.text+'%';
               parambyname ('tlf1').asstring := '%'+edit3.text+'%';
               parambyname ('tlf2').asstring := '%'+edit5.text+'%'
            end;
         IF not prepared
         then
            begin
               close ;
               prepare;
               open;
            end
         else open ;
         EXCEPT MessageDlg ('Errores en la consulta',mtWarning,[mbOK],0);
         END;
end;

llamada:

procedure Tform1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   buscar ('param') ;
end;

llamada para cargar todos al cargar el Form1

procedure Tform1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   buscar ('todos') ;
end;

si escribimos en edit1 jsc de tal manera que

edit1.text:= 'jsc'

lo que espero me devuelva la consulta son todos esos nombres que contengan JSC; es decir

NOMBRE  DIRECCION TLF1 TLF2
jsc1       direccion1   tlf1  tlf2
jsc2       direccion2   tlf2

en cambio el resultado es bien distinto ya que el tlf2 que estaria en blanco no lo devuelve

NOMBRE  DIRECCION TLF1 TLF2
jsc1       direccion1   tlf1  tlf2

he cambiado el campo tlf2 de texto a numero en access por hacer la prueba pero el resultado es el mismo
pienso que el problema esta en la tabla excell y en esos campos en blanco. Tendria manera de saber esos blancos realmente que valor almacenan para poder tratarlos en una consulta?
o lamentablemente, a esos valores en blanco tendria que asignarles un valor en excell? por ejemplo "0"?
lo he probado asi y si que funciona la consulta; el problema es que son alrededor de 30.000 registros y es un problema si no se el valor que almacena como blanco para poder hacer un

UPDATE...

sobre el campo en cuestion

Siento la chapa; he intentado detallar el problema lo maximo posible por si alguien pudiera ayudarme

gracias de antemano

[ecfisa]

Hola jsc.

Si buscas que muestre resultados cuando encuentre una ocurrencia al menos en uno de los campos, proba de este modo:

Código SQL [-]
WHERE NOMBRE LIKE :nomb OR DIRECCION LIKE :direc OR TELEF1 LIKE :tlf1 OR TELEF2 LIKE :tlf2

Saludos.

[jsc]

Empezado por ecfisa

Hola jsc.

Si buscas que muestre resultados cuando encuentre una ocurrencia al menos en uno de los campos, proba de este modo:

Código SQL [-]
WHERE NOMBRE LIKE :nomb OR DIRECCION LIKE :direc OR TELEF1 LIKE :tlf1 OR TELEF2 LIKE :tlf2

Saludos.

gracias por la molestia ecfisa pero no da los resultados esperados

lo he solucionado como me temia;
he editado el fichero excell y usando reemplazar en todas las columnas; he sustituido las celdas que contengan solo blanco por un 0.
de esta manera funciona; la cuestion es que me interesa no tener que hacer este proceso ya que con otros datos que importo tambien desde excell me ocurriria lo mismo y se puede convertir en una perdida de tiempo interesante el tener que adaptar el fichero excell y demas.
alguna idea?

PD.
a la hora de pasar los datos de excell a acess me ha pasado que haciendo un simple copiar pegar no me ha funcionado bien. hay datos que no los pasaba correctamente; quiza por el volumen de datos no se.
haciendo importar datos externos y siguiendo el asistente, todo correcto

[olbeup]

Cual son los resultados no esperado, cual es la SQL que has escrito, los que dice ecfisa es correcto y no debes de tener ningún problema.

Da igual que el campo este en blanco o incluso sea nulo, cuando se cumpla uno de los OR te lo va a mostrar.

Un saludo

[jsc]

Empezado por olbeup

Cual son los resultados no esperado, cual es la SQL que has escrito, los que dice ecfisa es correcto y no debes de tener ningún problema.

Da igual que el campo este en blanco o incluso sea nulo, cuando se cumpla uno de los OR te lo va a mostrar.

Un saludo

disculpad,
quiza no me explique del todo bien
probe lo que comentaba ecfisa y me funciono bien pero solo si encontraba una coincidencia. si hay varias coincidencias no me devuelve bien el resultado.
en el ejemplo que puse arriba:

edit1.text := '%jsc%' //valor de nombre
edit2.text := '%1%'//valor de direccion

y me devuelve

nombre direccion tlf1 tlf2
jsc1     direccion1
jsc2     direccion2

cuando yo lo que busco seria

nombre direccion tlf1 tlf2
jsc1     direccion1

yo lo que busco es que la consulta la haga en base a los parametros que se le pasa.

sql.add ('SELECT * FROM TABLA') ;
if s<>'todos'
  then
     begin
        sql.add (' where NOMBRE like :nomb AND DIRECCION like :direc AND TELEF1 like :tlf1 AND TELEF2 like :tlf2');
        parambyname ('nomb').asstring := '%'+edit1.Text+'%' ;
        parambyname ('direc').asstring := '%'+edit2.text+'%';
        parambyname ('tlf1').asstring := '%'+edit3.text+'%';
        parambyname ('tlf2').asstring := '%'+edit5.text+'%'

si edit1 (nombre) contiene datos, el valor de (l'nomb') sera edit1.text
si edit2 no contiene datos, entonces, el valor de ('direct') tendria que ser todo;
para ello se me ocurre hacerlo como en el ejemplo y pasar al parametro ('direc') que contenga cualquier valor
y con el resto de los edit lo mismo

sino otra alternativa que se me ocurre puede ser algo asi:

query1.sql.add ('SELECT * FROM TABLA')

if edit1.text <> '' 
then 
   begin
      parambyname('nomb').asstring := edit1.text
      sql.add (' and NOMBRE like :nomb)
   end;
if edit2.text <>''
then
...

de la manera que intento hacerlo, el codigo es menor y mas visual para resolver posibles errores futuros
busco una consulta concatenando varios parametros

se me ocurrio hacerlo de esta manera quiza no es la correcta?aunque si reemplazo como digo los blancos por algun texto funciona perfecto

[*Caro*]

Hola jsc, hice una prueba con la función Nz pero solo funciona desde Access, hice la prueba también con la función "IIF", al parecer también funciona si es que entendido bien lo que preguntas, has la prueba y nos cuentas.

Código SQL [-]
//tienes que acomodarlo a tu consulta, pero esa es la idea
SELECT *
FROM tabla
WHERE nombre like '%param%' and ..... and IIF(ISNULL(telef1 like '%param%'),'',telef1).....

Saluditos

[jsc]

Empezado por Caro

Hola jsc, hice una prueba con la función Nz pero solo funciona desde Access, hice la prueba también con la función "IIF", al parecer también funciona si es que entendido bien lo que preguntas, has la prueba y nos cuentas.

Código SQL [-]
//tienes que acomodarlo a tu consulta, pero esa es la idea
SELECT *
FROM tabla
WHERE nombre like '%param%' and ..... and IIF(ISNULL(telef1 like '%param%'),'',telef1).....

Saluditos

Muchas gracias Caro
Lo pruebo y comento resultados

[jsc]

gracias a todos los las ayudas pero no lo consigo
probe tambien lo que comentaba Caro pero tampoco me funciono

sql.add (' where IIF(ISNull(NOMBRE like :nomb),NOMBRE,'+chr(39)+chr(39)+') AND'+
   ' IIF(IsNull(DIRECCION like :direc),DIRECCION,'+chr(39)+chr(39)+') AND'+
   ' IIF(IsNull(TELEF1 like :tlf1),TELEF1,'+chr(39)+chr(39)+') AND'+
   ' IIF(IsNull(TELEF2 like :tlf2),TELEF2,'+chr(39)+chr(39)+')');
parambyname ('nomb').asstring := '%'+edit1.Text+'%' ;
parambyname ('direc').asstring := '%'+edit2.text+'%';
parambyname ('tlf1').asstring := '%'+edit3.text+'%';
parambyname ('tlf2').asstring := '%'+edit4.text+'%'

sinceramente no lo entiendo e insisto en que creo que es un problema de como access puede guardar los datos cuando algun campo es actualizado a un valor Null o incluso si ya viene con ese valor

pongo un programita donde vereis lo que quiero y como lo hago
quiza no lo este haciendo bien y aqui podreis ver mas en detalle el tema

gracias nuevamente

[jsc]

Hola de nuevo,
aburrido de probar con la funcion IIF... algo se acercaba a lo que pretendia pero no daba con el correcto funcionamiento

cambie de metodo y consegui lo que me pretendia
en un principio pense que todo esto seria mas facil; en fin de todo se aprende
dejo el codigo y el programa de como a mi me ha funcionado por si a alguien le ocurre lo mismo
PROPOSITO: lanzar una consulta con los parametros que haya en 1,2,3... los edit que sean
solucionado si el campo es Null... devuelve las coincidencias de los edit

gracias a los que se interesaron por mi consulta;

codigo de la funcion:

function fAsigParamconsul (str:string):string;
var i,j:integer;
    camp,crit:string ;
begin
   with form1 do
   begin
      j:= 0 ;
      FOR i:=1 to 4 DO
      begin
         CASE i OF
            1: camp:= 'NOMBRE';
            2: camp:= 'DIRECCION';
            3: camp:= 'TELEF1';
            4: camp:= 'TELEF2';
         END;{FIN case}
      IF TEdit(Findcomponent('Edit'+inttostr(i))).Text <> ''
      then
         begin
            CASE j OF
               0: crit:='WHERE' ;
               1: crit:='AND' ;
            END;{FIN case}
         {SELECT * FROM TABLA WHERE CAMPO LIKE param}
         str := str+' '+crit+' '+camp+' LIKE '+chr(39)+'%'+TEdit(FindComponent('Edit'+inttostr(i))).Text+'%'+chr(39);
         j:= 1 ;
         end{FIN then TEdit <> ''}
//      else j:= 0 ;{ELSE TEdit <> ''}
      end;{FIN bucle FOR}
      Result := str ;
   end;{FIN with frm}
end;

llamada a la funcion

strconsul:=fAsigParamConsul ('SELECT * FROM TABLA1')