Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-08-2006
Avatar de edelphi
edelphi edelphi is offline
Miembro
 
Registrado: jun 2006
Posts: 55
Poder: 18
edelphi Va por buen camino
Consulta select con %

bueno holas a todos los foristas mi duda es la siguiente:

en un query pongo esta consulta y me funciona muy bien, pero lo que deseo es poner el "%" despues del like para que me hag una consulta sin que importe el comienzo de la condicion, espero su respuesta.

Código Delphi [-]
ADOQ.SQL.Text:='Select * from SANCIONES where NOMBRE like'''+edit1.text+'%''';

Última edición por dec fecha: 18-08-2006 a las 00:04:23.
Responder Con Cita
  #2  
Antiguo 18-08-2006
Alejandro73 Alejandro73 is offline
Miembro
 
Registrado: abr 2006
Ubicación: Valparaiso - CHILE
Posts: 132
Poder: 18
Alejandro73 Va por buen camino
Thumbs up Prueba usando esta sentencia

Código Delphi [-]
ADOQUERY.SQL.Add('Select * From NTabla');
ADOQUERY.SQL.Add('where ncampo like:variable ');
ADOQUERY.ParamByName('variable').AsString:='%'+Edit1.Text+'%';
ADOQUERY.Open;

Última edición por dec fecha: 18-08-2006 a las 00:14:11.
Responder Con Cita
  #3  
Antiguo 18-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Abrá tantas maneras como la imaginación de cada quién, ahí va una que creo puede servir:

Código Delphi [-]
  ADOQ.SQL.Text := 'select * from SANCIONES where NOMBRE like %'+ edit1.Text +'%';
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #4  
Antiguo 18-08-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Cita:
Empezado por dec
Hola,

Abrá tantas maneras como la imaginación de cada quién, ahí va una que creo puede servir:

Código Delphi [-] ADOQ.SQL.Text := 'select * from SANCIONES where NOMBRE like %'+ edit1.Text +'%';
Mmmm, creo que eso te marcaría un error... debería ser:
Código Delphi [-]
  ADOQ.SQL.Text := 'select * from SANCIONES where NOMBRE like ''%'+ edit1.Text +'%''';
__________________

Responder Con Cita
  #5  
Antiguo 18-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No sé yo... en las pruebas que hize (visualizar la cadena de la consulta para ver si todo estaba en su sitio) funcionó, pero, oyes, ¡nadie es perfecto!
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 18-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
y yo... por incordiar un poco más... pregunto: ¿no es engorroso usar ese método de tantas comillas? ¿no os produce errores "tontos" en ejecución?

Yo prefiero:
Código Delphi [-]
ADOQ.SQL.Text := 'select * from SANCIONES where NOMBRE like ' +QuotedStr('%'+ edit1.Text +'%');

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #7  
Antiguo 18-08-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
una vez que te acostumbras, no tiene porque pasarte ese tipo de errores. Para mi es mucho más facill poner ' '' '' ' que poner quotedstr. 6 caracteres son más rápidos de escribir que 8

__________________

Responder Con Cita
  #8  
Antiguo 19-08-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Solo un detalle:

Si haces una búsqueda sobre un campo de texto (varchar, text...) utilizando el comodín al final del texto, el motor podrá responder la consulta utilizando el índice. Pero si pones dos comodines al estilo: %texto%, el motor no podrá utilizar el índice, por lo tanto, si la tabla es muy extensa puede ser un proceso algo pesado y largo.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #9  
Antiguo 19-08-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por ContraVeneno
una vez que te acostumbras, no tiene porque pasarte ese tipo de errores. Para mi es mucho más facill poner ' '' '' ' que poner quotedstr. 6 caracteres son más rápidos de escribir que 8
Funciones como QuotedStr no solo evitan errores de programación, sino que también evita errores en tiempo de ejecución si el usuario utiliza una comilla en el texto ingresado. Además deja nuestro código inseguro a malintencionados que utilicen métodos de inyección de SQL.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #10  
Antiguo 19-08-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Muy cierto, es por eso que siempre utilizo la regla #34672 del decálogo de programación:

Controla todo lo que puedas controlar con los controles

Esto es, evitando que se escriba el apóstrofe, o más sencillo aún, solo permitir al control adminitir el número de caracteres definidos por el campo de búqueda.

Pero si comprendo perfectamente como la función qutoedstr te puede evitar problemas de inyección, cosa que no había reflexionado hasta este momento.
__________________

Responder Con Cita
  #11  
Antiguo 19-08-2006
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 23
vtdeleon Va por buen camino
Cita:
Empezado por Contraveneno
Pero si comprendo perfectamente como la función qutoedstr te puede evitar problemas de inyección, cosa que no había reflexionado hasta este momento.
Ademas de Claridad y evitar confusion.

