Օրինակ/AsData
Օրինակում ցույց է տրված Caption, DColCount, DParCount, EOF, Formatted, IndicateCaption, Name, Parameters, SQL, UpdateSQL, Value հատկությունների և CloseCursor, MoveFirst, MoveLast, MoveNext, OpenCursor մեթոդների օգտագործումը։
Օրինակի մեջ կանչվում է Data ֆունկցիան, xDS-ի միջոցով վերադառնում է է “NBTURN2”-ի տվյալների աղբյուրի հղումը, նրա բոլոր հատկություններով և մեթոդներով։
Set xDS = Data("NBTURN2")
sCaption = xDS.Caption
nDColCount = xDS.DColCount
nDParCount = xDS.DParCount
'
sName = xDS.Name
sSQL = xDS.SQL
sUpdateSQL = xDS.UpdateSQL
xDS.Parameters(1) = xBal
xDS.Parameters(2) = "%/%"
xDS.Parameters(3) = "%"
'xDS.IndicateCaption = "Revaluate"
xDS.OpenCursor , , ASIndicateProgressBar
Do While Not xDS.EOF
xDSSTARTREM = CCur(AsRoundDiv(xDS.Value("STARTREM"),cInt(RoundRate)))
STARTREM_Row = STARTREM_Row + xDSSTARTREM
xRep.AddRow xDS.Formatted("CODBAL") & Space(2) & CODBALNAME
xDS.MoveNext
Loop
'
xDS.MoveFirst
'
xDS.MoveLast
'
xDS.CloseCursor