DbStruct Function |  |
Create an array containing the structure of a database file.
Namespace: XSharp.RT
Assembly: XSharp.RT (in XSharp.RT.dll) Version: 2.19
SyntaxRequest Example
View Source
The structure of the database file in an array whose length is equal to the number of fields in the database file.
Each element of the array is a subarray containing information for one field.
The subarrays have the following format: Constant Attribute DBS_NAME cName DBS_TYPE cType DBS_LEN nLength DBS_DEC nDecimals DBS_ALIAS cAlias If there is no database file in use in the work area, DBStruct() will generate a runtime error.
Return Value
Type: ArrayThe structure of the database file in an array whose length is equal to the number of fields in the database file.
Each element of the array is a subarray containing information for one field.
The subarrays have the following format: Constant Attribute DBS_NAME cName DBS_TYPE cType DBS_LEN nLength DBS_DEC nDecimals DBS_ALIAS cAlias If there is no database file in use in the work area, DBStruct() will generate a runtime error.
Remarks
DBStruct() operates like COPY STRUCTURE EXTENDED by creating an array of structure
information rather than a database file of structure information.
There is another function, DBCreate(), that can create a database file from the structure array. By default, this function operates on the currently selected work area.
It can be made to operate on an unselected work area by specifying it within an aliased expression
There is another function, DBCreate(), that can create a database file from the structure array. By default, this function operates on the currently selected work area.
It can be made to operate on an unselected work area by specifying it within an aliased expression
Examples
This example opens two database files, then creates an array containing the
database structure using DBStruct() within an aliased expression.
The field attributes are then listed using AEval():
The field attributes are then listed using AEval():
X#
1LOCAL aStruct 2USE customer NEW 3USE invoices NEW 4aStruct := Customer->DBStruct() 5AEval(aStruct, {|aField|QOut(aField[DBS_NAME]),; 6QOut(aField[DBS_TYPE]), QOut(aField[DBS_LEN]),; 7QOut(aField[DBS_DEC]), QOut(aField[DBS_ALIAS])})
See Also