47 respuestas en este tema

[Caral]

Hola
Me alegro que pudieras hacerlo funcionar.
Cambie un poco lo que hiciste para que captes un poco mas esto.
Ahora tienes un filtro, tanto por dni como por nombre, con solo ponerlo este lo busca por similitud.
Aunque no es sql (lo se es trampa ) pero me apetecio 
Saludos

Archivos adjuntos

•  1623_f285d95df9bddbdf719345d3c151b02627124df7.zip   40,1KB   6 descargas

[esocrates]

Caral, el 31 Jul 2010 - 11:59 PM, dijo:

Hola
Me alegro que pudieras hacerlo funcionar.
Cambie un poco lo que hiciste para que captes un poco mas esto.
Ahora tienes un filtro, tanto por dni como por nombre, con solo ponerlo este lo busca por similitud.
Aunque no es sql (lo se es trampa ) pero me apetecio 
Saludos

Hola

Se me ocurrió un pequeño detalle para practicar:

delphi

procedure TForm1.Edit40Change(Sender: TObject);
var
   Filtro : String;
begin
  If (Edit40.Text <> '') then
   begin
      DataModule1.QueryCaral1.Filtered := False;
      Filtro := 'Nombre Like '''+ '*'+ Edit40.Text + '*'''; //modificado
      DataModule1.QueryCaral1.Filter := Filtro;
      DataModule1.QueryCaral1.Filtered := True
   end
   else DataModule1.QueryCaral1.Filtered := False;
 
end;

Permite buscar con cualquier elemento del nombre

[Caral]

Hola
Que bueno, me alegra mucho que modifiques el codigo, de eso se trata.
Saludos

[esocrates]

Una pregunta:
Había leído que se podía usar "%" donde en este código fue usado "*".
Lo probé pero no funciona.
¿Es para otro tipo de situación?

[Caral]

Hola

esocrates, el 01 Ago 2010 - 12:29 AM, dijo:

Una pregunta:
Había leído que se podía usar "%" donde en este código fue usado "*".
Lo probé pero no funciona.
¿Es para otro tipo de situación?

Access es un poco particular, de hecho cada BD lo es.
Access acepta * pero no otros para el LIKE.
Firebird acepta % pero no otros.
MySql acepta @ pero no otros.
Es una mescolanza que ni ellos entienden, menos yo 
Saludos

[esocrates]

Caral, el 01 Ago 2010 - 12:32 AM, dijo:

Hola

Cita

Una pregunta:
Había leído que se podía usar "%" donde en este código fue usado "*".
Lo probé pero no funciona.
¿Es para otro tipo de situación?

Access es un poco particular, de hecho cada BD lo es.
Access acepta * pero no otros para el LIKE.
Firebird acepta % pero no otros.
MySql acepta @ pero no otros.
Es una mescolanza que ni ellos entienden, menos yo 
Saludos

En esta línea :

delphi

Filtro := 'DNI Like '''+ Edit39.Text + '*''';

¿No está usado Like?

[Caral]

Hola
Si claro, esta usando Like para el filtro y * para definirlo, es access.
Si lo hicieras en firebird u otra bd te daria error o no funcionaria.
Saludos

[esocrates]

Hola
Entiendo.
Una cosita tonta pero no lo veo en este momento:

delphi

Filtro := 'Nombre Like '''+ '*'+ Edit40.Text + '*''';

Me sobran comillas en esta línea.
¿Qué no veo?

[Caral]

Hola
No entiendo amigo, que es lo que no ves?.
La linea dice:
Filtro = // es el nombre de la variable string
Nombre // es el nombre del campo de la tabla alumnos
Like // en español, como
'''+Edit40.Text + '*'''; // se concatena el edit.
Las comillas son un capricho que exige access, asi como el uso de *
Osea, no te fies mucho del uso de las comillas y ese signo (*) ya que no todas las bd lo aceptan como valido.
Saludos

[esocrates]

Caral, el 01 Ago 2010 - 01:03 AM, dijo:

Hola
No entiendo amigo, que es lo que no ves?.
La linea dice:
Filtro = // es el nombre de la variable string
Nombre // es el nombre del campo de la tabla alumnos
Like // en español, como
'''+Edit40.Text + '*'''; // se concatena el edit.
Las comillas son un capricho que exige access, asi como el uso de *
Osea, no te fies mucho del uso de las comillas y ese signo (*) ya que no todas las bd lo aceptan como valido.
Saludos

