Príklad 11 - Tvorba podmienky pre DynamicQuery - Podmienka typu výraz

Tento príklad je napísaný v jazyku Visual Basic.

Nasledujúci príklad demonštruje použitie podmienky typu výraz.

   dim mG3
   dim mQuery
   dim mCond
   dim mDataset
   set mG3 = CreateObject("AbraOLE.Application")
   set mQuery = mG3.CreateCommand("Firm")
   set mCond = mQuery.ConstraintByID("UserDynSQLCondition")
   mCond.UsedKind = 1 'ckSingle
   mCond.ValueBag = "DYNUSERSQL=(A.Code LIKE '00%')"
   set mDataset = mQuery.RowsetByName("MAIN")
   mDataset.Used = True
   mDataset.UsedFields = "Code" & vbCrLf & "Name"
   mQuery.Execute
   while not mDataset.EOF
     WScript.StdOut.Write mDataset.Data.Item(0) & " - " & mDataset.Data.Item(1)
     mDataset.Next
   wend