Data1.Recordset.Edit
MSFlexGrid1.Text = Text1.Text
Data1.Recordset.Update
Update БД через MSFlexGrid Control!
При использовании сетки DBGrid данные автоматически обновляются в БД, но она меня не устраивает, т.к. в ней нельзя программно менять ширину полей. Поэтому решил использовать другую сетку - MSFlexGrid. Но поскольку (по умолчанию) в ней нельзя редактировать записи, то отсутствует автоматическое сохранение в БД :(
По идее должен работать примерно вот такой код:
Но на практике отредактированные ячейки не сохраняются! :confused:
По идее должен работать примерно вот такой код:
Код:
Но на практике отредактированные ячейки не сохраняются! :confused:
Как обычно, пришлось разбираться самому :)
Вот как решается данная проблема:
Вот как решается данная проблема:
Код:
Dim WorkSpace As WorkSpace
Dim DataBase As DataBase
Dim RST As DAO.Recordset
Set WorkSpace = DBEngine.Workspaces(0)
'Открываем базу данных DataBase.mdb
Set DataBase = WorkSpace.OpenDatabase("C:\DataBase.mdb")
'Открываем таблицу Table1
Set RST = DataBase.OpenRecordset("Table1")
RST.Edit
' Записываем в базу данных значения ячейки MSFlexGrid1
RST(0) = MSFlexGrid1.Text 'RST(0) - это номер первого поля в БД, номер записи можно менять с помощью RST.Move() или RST.MoveNext
'Обновляем запись
RST.Update
'Закрываем базу данных
RST.Close
DataBase.Close
Dim DataBase As DataBase
Dim RST As DAO.Recordset
Set WorkSpace = DBEngine.Workspaces(0)
'Открываем базу данных DataBase.mdb
Set DataBase = WorkSpace.OpenDatabase("C:\DataBase.mdb")
'Открываем таблицу Table1
Set RST = DataBase.OpenRecordset("Table1")
RST.Edit
' Записываем в базу данных значения ячейки MSFlexGrid1
RST(0) = MSFlexGrid1.Text 'RST(0) - это номер первого поля в БД, номер записи можно менять с помощью RST.Move() или RST.MoveNext
'Обновляем запись
RST.Update
'Закрываем базу данных
RST.Close
DataBase.Close