Sí. Perfecto. Ahora lo veo. Estoy viendo en Google muchas preguntas similares que aclaran los de Microsoft.
Sería entonces desglosando:
1- Filtro := 'Nombre Like '
2- ''+ '*'+ Edit40.Text + '*' '';
Ahora veo las comillas dobles. Que en realidad son dos comillas simples.
Gracias Caral

[Caral]

Hola
Con gusto amigo, vamos aprendiendo poco a poco.
Saludos

[esocrates]

Hola Caral:
Sigo estudiando tus aplicaciones.
Por favor será posible resubir tu Barinas.zip que he descargado de:
http://www.delphiacc...hp?topic=1422.0
Pero el archivo está corrupto.
Desde ya muchas gracias
Saludos

[Caral]

Hola
Uyy amigo, tendría que ver donde esta, no se ni de que se trata el ejemplo.
Aveces borro cosas que no se ni para que las hice.
Si necesitas algún ejemplo en particular prefiero hacerlo otra vez.
Saludos

[esocrates]

Caral, el 01 Ago 2010 - 3:54 PM, dijo:

Hola
Uyy amigo, tendría que ver donde esta, no se ni de que se trata el ejemplo.
Aveces borro cosas que no se ni para que las hice.
Si necesitas algún ejemplo en particular prefiero hacerlo otra vez.
Saludos

Hola.
Ningún problema. Simplemete estoy estudianto todos tus ejemplos. La idea es hacer yo mismo una aplicación sencilla y subirla para que la veas y critiques. Como seguro habrá problemas, también para recibir tus sugerencias.
Muchas gracias

Notas: Podemos seguir con los ejemplos SQL?
Saludos

[Caral]

Hola
Claro, cuando tenga un rato me hago otro ejemplo.
Saludos
PD: Me alegra que te hagas una aplicacion completa, asi veremos muchas mas cosas.

[Caral]

Hola
Para que no abandonemos esto he ampliado un poco las tablas de la BD.
Ahora tenemos:

Alumnos
Alumnos Cursos
Alumnos Calificaciones
Cursos
Cursos horario
Profesores
Profesores Curso.
Con esto se puede jugar bastante mas ya que las nuevas tablas lo que contienen son los ID asi se podra hacer ligas, mezclas, cosas interesantes en sql.
Aqui dejo la BD con las modificaciones, espero tener un rato y hacer algunos ejemplos.
Saludos

Archivos adjuntos

•  1624_d351dbc9ce3113aac5d3f571a87182389d8d6f8e.zip   20,1KB   3 descargas

[esocrates]

Hola Caral:
Sigo estudiando el tema y teniendo dudas elementales.
En este código del programa que usamos para hacer ejemplos el resultado de una búsqueda es mostrada en un Grid,

delphi

procedure TForm1.Edit40Change(Sender: TObject);
var
   Filtro : String;
begin
  If (Edit40.Text <> '') then
   begin
      DataModule1.QueryCaral1.Filtered := False;
       Filtro := 'Nombre Like '''+ '*'+ Edit40.Text + '*''';
      DataModule1.QueryCaral1.Filter := Filtro;
      DataModule1.QueryCaral1.Filtered := True
   end
   else DataModule1.QueryCaral1.Filtered := False;
 
end;

Lo que no consigo hacer en mis prácticas es mostrar el resultado en un Memo.
¿Me podés ayudar por favor?
Muchas gracias
SAludos

[Caral]

Hola
Aqui te dejo un ejemplo.
Lo que hace es cargar en un Memo los datos del alumno filtrados en un Edit.
Saludos

Archivos adjuntos

•  1630_964f7be8be0cfd819c9bb65a4390e8c5fc0bf093.zip   42,44KB   4 descargas

[esocrates]

Hola Caral:
El error , creo, era que no ponía el signo + antes del Where
Este es el que funcionó:

delphi

ADoQuery1.SQL.Text :='Select Nombre from lista '+
                                    'Where Nombre = :nom';

Este es el que no funcionaba:

delphi

ADoQuery1.SQL.Text :='Select Nombre from lista 
                                    Where Nombre = :nom';

¿Puede ser?
Muchas gracias por el ejemplo. Estoy empezando a entender un poquito de esto gracias a tus enseñanzas.
Un saludo

[Caral]

Hola
El signo de mas (+) se usa para muchas cosas, entre ellas para el salto de linea, como en este caso.
Saludos
PD: Me alegra servirte de algo, aun con mi poco conocimiento.