tdbgrid como tabla de referencia

[jrla]

hola a todos tengo una consulta mi duda es como hago para mover los datos de un dbgrid que lo tengo enlazado a una consulta de personal por departamento asta el

momento todo bien ya que me muestra todo el personal correspondiente lo que quiero hacer que la seleccionar con el puntero una

personal de dbgri1 me lo pase al dbgrid 2 que esa es la lista que en verda voy a guardar en mi base de datos gracias en este hilo

vi una repuesta que me pueda ayudar no entendí el procedimiento para palicarlo a mi xe6 clubdelphi.com/foros/showthread.php?t=76755 luego que tengo todos mi personal seleccionado como lo guardo en mi base de datos

[Casimiro Notevi]

Te veo bastante perdido, lo que necesitas es el mejor libro que puedes encontrar sobre delphi y bases de datos, es este y es gratis.

[jrla]

hola gracias por tu respuesta no estoy tan perdido como dije anterior mente tengo un dbgrid1 con datos filtrados atreves de un query que me muestra todo los trabajadores que están en un departamento... ahora que cuando el usuario seleccione en el dbrid1 los que se van de vacaciones y al presionar el button me pase dicha selección a dbgrid2 ............. en el dbgrid1 tengo las opciones activas row select y multi select

Código Delphi [-]
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.CreateDataSet;
  ClientDataSet1.Open;
end;

procedure TForm1.btnPasarRegistroClick(Sender: TObject);
var
  i: Integer;
begin
  ClientDataSet1.Append;
  with DBGrid1.DataSource.DataSet do         // de aquí es que me pierdo por el do sin el while 
   for i:= 0 to FieldCount-1 do
     ClientDataSet1.Fields[i].Value := Fields[i].Value; // asta aquí
  ClientDataSet1.Post;
end;

[ecfisa]

Hola jrla.


Sería de mucha ayuda que nos dijeras con que gestor de base de datos estas trabajando (Firebird, MySQL, Paradox, Access, MS SQLServer,) y con que componentes te conectas a ella ? (BDE, ADO, IBX, DBExpres, ...)

Saludos

[aguml]

hasta donde yo se, el with...do es algo especifico de delphi y simplemente es para evitar tener que hacer referencia al objeto que indique el with..do. En tu caso elimina la linea del with...do y en el for cambias la linea que se encuentra en su interior por esta: ClientDataSet1.Fields[i].Value*:=*DBGrid1.DataSource.DataSet.Fields[i].Value; En este caso no le veo mucho sentido ya que es una sola linea pero imagina que tuvieses que usar muchas referencias al mismo objeto, ahi si es mas util aunque se puede prescindir de ello. En builder podrias usar un puntero a objeto para acortar.


Quedaria asi:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ClientDataSet1->CreateDataSet;
  ClientDataSet1->Open;
}

void __fastcall TForm1::btnPasarRegistroClick(TObject *Sender)
{
  ClientDataSet1->Append;
  
  for(int i=0; i <= FieldCount-1; i++)
     ClientDataSet1->Fields[i]->Value = DBGrid1->DataSource->DataSet->Fields[i]->Value;
  ClientDataSet1->Post;
} 


[jrla]

Empezado por aguml

hasta donde yo se, el with...do es algo especifico de delphi y simplemente es para evitar tener que hacer referencia al objeto que indique el with..do. En tu caso elimina la linea del with...do y en el for cambias la linea que se encuentra en su interior por esta: ClientDataSet1.Fields[i].Value*:=*DBGrid1.DataSource.DataSet.Fields[i].Value; En este caso no le veo mucho sentido ya que es una sola linea pero imagina que tuvieses que usar muchas referencias al mismo objeto, ahi si es mas util aunque se puede prescindir de ello. En builder podrias usar un puntero a objeto para acortar.

[/php]

muchas gracias por el aclara miento......... en las lineas del dataset la avia modificado solo me falta era el puntero y la del for me confundí al indicarle el field del dbgrd a aumentar

[Casimiro Notevi]

Empezado por jrla

hola gracias por tu respuesta no estoy tan perdido

Bastante perdido, pero no debes molestarte por eso, todos estamos perdidos en algún momento

[jrla]

Empezado por Casimiro Notevi

Bastante perdido, pero no debes molestarte por eso, todos estamos perdidos en algún momento

hola casimiro no me molesto :-S simplemente me siento frustrado al realizar algo que quiero y me complique tanto
la otra pregunta es mi gestor de base de datos es interbase y me conecto con IBTransaction1

[Casimiro Notevi]

Empezado por jrla

hola casimiro no me molesto :-S simplemente me siento frustrado al realizar algo que quiero y me complique tanto
la otra pregunta es mi gestor de base de datos es interbase y me conecto con IBTransaction1

Por eso te he enlazado el libro La cara oculta de Delphi, todas esas dudas desaparecerán si lo lees.

IBTransaction no es para conectar con una base de datos.