From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b0ba21d71084ad16,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-09-10 21:59:01 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!fr.usenet-edu.net!usenet-edu.net!enst!enst.fr!not-for-mail
From: "David Botton" <David@Botton.com>
Newsgroups: comp.lang.ada
Subject: Easy databases with Ada
Date: Tue, 11 Sep 2001 00:57:52 -0400
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.1000184292.11730.comp.lang.ada@ada.eu.org>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Trace: avanie.enst.fr 1000184340 1420 137.194.161.2 (11 Sep 2001 04:59:00
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Tue, 11 Sep 2001 04:59:00 +0000 (UTC)
To: <comp.lang.ada@ada.eu.org>
Return-Path: <David@Botton.com>
X-pair-Authenticated: 216.254.101.195
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4807.1700
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0.4
Precedence: bulk
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto: comp.lang.ada-request@ada.eu.org?subject=subscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto: comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
List-Archive: <http://ada.eu.org/pipermail/comp.lang.ada/>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
Xref: archiver1.google.com comp.lang.ada:13026
Date: 2001-09-11T00:57:52-04:00

I've added a new package gwindows-databases that allows easy access to OLEDB
and ODBC databaes via ADO.

I hope to add very soon events for changes to fields, record moevment, etc.
and databound controls. Yup, you will be able to link text boxes, etc. to
fields in the database and automaticly have them update when you move around
the queries/tables, edit the field values, etc. The power of Ada with the
ease of VB (or Delphi ;-)

Here is a simple non-GUI example of using the databases (from Tutorial 18):

with GNATCOM.Initialize;
with GWindows.GStrings.IO; use GWindows.GStrings.IO;
with GWindows.Databases; use GWindows.Databases;

procedure Tutorial18 is
   Connection : Database_Type;
   Recordset  : Recordset_Type;
begin
   GNATCOM.Initialize.Initialize_COM;

   Open (Connection,
         "Provider=Microsoft.Jet.OLEDB.4.0; " &
         "Data Source=adotest.mdb");

   Open (Recordset,
         Connection,
         "SELECT * FROM People",
         Forward_Only,
         Read_Only);

   while not EOF (Recordset) loop
      for N in 1 .. Field_Count (Recordset) loop
         Put_Line
           (Field_Name (Recordset, N) & " = " & Field_Value (Recordset, N));
      end loop;

      Move_Next (Recordset);
      New_Line;
   end loop;
end Tutorial18;


Couldn't get any easier! All this and more in the current release on the
GWindows page, http://www.adapower.com/gwindows

BTW, Check out the tutorials on-line at
http://www.adapower.com/gwindows/user_guide.html

David Botton