fpc/fcl/db/sqldb/examples/dshowtable.pp

(******************************************************************************
 *                                                                            *
 *  (c) 2005 CNOC v.o.f.                                                      *
 *                                                                            *
 *  File:        dShowTable.pp                                                *
 *  Author:      Joost van der Sluis ([email protected])                          *
 *  Description: SQLDB example and test program                               *
 *  License:     GPL                                                          *
 *                                                                            *
 ******************************************************************************)

program dShowTable;

{$mode objfpc}{$H+}

uses
  Classes,
  sqldb, pqconnection, mysql4conn, IBConnection,
  SqldbExampleUnit;

begin
  ReadIniFile;

  CreateFConnection;
  CreateFTransaction;
  CreateFQuery;

  with Fquery do
    begin

    ReadOnly := True;

    SQL.Clear;
    SQL.Add('select * from fpdev');

    Writeln('Id;Name;Email;birthdate');

    Open;

    while not eof do
      begin
      write(fieldbyname('ID').asstring+';');
      write(fieldbyname('Name').asstring+';');
      write(fieldbyname('Email').asstring+';');
      writeln(fieldbyname('Birthdate').asstring);
      next;
      end;

    close;

    end;

  Fquery.Free;
  Ftransaction.Free;
  Fconnection.Free;
end.