Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Problema en consulta sql (https://www.clubdelphi.com/foros/showthread.php?t=81431)

jsc 14-11-2012 10:57:01

Problema en consulta sql
 
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:
Código:

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
Código:

edit1.text, edit2.text,edit3.tex,edit4.text
la consulta que lanzo al escribir cualquier caracter en cualquiera de los edit es lo siguiente
Código:


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:
Código:

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

llamada para cargar todos al cargar el Form1

Código:

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

si escribimos en edit1 jsc de tal manera que
Código:

edit1.text:= 'jsc'
lo que espero me devuelva la consulta son todos esos nombres que contengan JSC; es decir
Código:

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

Código:

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
Código:

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 14-11-2012 11:18:14

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 14-11-2012 11:57:25

Cita:

Empezado por ecfisa (Mensaje 449423)
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 14-11-2012 13:16:41

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 14-11-2012 13:53:54

Cita:

Empezado por olbeup (Mensaje 449427)
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:
Código:

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

y me devuelve
Código:

nombre direccion tlf1 tlf2
jsc1    direccion1
jsc2    direccion2

cuando yo lo que busco seria

Código:

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.
Código:

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:
Código:

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 14-11-2012 18:15:36

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 14-11-2012 21:20:07

Cita:

Empezado por Caro (Mensaje 449480)
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 15-11-2012 10:20:49

1 Archivos Adjunto(s)
gracias a todos los las ayudas pero no lo consigo
probe tambien lo que comentaba Caro pero tampoco me funciono
Código:

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 16-11-2012 09:22:08

1 Archivos Adjunto(s)
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:
Código:

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
Código:

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


La franja horaria es GMT +2. Ahora son las 21:14:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi