home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jan94 / vkfig07b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  30.0 KB  |  428x329  |  8-bit (254 colors)
   ocr: l TESTORYZ-ESciptizren nethod run(var eventinfo Event) var 9 - Query ans, tNane, Field1, Field2, Field1Criteria, Field2Criteria String enduar ans "ANSWER: PRIV:ANSVER.DE" tNane - "DBOXFLDS.DB" Field1 L "Start date" Field2 - "End date" Field1Criteria - "Check -12/01/90" Field2Criteria : "Check -1/1/93" 9- query "ans tName I "Field1 "Field2 "Field1Criteria I "Field2Criteria I endQuery if not q.executedBE() then a5g5top("Error" "Can't run queryin" + errornessage0)) endif endHethod Edt Line: 16 Col: 1