Read:
Syntax:
read name,record
Where: name is the name of the table and record is the record number you want to read.
Program Example:
{This examle requres database example which has the following table: MEMBER}
{MEMBER has the following data types: NAME,SURNAME,AGE and SEX}
{NAME and SURNAME are both text with a width of 20 characters,}
{AGE is a number and SEX is a single character.}
database example;
{This will read the data to the database varibles.}
read member,1;
{This checks that the read was O.K}
if example.member.error.code%=0 then
show "Name:" at 1,1;
show "Surname:" at 2,1;
show "Age:" at 3,1;
show "Sex:" at 4,1;
show example.member.name$ at 1,7;
show example.member.surname$ at 2,10;
show example.member.age% at 3,6;
show example.member.sex$ at 4,6;
show "Name:" at 11,1;
show "Surname:" at 12,1;
show "Age:" at 13,1;
show "Sex:" at 14,1;
get example.member.name$,20 at 11,7;
get example.member.surname$,20 at 12,10;
get example.member.age% at 13,6;
get example.member.sex$,1 at 14,6;
{This will overwrite the data in the database}
write member,1
endif
Program File
Application File
Database File
Return
Last Updated: July 1998.