Class: | _DBC |
#INCLUDE "dbc.h" SET PROCEDURE TO dbc.prg ADDITIVE LOCAL loDBC,lcAlias lcAlias=SYS(2015) loDBC=CREATEOBJECT("_DBC") =loDBC.OpenTable(HOME(2)+"\Tastrade\Data\tastrade.dbc",lcAlias,"") * Get field ID ?loDBC.GetIDObject(lcAlias,_DBC_Field,"products.product_id") =loDBC.CloseTable(lcAlias) RELEASE loDBC RELEASE PROCEDURE dbc.prg
LPARAMETERS lcFile,lcAlias,lcParam * lcFile - Folder and name of table * lcAlias - Alias * lcParam - Parameters LOCAL luCatch luCatch=m.This.SetCatch(.T.) USE (lcFile) ALIAS (lcAlias) IN 0 &lcParam. =m.This.SetCatch(luCatch) RETURN m.This.nErr