Ada Programming/Libraries/Database/GWindows

Libraries Database GWindows __TOC__ Library functions David Botton created GNATCOM project to help Ada interoperate with Windows COM Object. The GWindows project is based on GNATCOM. It is used to create Windows Graphics User Interface. The database package is a subset of the GWindows project. It is very easy and useful. Library links Author David Botton Homepage http://www.gnavi.org/index.php?Command=Class&ClassID=GWindowsWin32&Title=GWindows Project Info GWindows Library Document http://www.gnavi.org/gwindows/ref/gwindows-databases.html CVS Archive - missing - Download http://www.gnavi.org Sample code with Gnatcom.Initialize; with Gnatcom.Types; with Gnatcom.Variant; with Gwindows.Databases; use Gwindows.Databases; with Ada Text_IO; use Ada Text_IO; with Ada Strings; with Ada Strings Fixed; with Ada Exceptions; with System; procedure Test is Connection : Database_Type; Recordset : Recordset_Type; customer : Gnatcom.Types.Variant; begin Gnatcom.Initialize.Initialize_Com; make connection Open (Connection, "DSN=Northwind","your ID","your password"); make Recordset(ResultSet) Open (Recordset, Connection, "SELECT * from Orders", Dynamic, Optimistic); start to process your business solution while not Eof (Recordset) loop customer := Field_Value(Recordset,"customerId"); Process (customer); your customer procedure Move_Next (Recordset); end loop; release database resource Gwindows.Databases.Close(Recordset); end Test; See also Wikibook Ada Programming Ada Programming/Libraries Ada Programming/Libraries/Database Ada Reference Manual —none apply— GWindows