点击或拖拽改变大小

Functions.VoDbInfo 方法 (UInt32, __Usual)

X#
检索工作区的信息。

命名空间：  XSharp.RT
程序集：  XSharp.RT (在 XSharp.RT.dll 中) 版本：2.22 GA
语法
复制
 FUNCTION VoDbInfo(
	kInfoType AS DWORD,
	ptrRetVal REF USUAL
) AS LOGIC
查看代码

参数

kInfoType
类型：UInt32
确定检索的信息类型。
ptrRetVal
类型：__Usual
指向多态值的指针。
如果函数成功，此值将接收请求的信息；否则保持不变。
如果您只想检索信息，在调用函数之前此值必须为 NIL。
目前任何提供的 RDD 都不支持使用非 NIL 值。
此功能保留给允许更改信息而不仅仅是检索信息的 RDD。

返回值

类型：Boolean
如果成功则返回 TRUE；否则返回 FALSE。
备注
VODBInfo() 类似于 DBInfo()。
然而，此函数不调用错误处理程序，因此不会在失败时产生运行时错误消息或创建错误对象。因此，检查返回值以确定函数是否成功可能很重要。
全局结构 StrucErrInfo 将包含有关发生的任何错误的必要信息。有关更多信息，请参见 DBInfo()。
示例
以下示例返回工作区信息：
X#
复制
 1FUNCTION ShowInfo() AS VOID
 2    LOCAL uResult AS USUAL
 3    uResult := NIL
 4    IF VODBInfo(DBI_GETHEADERSIZE, @uResult)
 5        ? "HEADER(): ", uResult
 6    ELSE
 7        DoError()
 8    ENDIF
 9    IF VODBInfo(DBI_LASTUPDATE, @uResult)
10        ? "LUpdate(): ", uResult
11    ELSE
12        DoError()
13    ENDIF
14    IF VODBInfo(DBI_GETRECSIZE, @uResult)
15        ? "RecSize(): ", uResult
16    ELSE
17        DoError()
18    ENDIF
19    IF VODBInfo(DBI_FULLPATH, @uResult)
20        ? "PATHNAME: ", uResult
21    ELSE
22        DoError()
23    ENDIF
24    RETURN
25STATIC FUNCTION DoError() AS USUAL
26    LOCAL uRetCode<br />
27AS USUAL
28    LOCAL oError  <br />
29AS USUAL
30    oError := ErrorBuild(@strucErrInfo)
31    oError:FuncSym := #VODBInfo
32    RETURN EVAL(ErrorBlock(), oError)
参见