1------------------------------------------------------------------------------ 2-- -- 3-- APQ DATABASE BINDINGS -- 4-- -- 5-- A P Q -- 6-- -- 7-- B o d y -- 8-- -- 9-- Copyright (C) 2002-2007, Warren W. Gay VE3WWG -- 10-- Copyright (C) 2007-2009, Ada Works Project -- 11-- -- 12-- -- 13-- APQ is free software; you can redistribute it and/or modify it under -- 14-- terms of the GNU General Public License as published by the Free Soft- -- 15-- ware Foundation; either version 2, or (at your option) any later ver- -- 16-- sion. APQ is distributed in the hope that it will be useful, but WITH- -- 17-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 18-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- 19-- for more details. You should have received a copy of the GNU General -- 20-- Public License distributed with APQ; see file COPYING. If not, write -- 21-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- 22-- MA 02111-1307, USA. -- 23-- -- 24-- As a special exception, if other files instantiate generics from this -- 25-- unit, or you link this unit with other files to produce an executable, -- 26-- this unit does not by itself cause the resulting executable to be -- 27-- covered by the GNU General Public License. This exception does not -- 28-- however invalidate any other reasons why the executable file might be -- 29-- covered by the GNU Public License. -- 30-- -- 31------------------------------------------------------------------------------ 32 33with Ada.Calendar; 34 35with APQ; use APQ; 36with APQ.PostgreSQL.Client; use APQ.PostgreSQL.Client; 37with APQ.Samples; use APQ.Samples; 38 39procedure list_users is 40 C: Connection_Type; 41begin 42-- Set_Host_Name( C, "localhost" ); 43-- Set_User_Password( C, "postgres", "senhapg" ); 44 45 Set_DB_Name( C, "apq_test" ); 46 47 48 Connect( C ); 49 50 Query_Results( C ); 51end list_users; 52 53 54