Class: | _DBC |
Type | Integer |
Direction | Input |
#INCLUDE "dbc.h" SET PROCEDURE TO dbc.prg ADDITIVE LOCAL lcAlias,liIDT,liCount,lii,loDBC LOCAL ARRAY laProps(1) loDBC=CREATEOBJECT("_DBC") lcAlias=SYS(2015) =loDBC.OpenTable(HOME(2)+"\Tastrade\Data\tastrade.dbc",lcAlias,"") * Get field ID liIDT=loDBC.GetIDObject(lcAlias,_DBC_Field,"products.product_id") * Get property list liCount=loDBC.EnumProperty(lcAlias,liIDT,@laProps) FOR lii=1 TO liCount ?laProps(lii,1),loDBC.FormatProperty(laProps(lii,1)),laProps(lii,2) NEXT loDBC.CloseTable(lcAlias) RELEASE loDBC RELEASE PROCEDURE dbc.prg
LPARAMETERS liIDProp * liIDProp - Property ID DO CASE CASE liIDProp=_DBCID_Path RETURN "Path" CASE liIDProp=_DBCID_SubType RETURN "SubType" CASE liIDProp=_DBCID_Comment RETURN "Comment" CASE liIDProp=_DBCID_RuleExpression RETURN "RuleExpression" CASE liIDProp=_DBCID_RuleText RETURN "RuleText" CASE liIDProp=_DBCID_DefaultValue RETURN "DefaultValue" CASE liIDProp=_DBCID_ParameterList RETURN "ParameterList" CASE liIDProp=_DBCID_ChildTag RETURN "ChildTag" CASE liIDProp=_DBCID_InsertTrigger RETURN "InsertTrigger" CASE liIDProp=_DBCID_UpdateTrigger RETURN "UpdateTrigger" CASE liIDProp=_DBCID_DeleteTrigger RETURN "DeleteTrigger" CASE liIDProp=_DBCID_Prim_Cand RETURN "Prim_Cand" CASE liIDProp=_DBCID_ParentTable RETURN "ParentTable" CASE liIDProp=_DBCID_ParentTag RETURN "ParentTag" CASE liIDProp=_DBCID_PrimaryKey RETURN "PrimaryKey" CASE liIDProp=_DBCID_Version RETURN "Version" CASE liIDProp=_DBCID_BatchUpdateCount RETURN "BatchUpdateCount" CASE liIDProp=_DBCID_DataSource RETURN "DataSource" CASE liIDProp=_DBCID_ConnectName RETURN "ConnectName" CASE liIDProp=_DBCID_UpdateName RETURN "UpdateName" CASE liIDProp=_DBCID_FetchMemo RETURN "FetchMemo" CASE liIDProp=_DBCID_FetchSize RETURN "FetchSize" CASE liIDProp=_DBCID_KeyField RETURN "KeyField" CASE liIDProp=_DBCID_MaxRecords RETURN "MaxRecords" CASE liIDProp=_DBCID_ShareConnection RETURN "ShareConnection" CASE liIDProp=_DBCID_SourceType RETURN "SourceType" CASE liIDProp=_DBCID_SQL RETURN "SQL" CASE liIDProp=_DBCID_Tables RETURN "Tables" CASE liIDProp=_DBCID_SendUpdates RETURN "SendUpdates" CASE liIDProp=_DBCID_Updatable RETURN "Updatable" CASE liIDProp=_DBCID_UpdateType RETURN "UpdateType" CASE liIDProp=_DBCID_UseMemoSize RETURN "UseMemoSize" CASE liIDProp=_DBCID_WhereType RETURN "WhereType" CASE liIDProp=_DBCID_DisplayClass RETURN "DisplayClass" CASE liIDProp=_DBCID_DisplayClassLibrary RETURN "DisplayClassLibrary" CASE liIDProp=_DBCID_Format RETURN "Format" CASE liIDProp=_DBCID_InputMask RETURN "InputMask" CASE liIDProp=_DBCID_Caption RETURN "Caption" CASE liIDProp=_DBCID_Asynchronous RETURN "Asynchronous" CASE liIDProp=_DBCID_BatchMode RETURN "BatchMode" CASE liIDProp=_DBCID_ConnectString RETURN "ConnectString" CASE liIDProp=_DBCID_ConnectTimeout RETURN "ConnectTimeout" CASE liIDProp=_DBCID_DispLogin RETURN "DispLogin" CASE liIDProp=_DBCID_DispWarnings RETURN "DispWarnings" CASE liIDProp=_DBCID_IdleTimeout RETURN "IdleTimeout" CASE liIDProp=_DBCID_QueryTimeout RETURN "QueryTimeout" CASE liIDProp=_DBCID_Password RETURN "Password" CASE liIDProp=_DBCID_Transactions RETURN "Transactions" CASE liIDProp=_DBCID_UserID RETURN "UserID" CASE liIDProp=_DBCID_WaitTime RETURN "WaitTime" CASE liIDProp=_DBCID_TimeStamp RETURN "TimeStamp" CASE liIDProp=_DBCID_DataType RETURN "DataType" CASE liIDProp=_DBCID_PacketSize RETURN "PacketSize" CASE liIDProp=_DBCID_Database RETURN "Database" CASE liIDProp=_DBCID_Prepared RETURN "Prepared" CASE liIDProp=_DBCID_CompareMemo RETURN "CompareMemo" CASE liIDProp=_DBCID_FetchAsNeeded RETURN "FetchAsNeeded" CASE liIDProp=_DBCID_Offline RETURN "Offline" CASE liIDProp=_DBCID_DBCEvents RETURN "DBCEvents" CASE liIDProp=_DBCID_DBCEventFileName RETURN "DBCEventFileName" CASE liIDProp=_DBCID_AllowSimultaneousFetch RETURN "AllowSimultaneousFetch" CASE liIDProp=_DBCID_DisconnectRollback RETURN "DisconnectRollback" OTHERWISE RETURN IIF(!ISNULL(This.oConnector),; This.oConnector.FormatProperty(liIDProp),"") ENDCASE RETURN ""