Insertar datos en tabla recorriendo un dbgrid

[ecfisa]

Hola Iniciante22, bienvenida a Club Delphi

Como es costumbre cuando se inician te invitamos a que leas nuestra guía de estilo.

También te aconsejo que cuando incluyas código en tus mensaje utilices TAG's para darle más legibilidad:

Empezado por Iniciante22

...o sea tengo que recorrer todas las lineas del dbgri e irlas insertando en la tabla pero no se como hacerlo...
mi codigo que utilizo para insertar los datos en la base es:
with dmConecta.qAreaporRol do
begin
Close;
sql.Clear;
sql.Add('insert into AREAPORROL (IDAREAROL, ID_PERFILES, ID_ROLES, ID_USUARIO, ID_DEPTO)');
sql.Add('values (:IDAREAROL, ID_PERFILES,ID_ROLES, ID_USUARIO, ID_DEPTO)');
parambyname('IDAREAROL').AsInteger := CapturaAreaRol;
parambyname('pID_PERFILES').AsInteger := Id_AgregaPerfil;
parambyname('pID_ROLES').AsInteger := CapturaId_rol;
parambyname('pID_USUARIO').AsInteger := capId_tUsuarios;
parambyname('pID_DEPTO').AsInteger := Captura_idDeptos;
execsql;
end;
...

Podrías hacer:

Código Delphi [-]
...
begin
  dmConecta.qAreaporRol.Close;
  dmConecta.qAreaporRol.SQL.Clear;
  dmConecta.qAreaporRol.SQL.Add('INSERT INTO AREAPORROL (IDAREAROL, ID_PERFILES, ID_ROLES, ID_USUARIO, ID_DEPTO)');
  dmConecta.qAreaporRol.SQL.Add('VALUES (:IDAREAROL, :ID_PERFILES, :ID_ROLES, :ID_USUARIO, :ID_DEPTO)');
  dmConecta.qAreaporRol.Prepare;
  with DBGrid1.DataSource.DataSet do
  begin
    DisableControls;
    try
      First;
      while not Eof do
      begin
        dmConecta.qAreaporRol.ParamByName(':IDAREAROL').Value  := FieldByName('IDAREAROL').Value;
        dmConecta.qAreaporRol.ParamByName(':ID_PERFILES').Value:= FieldByName('ID_PERFILES').Value;
        dmConecta.qAreaporRol.ParamByName(':ID_ROLES').Value   := FieldByName('ID_ROLES').Value;
        dmConecta.qAreaporRol.ParamByName(':ID_USUARIO').Value := FieldByName('ID_USUARIO').Value;
        dmConecta.qAreaporRol.ParamByName(':ID_DEPTO').Value   := FieldByName('ID_DEPTO').Value;
        dmConecta.qAreaporRol.ExecSQL;
        Next;
      end;
    finally
      EnableControls;
    end;
  end;
end;

Saludos