发信人: orac1e()
整理人: cobe(2000-09-05 10:35:37), 站内信件
|
【 在 songxinsss (starshowing) 的大作中提到: 】
: 我现在做一个写日记的程序,文字处理部分用的是richtext控件,然后按时间将每
: 天
: 的日记存放在.mdb的表中(数据类型是备注).我想添加一个像一般文字处理都有的
: "撤销
: .......
Access数据库的事务提交和回滚操作可以满足您的要求
具体方法，比如您用DAO那么
Dim wrkMain As Workspace
Dim dbMain As Database
Set wrkMain = DBEngine.Workspaces(0)
Set dbMain = wrkMain.OpenDatabase("YourMDBFile")
'开始进行事务提交
wrkMain.BeginTrans
'向您的日记本数据库中写入数据
dbMain.Execute "Insert Into xxxx Values(xxxxxxx)"
'.....其他数据库操作
====================================================
在您的“撤销上次操作"的事件里
只要执行wrkMain.RollBack，就可以实现对数据库操作的回滚
如果确定向数据库中写纪录，只要执行wrkMain.CommitTrans
就可以了。当然如果您已经进行了wrkMain.CommitTrans操作
那么再wrkMain.RollBack也不能回滚到操作前的数据了
还有，RollBack操作不能回滚DDL（比如Create Table,Drop Table等操作）
如果还有问题，欢迎来信和我讨论:[email protected]
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.57.150]
|
|