点击或拖拽改变大小

Functions.VoDbCommitAll 方法

X#
刷新所有工作区中的待处理更新。

命名空间:  XSharp.RT
程序集:  XSharp.RT (在 XSharp.RT.dll 中) 版本:2.22 GA
语法
 FUNCTION VoDbCommitAll() AS LOGIC
查看代码

返回值

类型:Boolean
如果成功则返回 TRUE;否则返回 FALSE。
备注
VODBCommitAll() 与 DBCommitAll() 相同。
然而,此函数不调用错误处理程序,因此不会在失败时产生运行时错误消息或创建错误对象。因此,检查返回值以确定函数是否成功可能很重要。
全局结构 StrucErrInfo 将包含有关发生的任何错误的必要信息。有关更多信息,请参见 DBCommitAll()。
示例
以下示例将所有待处理的更新写入磁盘:
X#
 1FUNCTION Start()
 2    LOCAL rddList       AS _RDDLIST
 3    aRdds := {"CAVODBF", "DBFNTX"}
 4    n       := ALen(aRdds)
 5    rddList := MemAlloc( (_SizeOf(DWORD)) + (n * _SizeOf(SYMBOL)) )
 6    rddList.uiRddCount := n
 7    FOR i := 1 TO n
 8        rddList.atomRddName[i] := SysAddAtomUpperA(aRdds[i])
 9    NEXT
10    cLast := "Winston"
11    VODBUseArea(TRUE, rddList, "sales", "sales", TRUE, FALSE)
12    VODBOrdListAdd("SaleFNam", NIL)
13    VODBOrdListAdd("SaleLNam", NIL)
14    VODBUseArea(TRUE, rddList, "colls", "colls", TRUE, FALSE)
15    VODBOrdListAdd("CollFNam", NIL)
16    VODBOrdListAdd("CollLNam", NIL)
17    MemFree(rddList)
18    DBSelectArea("sales")
19    // 选择 "sales" 工作区
20    IF (Sales->(VODBSeek(cLast)))
21        IF Sales->(Deleted()) .AND. sales(RLock())
22            Sales->(VODBRecall())
23            ? "已删除的记录已被恢复。"
24        ENDIF
25    ELSE
26        ? "未找到"
27    ENDIF
28    // 处理完成,将更新写入磁盘并
29    // 关闭文件
30    VODBCommitAll()
31    VODBCloseAll()
32    RETURN TRUE
参见