Saludos
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #12  
Antiguo 19-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
... y yo que solo lo decía por incordiar un poco ....

Saludos compañeros.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #13  
Antiguo 07-09-2006
Avatar de edelphi
edelphi edelphi is offline
Miembro
 
Registrado: jun 2006
Posts: 55
Poder: 18
edelphi Va por buen camino
gracias chikos me ayudaron en el problemita que tenia y ademas optimizaron mi codigo y claro que si valide la introduccion de datos a traves de los controles. gracias de nuevo
Responder Con Cita
  #14  
Antiguo 06-02-2007
Avatar de edelphi
edelphi edelphi is offline
Miembro
 
Registrado: jun 2006
Posts: 55
Poder: 18
edelphi Va por buen camino
Thumbs up Ayuda

Compañeros regrese a preguntar por que ahora el problemita esta un poquito mas dificil

se trata de que el campo con el cual quiero hacer la consulta se pase desde una variable algo asi
Código Delphi [-]
filtro:='Select * from agenda where '''+lowercase(campo)+''' like '''+TXTbusca.text+'%'+'''';

donde campo es el campo que esta convirtiendose a minusculas y TXTbusca es el valor cone el cual se compara para hacer la consulta

esta consulta no me corre no se por que de seguro la posicion de los apostrofes esta mal por favor diganme como es la posicion correcta
Responder Con Cita
  #15  
Antiguo 07-02-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
El problema es que el nombre de los campos no debe ir entre comillado...

Código Delphi [-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like ''' + TXTbusca.text + '%''';

Ahora también podrías usar:

Código Delphi [-]
Filtro := Format('select * from agenda where %s like ''%s%%''', [lowercase(campo), TXTBusca.Text]);


Saludos...
Responder Con Cita
  #16  
Antiguo 07-02-2007
Avatar de edelphi
edelphi edelphi is offline
Miembro
 
Registrado: jun 2006
Posts: 55
Poder: 18
edelphi Va por buen camino
amigo maeyanes probe los dos codigos que me mandaste pero ninguno me funciono me manda un mensaje de error diciendo error en sintaxis, por si acaso pueda servir estoy trabajando con mysql 5 y delphi 7 la conexion ado y bueno el problema mas que todo es al momento de mandar el campo por que si lo escribo de frente si me funciona de maravillas.

Espero les sirva el comentario para que me ayuden con mi problema gracias
Responder Con Cita
  #17  
Antiguo 07-02-2007
Avatar de pborges36
pborges36 pborges36 is offline
Miembro
 
Registrado: oct 2004
Ubicación: Argentina
Posts: 192
Poder: 20
pborges36 Va por buen camino
asi es como deberia funcionar:

Código Delphi [-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like '" + TXTbusca.text + '%"';
 
ADOQ.SQL.Text:=filtro;
Responder Con Cita
  #18  
Antiguo 07-02-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
no creo que funcione, por la forma en que estan las comillas.
__________________

Responder Con Cita
  #19  
Antiguo 07-02-2007
Avatar de Ivanzinho
[Ivanzinho] Ivanzinho is offline
Miembro Premium
 
Registrado: ene 2005
Ubicación: Galicia
Posts: 595
Poder: 20
Ivanzinho Va por buen camino
Código Delphi [-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like ' + QuotedStr(TXTbusca.text + '%');
ADOQ.SQL.Text:=filtro;
__________________
Si no lees esto no vivirás tranquilo
Non lle poñades chatas â obra namentras non se remata. O que pense que vai mal que traballe n’ela; hai sitio para todos. (Castelao)
Responder Con Cita
  #20  
Antiguo 09-02-2007
Avatar de pborges36
pborges36 pborges36 is offline
Miembro
 
Registrado: oct 2004
Ubicación: Argentina
Posts: 192
Poder: 20
pborges36 Va por buen camino
Cita:
Empezado por pborges36
asi es como deberia funcionar:


Código Delphi [-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like '" + TXTbusca.text + '%"';

ADOQ.SQL.Text:=filtro;


Es verdad, eso es lo que queria escribir:

Código Delphi [-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like "' + TXTbusca.text + '%"';
 
ADOQ.SQL.Text:=filtro;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con consulta not in (select ....) VRO Firebird e Interbase 12 03-10-2005 19:54:05
Problema conuna consulta select...not in (select ...) VRO Firebird e Interbase 2 11-08-2005 09:56:35
5 select de 5 tablas diferentes en un select solo sakuragi SQL 6 15-06-2005 19:57:06
Consulta con Sub-select !!! isc_hilda SQL 2 21-05-2004 06:22:05
Select (Consulta) WaRRanT MySQL 3 19-02-2004 16:13:58


La franja horaria es GMT +2. Ahora son las 20:23:51.


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
Copyright 1996-2007 Club Delphi