VB6, Visual Basic 6, VSFlexGrid, Динамическое обновление рекордсета (ADODB.Recordset) и источника данных (DataSource) через VSFlexGrid
rcd - рекордсет (ADODB.Recordset)
fg - VSFlexGrid
cn - соединение с базой данных (ADODB.Connection)
fg.Editable = flexEDKbdMouse
fg.DataMode = flexDMBoundBatch
rcd.Open "SELECT * FROM r_Prods", cn, adOpenDynamic, adLockPessimistic
...... (Внести изменения в таблицу)
rcd.UpdateBatch        ......(Записать изменения)
rcd.CancelBatch        ......(Отменить изменения)
fg - VSFlexGrid
cn - соединение с базой данных (ADODB.Connection)
fg.Editable = flexEDKbdMouse
fg.DataMode = flexDMBoundBatch
rcd.Open "SELECT * FROM r_Prods", cn, adOpenDynamic, adLockPessimistic
...... (Внести изменения в таблицу)
rcd.UpdateBatch        ......(Записать изменения)
rcd.CancelBatch        ......(Отменить изменения)