Búsquedas a través de TTable

[fpirovani]

holaaaa q tal?
Estoy necesitando filtrar registros de una tabla, Pero al intentar aplicar el filtro me de un error.

Yo lo estoy haciendo de esta forma: (este ejemplo lo encontre en el foro, igualmente yo ya lo estaba haciendo de esta forma)

Código Delphi [-]
 
procedure TForm1.EFiltroChange(Sender: TObject);
begin
if not (EFiltro.text = '') then
begin
DM.TTable.Filtered := False;
DM.TTable.Filter := '' + 'CAMPO' + ' Like ' + QuotedStr(EFiltro.text + '%')
DM.TTable.Filtered := True;
end
else
DM.TTable.Filtered := False;
end;

En mi base de datos el campo que quiero filtrar se llama NOMBRE, y suponiendo que en el edit escribo el texto: Ce
Me da el mensaje: Clientes field 'Ce' not found (la tabla se llama Clientes)
Segun lo q veo, esta tomando como nombre del campo el texto q escribo en el Edit.

Se les ocure en que le puedo estar errando?
ahaha, por si no se an dado cuenta, soy re principiante en esto.

[[felipe88]]

Hola bienvenido ya leiste la guia de estilo ?
Deberias ser un poco mas explicito en tu problema... cual es el error, que moto de BD tienes...
Seria mas facil asi para poderte ayudar, no crees...

Saludos

[[enecumene]]

Prueba de esta manera:

Código Delphi [-]
procedure TForm1.EFiltroChange(Sender: TObject);
begin
if not (EFiltro.text = '') then
begin
DM.TTable.Filtered := False;
DM.TTable.Filter := 'Clientes Like ''' + EFiltro.Text + '*''';
DM.TTable.Filtered := True;
end
else
DM.TTable.Filtered := False;
end;

Saludos.

[[Chris]]

Empezado por enecumene

Prueba de esta manera:

Código Delphi [-]procedure TForm1.EFiltroChange(Sender: TObject);
begin if not (EFiltro.text = '') then begin DM.TTable.Filtered := False; DM.TTable.Filter := 'Clientes Like ''' + EFiltro.Text + '*'''; DM.TTable.Filtered := True; end else DM.TTable.Filtered := False; end;


Saludos.

A como sutilmente lo dice el compañero enecumene, el error puede radicar en los caracteres comodines que se utilizan, Algunos utilizan * y ? y otros como firebird utilizan el % que es tu caso según veo en tu actual código. De todos modos fpirovani, repito lo que dijo felipe, es necesario, saber cuál es el motor de datos que estás utilizando.

Saludos.

[fpirovani]

Empezado por D&W

A como sutilmente lo dice el compañero enecumene, el error puede radicar en los caracteres comodines que se utilizan, Algunos utilizan * y ? y otros como firebird utilizan el % que es tu caso según veo en tu actual código. De todos modos fpirovani, repito lo que dijo felipe, es necesario, saber cuál es el motor de datos que estás utilizando.

Saludos.

Disculpen q no me sepa explicar bien, es q recien estoy arrancando en eso, y no tengo mucha idea.
Buscando en la ayuda encontre esto sobre TDataSet.Filter: Field comparisons are not supported against local tables (Paradox, dBASE, Access, FoxPro).
Y cuando yo cree la tabla Clientes, (tabla esta bien dicho?) la cree como Paradox 7.
Voy a tener q cambiar a otro tipo de "tabla" (no se si esta bien dicho)
Que me recomiendan ustedes?

Desde ya muchas gracias! y espero pronto ponerme a tono con la terminologia y demas cosas.

[[Chris]]

Empezado por fpirovani

... Buscando en la ayuda encontre esto sobre TDataSet.Filter: Field comparisons are not supported against local tables (Paradox, dBASE, Access, FoxPro).
y demas cosas...

Lo que dice la ayuda se refiere a comparaciones directas entre campos, por ej.

Campo1 > Campo2

Según viendo la ayuda en delphi tu código debería de quedar de esta forma:

Código Delphi [-]
DM.Table.Filter := 'CAMPO = ' quotedStr(EFiltro.Text + '*');

¿Cómo hacer para que esto funcione? Bien, la ayuda de delphi dice los siguiente:

wildcard for partial comparisons (FilterOptions must include foPartialCompare)

Saludos.

[fpirovani]

Empezado por D&W

Lo que dice la ayuda se refiere a comparaciones directas entre campos, por ej.


Según viendo la ayuda en delphi tu código debería de quedar de esta forma:

Código Delphi [-]
DM.Table.Filter := 'CAMPO = ' quotedStr(EFiltro.Text + '*');




¿Cómo hacer para que esto funcione? Bien, la ayuda de delphi dice los siguiente:


Saludos.

Probe de la forma que me dijiste, y tampoco me funciona. Ahora no me da error, pero no encuentra nada.
La verdad q se m acabaron las ideas, no deberia ser algon tan complicado.

Les explico lo que estoy haciendo:
Tengo una tabla de la cual quiero filtrar registros segun el texto que el usuario vaya ingresando en un edit. La taba se llama T_Clientes y el campo sobre el que quiero aplicar el filtro de llama Ape_Nom.
En el evento OnChange del edit tengo el siguiente codigo:

T_Clientes.Filtered := False;
T_Clientes.Filter := 'Ape_Nom = ' + quotedStr(EFiltro.Text+ '*');
T_Clientes.Filtered := True;

Cuando escribo cualquier cosa en el edit, directamente no me muestra nada.
Por ejemplo: si en el edit escribo la letra J, en el TDBGrid me tendria q mostrar los registros en los cuales el campo Ape_Nom comienzan con J (Jose, Juan, etc...) pero directamente me desaparecen todos los registros.

Espero que se entienda lo que quise decir.
Saludos a todos, y desde ya muchas gracias!

[[enecumene]]

deberia ser asi:

Código Delphi [-]
T_Clientes.Filtered := False;
T_Clientes.Filter := 'Ape_Nom Like ''' +EFiltro.Text+ '*''');
T_Clientes.Filtered := True;

Saludos.

[[Chris]]

fpirovani, podrías postear el tipo y el mensaje del error. Los msg de errores no se inventaron solo para decir "hay un problema" sino también para ayudarte a resolverlo.

Saludos.