Re: Using MySQL from ADA program

[Adrian Knoth <adi@drcomp.erfurt.thur.de>]

 MITRONIC <mitronic@swipnet.se> wrote:

> Hello, I want to access a MySQL database from my ADA program. What is the
> best way? Anyone who can give me an example?

I can't tell you what to use for MySQL, but for PostgreSQL there are
several possibilities which should be comparable to MySQL.

www.adapower.com surely has at least one thick binding to MySQL.
Usage should be simple, but at the cost of very much overhead.

Second way is to have a look at gnade, the GNU Ada Database Environment,
which might be found at iirc gnade.sourceforge.net

Third way is to find a direct implementation of libmysql written in Ada,
probably using socket() via Pragma-Import from C or something else.

I guess there is no libmysql avaible which is not using some C.

Now following an example for PostgreSQL which won't work for MySQL but
it might give you an overview, how it'd like to be...

        procedure do_work (dbname : in string) is
                package Pg is new Pg2("dbname=" & dbname & " user=adi");
                ergebnis : Pg.Result_Type;
                buffer : UString;
        begin
         loop
                Put_Line("Enter an SQL-Command or <CR> to stop:");
                Get_Line(buffer);
                exit when (buffer = "");
                Pg.Submit(buffer,ergebnis);
                for I in 0 .. ergebnis.Tuples_Qt-1 loop
                        for J in 0 .. ergebnis.Fields_Qt-1 loop
                                Pg.Get(ergebnis,I,J,buffer);
                                Put(buffer & ASCII.HT);
                        end loop;
                New_Line;
                end loop;
                Pg.Forget(ergebnis);
         end loop;
         Put_Line("Finished");
         Pg.Disconnect;
        end do_work;



-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Lieber Erstattung als Bestattung