Ver Mensaje Individual
  #5  
Antiguo 09-06-2006
Dark Aeris Dark Aeris is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Reputación: 0
Dark Aeris Va por buen camino
Aklaraciones

hola de nuevo a todos y gracias por el interes, tratare de explicarme en la logika del kodigo

procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
regselec:=dbgrid1.Fields[0].AsString;
ibtable1.Open;
ibtable2.Open;

* hago un doble click a un registro del grid a fin de seleccionarlo y realize la siguiente accion

while not(ibtable1.Eof)do
begin
if(regselec=string(ibtable1.fieldbyname('CANCION').value))then

* este ciclo es una busqueda para ubicarme sobre los campos correspondientes a la celda seleccionada

begin
ibtable2.Insert;
ibtable2.FieldByName('ID').Value:=ibtable1.FieldByName('ID').Value;
ibtable2.FieldByName('CANCION').Value:=ibtable1.FieldByName ('CANCION').Value;
ibtable2.FieldByName('ARTISTA').Value:=ibtable1.FieldByName('ARTISTA').Value;
ibtable2.FieldByName('ALBUM').Value:=ibtable1.FieldByName('ALBUM').Value;
ibtable2.FieldByName('UBICACION').Value:=ibtable1.FieldByName('UBICACION').Value;
ibtable2.Post;
ibtransaction2.Commit;
end;
ibtable1.next;
end;
ibtable1.Close;
ibtable2.Close;
end;

* al encontrar los campos correspondientes estos se copian a otra tabla identica que es solo temporal, el ciclo se detiene cuando encuentra la coincidencia del campo seleccionado.

Ya con esto, muestro los datos copiados en otro grid, el problema es que si lo hace bien todo, solo ke muestra los resultados al salir y volver a entrar a la aplikacion, es decir, no se actualiza al momento. Espero haberme dado a entender, Gracias!!!
Responder Con Cita