delphi
procedure TForm1.BitBtn1Click(Sender: TObject); var i:integer; begin for i := 0 to StringGrid1.rowCount do query.SQL.Clear; query.SQL.Add('insert into entradas( codigo, nombre, unidad, cantidad, precio, importe) values(:codigo, :nombre, :unidad, :cantidad, :precio, :importe) '); query.ParamByName('codigo').AsString := stringGrid1.Cells[0, i] ; query.ParamByName('nombre').AsString := stringGrid1.Cells[1, i] ; query.ParamByName('unidad').AsString := stringGrid1.Cells[2, i]; query.ParamByName('cantidad').AsString := stringGrid1.Cells[3, i]; query.ParamByName('precio').AsString := stringGrid1.Cells[4, i]; query.ParamByName('importe').AsString := stringGrid1.Cells[5, i]; query.ExecSQL; showmessage('grabado con exito ');