Muchas gracias ecfisa
Me sirvio de mucho tu codigo solo lo modifique un poco,y me oriento bastante. lo dejo para que alguien le sirva.
procedure TFORMSELECT1.BitBtn4Click(Sender: TObject);
var
i: Integer;
begin
if DBGSELECT1.SelectedRows.Count = 0 then
begin
Exit;
end
else
begin
for i := 0 to DBGSELECT1.SelectedRows.Count-1 do
begin
DBGSELECT1.DataSource.DataSet.GotoBookmark(TBookmark(DBGSELECT1.SelectedRows.Items[i]));
DataModule1.FDQINS_RES2.SQL.Clear;
DataModule1.FDQINS_RES2.SQL.Add('INSERT INTO resultados(id_tur_res, fec_res)');
DataModule1.FDQINS_RES2.SQL.Add('VALUES(:ID_TUR_RES, :FEC_RES)');
DataModule1.FDQINS_RES2.ParamByName('ID_TUR_RES').Value := DBGSELECT1.DataSource.DataSet.FieldByName('id_tur').Value;
DataModule1.FDQINS_RES2.ParamByName('FEC_RES').Value := DBGSELECT1.DataSource.DataSet.FieldByName('fec_tur').Value;
DataModule1.FDQINS_RES2.ExecSQL;
end;
end;
end;
|