Pasar datos de un DBGrid a otro DBGrid

[lucas05]

Hola, estoy usando Delphi y MySQL. Queria saber como puedo pasar los datos de un DBGrid a otro DBGrid.
Esta es la situación, tengo un form con: Edit1, Button1, Button2, DBGrid1, DBGrid2.
El funcionamiento es el siguiente, en el Edit1 escribo una palabra presiono el Button1 y me trae todos los registros de la base de datos que están relacionados con esa palabra y los muestra en el DBGrid1(para esto uso DataSource1, ADOQuery1, ADOConnection1). Hasta aquí todo bien.
El problema es como pasar los datos del DBGrid1 al DBGrid2, no quiero pasar todos, sino que el usuario seleccione un registro del DBGrid1 presione Button2 y el registro seleccionado pase al DBGrid2.

Espero que puedan ayudarme, desde ya muchas gracias por su atención.

[ecfisa]

Hola lucas05.

¿ La tabla referenciada por ADOQuery1 es igual a la que se mostrará en DBGrid2 ? Es decir, ¿ A que TDataSource y TDataSet está conectado el DBGrid2 ?

Saludos.

[lucas05]

Hola ecfisa, el DBGrid2 no lo conecte a ningun DataSource y tampoco a ningun ADOQuery.

Gracias por responder.

[ecfisa]

Hola Lucas.

Es que así no funciona la cosa... Simplificando mucho el concepto, un TDBGrid es la representacíón visual del valor de los campos de una tabla o consulta, no trabaja por sí sólo.

No sé que deseas hacer con los campos del registro seleccionado en DBGrid1, en gran medida de eso depende que camino seguir.

Un saludo.

[lucas05]

Hola ecfisa, nuevamente gracias. En otros temas del foro vi que hacían algo parecido, seleccionaban un registro de una grilla presionaban un button y pasaban los datos de ese registro a varios Edit.
Lo que intento hacer es lo mismo, pero en vez de pasar los datos a los Edit quiero pasar los datos a otra grilla.
Osea volver a mostrar el mismo registro de la primera grilla en la segunda grilla, pero no todos los registros sino los que selecciono de la primera grilla

Gracias por tu atención.

[ecfisa]

En otros temas del foro vi que hacían algo parecido, seleccionaban un registro de una grilla presionaban un button y pasaban los datos de ese registro a varios Edit.
Hola Lucas.

Lamentablemente no es el mismo caso, pero una forma que se me ocurre es:

1. Pone un TClientDataSet (ClientDataSet1) y otro TDataSource (DataSouce2) asociado a él, por último asociá el DBGrid2 a DataSource2
2. Con el mouse posicionado en el componente ClientDataSet1 doble click sobre él. Se abrirá el Field Editor.
3. Ya abierto el Field Editor, botón derecho del mouse sobre él y elegí New Field.
4. En Name poné el (*)mismo nombre que el 1° campo del ADOQuery, en Type el mismo tipo que el 1° campo del ADOQuery. Y si requiere valor, en Size dale el mismo que el 1° campo del ADOQuery.
5. Repetí los pasos del punto 4 para todos los campos que haya en el ADOQuery.

(*) puede ser el que gustes pero para simplificar te aconsejo el mismo.

Es decir que ClientDataSet1 tiene que tener una copia de todos los campos del ADOQuery1.

Luego el código:

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
   for i:= 0 to FieldCount-1 do
     ClientDataSet1.Fields[i].Value := Fields[i].Value;
  ClientDataSet1.Post;
end;
...

Haciendo click sobre el TButton se irá copiando a DBGrid2 el registro que esté seleccionado en DBGrid1.

Saludos.

[Casimiro Notevi]

Empezado por Jasan_Records

...

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración