Delphi - Necesito ayuda sobre SQL

   
Vista:

Necesito ayuda sobre SQL

Publicado por Francisco (1 intervención) el 17/02/2008 19:45:08
Hola, haber necesito que algun experto me eche una mano, os explico:
Tengo un programilla para meter datos de clientes y necesito hacer un formulario desde donde poder buscar todos clientes por dni, apellidos, nombres, etc. en fin, basicamente es eso y yo ya no doy para mas. Agradeceria cualquier ayuda. Mandaria mi programa si hiciera falta. Gracias de antemano. Con cualquier duda escribirla y la aclaro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Calculator
- Algoritmo Marching Cube
- Calculadora

RE:Necesito ayuda sobre SQL

Publicado por BigLuis (715 intervenciones) el 17/02/2008 22:02:42
Puesdes utilizar algo similar a esto pero piensa que si la tabla tiene muchos registros se puede relentizar .
En el evento Onchange de un TEdit.
case RadioGroup1.ItemIndex of
0: // por ejemplo dni
begin
Modulo.TableListados.Close;
Modulo.TableListados.SQL.Clear;
Modulo.TableListados.SQL.Add('Select * from Listado where dni Like (:Tira)');
Modulo.TableListados.SQL.Add('order by programa');
Sentencia:=/Sender as TEdit).Text+'%';//Que empiece por
Modulo.TableListados.Parambyname('Tira').Value:=Sentencia;
Modulo.TableListados.Open;
end;
1: //por ejemplo apellidos
begin
Modulo.TableListados.Close;
Modulo.TableListados.SQL.Clear;
Modulo.TableListados.SQL.Add('Select * from Listado where apellidos Like (:Tira)');
Modulo.TableListados.SQL.Add('order by programa');
Sentencia:='%'+(sender as TEdit).Text+'%'; //que contenga la cadena
Modulo.TableListados.Parambyname('Tira').Value:=Sentencia;
Modulo.TableListados.Open;
end;
end;//case
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar