World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/DATABASE/DO1BETA.ZIP/FILTER.DO

Text File | 1991-08-23 | 425b | 14 lines

/*
    set a filter for the database and try it
    this example prints out a Collection of all values for the
    "lname" field between record numbers 5 and 15 inclusively

    NOTE - you must run the "CRDEMO.DO" program to create the
        patient database before running this program
*/
db = new(Dbffile,"patient");
setFilter(db,#(recno(db) > 5L) & (recno(db) < 15L));
? asCollection(db,#trim(lname));
close(db);
? memory();