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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,fc3719e6afe93cd7
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!postnews.google.com!c33g2000yqm.googlegroups.com!not-for-mail
From: tonyg <tonythegair@googlemail.com>
Newsgroups: comp.lang.ada
Subject: Re: mysql , gnade and function hanging
Date: Wed, 30 Jun 2010 05:53:54 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <da31977b-8319-420c-a1e5-981dd52b2788@c33g2000yqm.googlegroups.com>
References: 
 <9d22007e-b11c-4527-afb5-ae429aeb3f05@c10g2000yqi.googlegroups.com>
	<e3e3d345-96ff-4f47-ab4d-02b5665c3742@u7g2000yqm.googlegroups.com>
	<773ca91b-2bcb-4b5e-9943-605a852d4dfd@t10g2000yqg.googlegroups.com>
	<1be70d43-a5f2-40cc-8859-f4e5d34bcd52@w12g2000yqj.googlegroups.com>
	<9e8008e5-129f-4b9b-b083-44b386a7ce4b@i28g2000yqa.googlegroups.com>
	<87bpasiue9.fsf@ludovic-brenta.org>
NNTP-Posting-Host: 89.240.135.62
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
X-Trace: posting.google.com 1277902434 3446 127.0.0.1 (30 Jun 2010 12:53:54
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 30 Jun 2010 12:53:54 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: c33g2000yqm.googlegroups.com; posting-host=89.240.135.62;
	posting-account=28F2IwkAAACL1Z5nRC-dE7zuvWdbWC7P
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/533.4
	(KHTML, like Gecko) Chrome/5.0.375.70 Safari/533.4,gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:13008
Date: 2010-06-30T05:53:54-07:00
List-Id: <comp.lang.ada>

I've sanistised this source of the password and ip address

with GNU.DB.MySQL;
with GNU.DB;
use GNU.DB.MySQL;
use GNU.DB;
with Ada.Text_Io; use Ada.Text_Io;
with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;

procedure trymysql is

TheDatabase : MySQL.Object;
TheQuery    : MySQL.Query_Id;
TheField	: MYSQL.Field_Number;
begin
Initialize(TheDatabase);
User (TheDatabase, "heating");
Password (TheDatabase,"");
Connect (TheDatabase,"");
Select_DB (TheDatabase, "heating");

   TheQuery := Query (TheDatabase, "select * from userid ");
   TheField := Get_Field_Number (TheDatabase, TheQuery, "email");

   put_line ("Number of Rows :" &
Integer'Image(Nbr_of_Rows(TheDatabase,TheQuery)));

	put_line (" Field Number of Email field : " &
Integer'Image(TheField));


    Put_Line(Natural'image (Get_Field_Length(TheDatabase,TheQuery,
1)));
    Put_Line(Field_Type'image(Get_Field_Type(TheDatabase,TheQuery,
1)));

    Put_Line(To_String(String_Field (TheDatabase, TheQuery,
"email")));
end trymysql;




Out put is

tony@tony-laptop:~/snugbug/main/adastuff/heating/src$ ./trymysql
Number of Rows : 4
 Field Number of Email field :  1
 14

raised CONSTRAINT_ERROR : gnu-db-mysql.adb:883 invalid data
tony@tony-laptop:~/snugbug/main/adastuff/heating/src$


Other information is that the email field in the database table is a
VARCHAR(80) and a primary key