Příklad 11 - Tvorba podmínky pro DynamicQuery - Podmínka typu výraz

Tento příklad je napsán v jazyku Visual Basic.

Následující příklad demonstruje použití podmínky 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