Guardar columna dbgrid en un solo campo de una bd

[exequielmatias1]

Holaa! Queria saber si se puede guardar una columna de un dbgrid en un solo campo de una base de datos.

Tengo un dbgrid que me muestra el resultado de una consulta anterior en una sola columna ej "Nombres"
todos esos Nombres que me muestra el dbgrid quiero guardarlos en un solo campo (deudores) de una base de datos.
por ej el dbgrid me muestra lo siguiente:

Nombres
--------
Pablo
Pedro
Lucas

y en el campo Deudores de mi base de datos quiero que se guarden estos nombres ej
Pablo, Pedro, Lucas

[ecfisa]

Hola.

Código Delphi [-]
procedure SaveCol(aGrid: TDBGrid; const ColNro: Integer; 
  aDataSet: TDataSet; const aFieldName: string);
var
  BM: Pointer;
  s : string;
begin
  with aGrid.DataSource.DataSet do
  begin
    DisableControls;
    BM := GetBookmark;
    try
      First;
      while not Eof do
      begin
        s := s + aGrid.Columns[ColNro].Field.AsString + ',';
        Next;
      end;
      SetLength(s,Length(s)-1);
    finally
      GotoBookmark(BM);
      FreeBookmark(BM);
      EnableControls;
    end;
  end;
  with aDataSet do
  begin
    Append;
    FieldByName(aFieldName).AsString := s;
    Post;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
  // Se supone a DataSet1 abierto
  SaveCol(DBGrid1, 1, DataSet1, 'Campo');

Saludos

[exequielmatias1]

Holaaa!! gracias por tu rapida contestación! lo probe y me aparece este error: 'list index out of bounds (1)' probe con 0 y corrio sin errores pero no se guarda nada en la bd, sinceramente no tengo mucho conocimiento en delphi, no sabria como solucionar este error..
otra consulta.. entiendo que en DataSet1 debo poner mi ADOQuery donde tengo enlazada a la tabla destino...

[ecfisa]

Hola.

lo probe y me aparece este error: 'list index out of bounds (1)' probe con 0 y corrio sin errores

Si tu DBGrid tiene una sola columna es un error lógico y esperable, la primer columna tiene índice 0.

pero no se guarda nada en la bd, sinceramente no tengo mucho conocimiento en delphi, no sabria como solucionar este error..

En el ejemplo supongo que existe un componente data aware que, TDataSource mediante, está asociado al TDBGrid y otro que, en tu caso puede ser un TADOTable, TADODataSet o un TADOQuery.

No sé cuál de ellos te decidas a usar para guardar los datos en la otra tabla de acuerdo a eso será la sintáxis a usar. La del ejemplo funcionaría bién para un TADOTable o un TADODataSet.

Saludos.

[ecfisa]

Hola de nuevo.

Para no dejar las tareas a medias, un ejemplo usando un TDBGrid con una sola columna, asociado a un TADOQuery y un TADODataSet asociado a la tabla destino.

Código Delphi [-]
procedure SaveCol(aGrid: TDBGrid; const ColNro: Integer;
  aDataSet: TADODataSet; const TargetFieldName: string);
var
  BM: Pointer;
  s : string;
begin
  // Armar cadena desde la tabla destino
  with aGrid.DataSource.DataSet do
  begin
    DisableControls;
    BM := GetBookmark;
    try
      First;
      while not Eof do
      begin
        s := s + aGrid.Columns[ColNro].Field.AsString + ',';
        Next;
      end;
      SetLength(s,Length(s)-1);
    finally
      GotoBookmark(BM);
      FreeBookmark(BM);
      EnableControls;
    end;
  end;
  // Guardar resultado en campo de tabla destino
  with aDataSet do
  begin
    Append;
    FieldByName(TargetFieldName).AsString := s;
    Post;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveCol(DBGrid1, 0, ADODataSet1, 'NAME');
end;

El ejemplo está probado y funcionando.


Saludos.