Dejar de visualizar un registro de un DBGrid...

[eddg]

Te comento, tenia mi ADOTable.filtered en FALSE, y lo cmabie a true como tu me habias dicho!


Complia y ejecuta perfecto, pero todavia no logra desaparecer el REGISTRO del DBGrid.

En cuanto a lo otro, te digo que tenia un algoritmo que supuestamente me FIltra el contenido de un campo especifico en un DBGrid. y este es el codigo

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
begin If (Edit1.text <> '') then adotable.Filter:= 'nombre iupac'''+ Edit1.Text + '  ''';  
end;

Este codigo no me filtra nada, sin embargo, cuando coloque la ADOTable.filtrered=true, al querer escribir sobre la EDIT, me genera un erro que dice mas o menos lo siguiente:

http://img101.imagevenue.com/aAfkjfp..._123_876lo.jpg

Entonces, queria saber que era lo que pasaba!!! si es que podias saber!!!

[[maeyanes]]

Parece que la url a la imagen está mal escrita, me regresa error 404 el navegador...

Sobre tu error, me imagino que se debe a como formas el filtro:

Código Delphi [-]
'"nombre iupac" = ''' + Edit1.Text + '''';

Sobre el otro problema... Coloca un Breakpoint en el código del evento y verifica que valor va adquiriendo Accept por cada registro...


Saludos...

[eddg]

Empezado por maeyanes

Sobre el otro problema... Coloca un Breakpoint en el código del evento y verifica que valor va adquiriendo Accept por cada registro...


Saludos...

Oye hermano, de verdad no se como hacer eso! del Breakpoint para ir viendo los valores de accept!

[[Delphius]]

Hola eddg,
¿Podrías escribir el mensaje de error? Porque el link a la imaen no funciona.

Mirando el código que tu tienes me llama la atención dos cosas:
1. ¿El nombre del campo por el que deseas filtrar es exactamante nombre iupac? ¿O es que iuapac es parte del contenido por el que deseas filtrar, algo como iupac + Edit1.Text?
2. En Filter se debe ingresar una condición. Y no veo en tu código algun operador lógico. Creería que deseas que filtre por el nombre, en todo caso debería ingresarse una condición al estilo:

Código Delphi [-]
TuTabla.Filter := 'nombre = ''' + Edit.Text + '''';
TuTabla.Filtered := True;

No tengo delphi a mano... lo puse al vuelo... pero creo que se entiende que lo ingresado en Filter debe cumplir una condición lógica. Y luego Setear en True el valor de Filtered.

Espero que te haya dado una idea.
Saludos,

[eddg]

DElphius, sí, el campo se llama "nombre iupac"

tengo mi ADOTable.Filtered=true

y e codigo del EDIT1 es asi

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then begin
adotable.Filter := 'nombre iupac = ''' + Edit1.Text + '''';
adotable.Filtered := True;
end;
end;

Entonces, al ejecutar y al tratar de escribir en EDIT1 me aparece este error:

http://img12.imagevenue.com/aAfkjfp0...123_1085lo.jpg

y luego al darle Ok, me aparece resaltado esto, tal cual la siguiente imagen:

http://img167.imagevenue.com/aAfkjfp..._123_774lo.jpg

Así que no se que ocurre!!! por favor, si logran con la solución se los agradezco, ademas de como DEJAR DE VISUALIZAR un registro del DBGRid...

[[enecumene]]

Hola eddg, una pregunta, el campo se llama "nombre iupac" o simplemente iupac? si es este ultimo deberia ser asi (que me corrijan los maestros):

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then begin
adotable.Filter := 'iupac = ''' + Edit1.Text + '''';
adotable.Filtered := True;
end;
end;

Intentalo y luego nos comentas, suerte!

Saludos.

[eddg]

que va enecumene, me da el mismo error!

creo que tiene que ver algo con

el ADOTable.filtered

pero no tengo idea...

[[enecumene]]

a ver intenta de este modo:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);beginIf (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end
   else ADOTable.Filtered := False;
end;

o sino asi:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
If (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end;
end;

luego me comentas

Saludos.

[eddg]

Señores aqui coloco mi trabajo, y observen cual es el error! he hecho de todo y nada que me filtra el DBGrid, prueben uds y comenten!

http://rapidshare.com/files/60551252/prueba.zip.html