home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / DATA / Sample.txt < prev   
Text File  |  1998-05-31  |  176b  |  10 lines
  1. q:=TQuery.Create;
  2. q.DatabaseName:='DBDEMOS';
  3. q.SQL:='SELECT * FROM Biolife';
  4. q.Open;
  5. q.First;
  6. WHILE NOT q.EOF DO
  7.   Show(q.GetValue('Category'));
  8.   q.Next;
  9. END;
  10. q.Free;