Dejar de visualizar un registro de un DBGrid...

[eddg]

Señores, tengo un DBGrid, conectado perfectamente a una ADOTable

Ademas, cuando selecciono una de las filas del DBGrid, y le doy al Boton AGREGAR, solo se me agrega el campo que yo necesito a un ListBox, todo esta bien, todo perfecto. Sin embargo, me gustaria que al momento de agregar esta fila al ListBox, este campo dejara de verse en el DBGrid.


Es como que si en el DBGrid, tenga a: Pedro, Maria y Luis. Entonces, cuando le de a LUIS agregar, este se agregue al ListBox y desaparezca del DBGrid, pero no de la base de datos de la tabla...

Y que cuando le ordene quitarlo del DBGrid, este desaparezca del DBGrid y aparezca nuevamente en el DBGrid...

Que se le puede hacer en ese caso!!!

[[maeyanes]]

Hola!

¿Por que no mejor usar dos TListBox?

Uno lo llenas con los valores de un query, por ejemplo:

Código Delphi [-]
Query.Open;
Query.First;
while not Query.Eof do
begin
  ListBox1.Items.Add(Query.FieldByName('Nombre').AsString);
  Next
end;
Query.Close

Ya con esto es más fácil hacer lo que necesitas...

Ahora, creo que estas usando mal los conceptos... me imagino que lo que quieres ocultar es un registro, no un campo... voy bien o me regreso?


Saludos...

[eddg]

Correcto, lo que deseo ocultar es un registro del DBGrid y despues poder mostrarlo cuando lo quite del ListBox...

Sabes, no se como trabajar con los Query!

Tengo un DBGrid, de una ADOTabla q contiene mas de 30 campos, pero solo muestro 2 campos en el DBGrid (y eso es lo que me interesa), sin embargo he pensado si en vez de utilizar un DBGrid para mostrar esos 2 campos usara un ListBox, pero no hayo como conectar a este con la AdoTable...

Como le haría en ese caso?



__________________________________________________________

"Todos somos muy ignorantes, lo que sucede es que no todos ignoramos las mismas cosas"

- Albert Einstein -

[[maeyanes]]

Hola...

El procedimiento es el mismo, solo que en lugar de usar el Query usas la Tabla...

Código Delphi [-]
ADOTable.Open;
ADOTable.First;
while not ADOTable.Eof do
begin
  ListBox1.Items.Add(Format('%s %s', [ADOTable.FieldByName('Nombre').AsString,
    ADOTable.FieldByName('Apellidos').AsString]));
  Next
end;
ADOTable.Close

Saludos...

[eddg]

muy bueno, sin embargo, mi base de datos es de mas de 1500 registros y cuando mando a ejecutar el programa, este tarda mucho y no abre!

[[maeyanes]]

Bueno... ese si es un problema...

Una solución es después de la línea ListBox1.Items.Add(...) agregues Application.ProccessMessages...

Ahora... pensándolo bien, puedes, usando el TDBGrid hacer lo que deseas...

Aquí tendrías que jugar con el evento OnFilterRecord y la propiedad Filtered del TADOTable...

Algo como:

Código Delphi [-]
procedure TForm1.ADOTable1.OnFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  
begin
  // Si el valor del campo Nombre no existe en el ListBox, se muestra en el Grid...
  Accept := ListBox1.Items.IndexOf[ADOTable1.FieldByName('Nombre').AsString) = -1
end;

Saludos...

[eddg]

hago lo que me dices!

procedure Tcomponentes.ADOTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString) = -1
end;


sin embargo, al ejecutar y tratar de compilar, aparece el siguiente error:

[Error] Unit11.pas(142): Not enough actual parameters
[Error] Unit11.pas(142): Array type required
[Fatal Error] Project2.dpr(20): Could not compile used unit 'Unit11.pas'

[eddg]

acomode un poco el codigo, y quedo asi:

procedure Tcomponentes.ADOTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := ListBox1.Items.IndexOf(ADOTable.FieldByName('Nombre iupac').AsString) = -1;
end;


Ahora ejecuta pero sigue sin Dejar de Visualizar el registro en el DBGrid que agregue en el ListBox.

que será?

[[maeyanes]]

Bueno, hay un error en el código de ejemplo que te di, y está en:

Código Delphi [-]
  ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString] = -1

Puse un paréntesis ()) y debería ser una llave (])... error de dedo xDDD


Por cierto, recuerda que estos foros cuentan con las etiquetas Delphi para publicar código fuente en Delphi...


Saludos...

[eddg]

Bueno, lo coloco como tu dices, pero me da un error.

ListBox1.Items.IndexOf[ADOTable.FieldByName('Nombre iupac').AsString] = -1

[Error] Unit11.pas(142): Not enough actual parameters
[Error] Unit11.pas(142): Array type required
[Warning] Unit11.pas(144): Comparing signed and unsigned types - widened both operands
[Fatal Error] Project2.dpr(20): Could not compile used unit 'Unit11.pas'

y el cursor se ubica justo donde esta el primer corchete, entonces, lo arreglo y en vez de corchete le coloco
parentesis y queda asi;
accept:= ListBox1.Items.IndexOf(ADOTable.FieldByName('Nombre iupac').AsString) = -1

Ahora sí ejecuta, pero Igual, no hace nada con los registros del DBGrid!

[[maeyanes]]

Ah!! Cierto... otro error... jaja... eso de hacer las cosas de memoria xDDDD

IndexOf es un método, no una propiedad de tipo array... jejeje

Bueno... recuerdas que te mencioné de la propiedad Filtered?, pues en alguna parte de tu código, debes ponerla a True para que la tabla filtre los registros...


Saludos...

[eddg]

ya coloque la ADOTable.filtered=true

pero igual, no ocurre nada! No me quita el registro del DBGrid...

Queria hacerte una preguntita, aparte, como hago para filtrar un texto que introduzca por un edit en el DBGRID????

tenia este codigo:

procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
If (Edit1.text <> '') then
adotable.Filter:= 'nombre iupac'''+ Edit1.Text + ' ''';
end;

sin embargo, cuando Cambie la opcion ADOTable.filtered a true, me da un error! apenas al escribir en el EDIT... aunque nunca me funciono para filtrar ese algoritmo, pero al menos me dejaba escribir en el edit!!! tu que crees que pueda estar pasando?

[[maeyanes]]

Hola...

Te recuerdo de nuevo las etiquetas delphi: (sin espacios en blanco) para publicar tu código...

Ejemplo de su uso:

[delphi]
begin
  // código
end;
[/delphi]

Ahora, cuando especifiques que te da un error, favor de indicar cual es este, ya que con decir, "me da un error" no logramos nada...


Saludos...

[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...