File: mysql.html

package info (click to toggle)
gnade 1.5.1-2
links: PTS
area: main
in suites: sarge
size: 5,084 kB
ctags: 308
sloc: ada: 21,567; sh: 3,648; makefile: 843; sql: 378; awk: 29; xml: 9
file content (316 lines) | stat: -rw-r--r-- 5,540 bytes
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML
><HEAD
><TITLE
>MySQL bindings</TITLE
><META
NAME="GENERATOR"
CONTENT="Modular DocBook HTML Stylesheet Version 1.7"><LINK
REL="HOME"
TITLE="GNADE User's Guide"
HREF="gnade.html"><LINK
REL="UP"
TITLE="Native Bindings"
HREF="bindings.html"><LINK
REL="PREVIOUS"
TITLE="Introduction to native bindings"
HREF="bindingsintro.html"><LINK
REL="NEXT"
TITLE="Building programs with MySQL"
HREF="x633.htm"></HEAD
><BODY
CLASS="CHAPTER"
BGCOLOR="#FFFFFF"
TEXT="#000000"
LINK="#0000FF"
VLINK="#840084"
ALINK="#0000FF"
><DIV
CLASS="NAVHEADER"
><TABLE
SUMMARY="Header navigation table"
WIDTH="100%"
BORDER="0"
CELLPADDING="0"
CELLSPACING="0"
><TR
><TH
COLSPAN="3"
ALIGN="center"
>GNADE User's Guide: GNADE, The GNat Ada Database Environment; Version 1.5.0; Document Revision $Revision: 1.42 $</TH
></TR
><TR
><TD
WIDTH="10%"
ALIGN="left"
VALIGN="bottom"
><A
HREF="bindingsintro.html"
ACCESSKEY="P"
>Prev</A
></TD
><TD
WIDTH="80%"
ALIGN="center"
VALIGN="bottom"
></TD
><TD
WIDTH="10%"
ALIGN="right"
VALIGN="bottom"
><A
HREF="x633.htm"
ACCESSKEY="N"
>Next</A
></TD
></TR
></TABLE
><HR
ALIGN="LEFT"
WIDTH="100%"></DIV
><DIV
CLASS="CHAPTER"
><H1
><A
NAME="MYSQL"
></A
>Chapter 18. MySQL bindings</H1
><DIV
CLASS="TOC"
><DL
><DT
><B
>Table of Contents</B
></DT
><DT
><A
HREF="mysql.html#AEN608"
>The MYSQL API</A
></DT
><DT
><A
HREF="x633.htm"
>Building programs with MySQL</A
></DT
></DL
></DIV
><P
>      The following example is stored under ./samples/mysql. It 
      requires the installed client libraries of the MySQL product.
   </P
><DIV
CLASS="SECT1"
><H1
CLASS="SECT1"
><A
NAME="AEN608"
>The MYSQL API</A
></H1
><P
>      An instance of the MySQL.Object type represents the data base
      on application level. All operations on the data base are performed
      on this data type.
   </P
><P
>      Each issued query is identified by a query id which issued 
      to refer to the query. 
   </P
><P
>      Every program has to connect and authorize at the data base. This 
      is done by the Methods User, Password and Connect as shown in the 
      example below.
   </P
><P
>      The data base is selected by the primitive Select_DB.
      <DIV
CLASS="EXAMPLE"
><A
NAME="AEN614"
></A
><P
><B
>Example 18-1. MySQL native binding - Connecting to the database.</B
></P
><PRE
CLASS="PROGRAMLISTING"
>&#13;with GNU.DB.MySQL;           use GNU.DB.MySQL;
with GNU.DB;                 use GNU.DB ;


   dBase      : MySQL.Object;
   qId        : MySQL.Query_ID;

begin
   Initialize( dBase );

   User(     dBase, "gnade" );
   Password( dBase, "" );
   Connect(  dBase, "localhost" );

   Select_DB( dBase, "testdb" );
   
       </PRE
></DIV
>
   </P
><P
>      A query is send by the method Query to the data base. The 
      query string is a normal SQL query or DML command. The 
      result set of a query is described by a so called query identifier 
      with the type Query_ID. The result set is generated at the time 
      where the Query method is executed.
   </P
><P
>      <DIV
CLASS="EXAMPLE"
><A
NAME="AEN619"
></A
><P
><B
>Example 18-2. MySQL native binding - Executing a query</B
></P
><PRE
CLASS="PROGRAMLISTING"
>   .....
   qID := Query( dBase, "select * from Test where id='Otto'");
   Put_Line( "Nbr of Rows:" &#38; Integer'Image(Nbr_of_Rows(dBase, qID)) );
   ....
      </PRE
></DIV
>
   </P
><P
>      The result set may be reed out by means of the Next method as 
      it is shown below.
   </P
><P
>      <DIV
CLASS="EXAMPLE"
><A
NAME="AEN624"
></A
><P
><B
>Example 18-3. MySQL native binding - Accessing the result set</B
></P
><PRE
CLASS="PROGRAMLISTING"
>      ........
      while true loop
         declare
            Insert_Time : Time;
         begin
            Nbr_Tuples := Nbr_Tuples + 1;
            Put_Line( "'" &#38; To_String( String_Field( dBase, qId, "id" ) ) &#38; "'" );
            Insert_Time := Date_Field( dBase, qID, 2);
            Next( dBase, qID );
         exception
            when Field_Parse_Error =&#62;
               Put_Line("Field parse error");
               Next( dBase, qID );
            when Others =&#62;
               raise;
         end;
      end loop;
      .........
      </PRE
></DIV
>
   </P
><P
>      After the result set has been processed the query context has to be 
      returned to MySQL via the Drop_Query method.
   </P
><P
>      If the application intends to disconnect completely, the data base 
      instance should be Finalized as shown below.
   </P
><P
>      <DIV
CLASS="EXAMPLE"
><A
NAME="AEN630"
></A
><P
><B
>Example 18-4. MySQL native binding - Dropping the query </B
></P
><PRE
CLASS="PROGRAMLISTING"
>   .....
   Drop_Query( dBase, qID );

   Finalize( dBase );
   .....
      </PRE
></DIV
>
   </P
></DIV
></DIV
><DIV
CLASS="NAVFOOTER"
><HR
ALIGN="LEFT"
WIDTH="100%"><TABLE
SUMMARY="Footer navigation table"
WIDTH="100%"
BORDER="0"
CELLPADDING="0"
CELLSPACING="0"
><TR
><TD
WIDTH="33%"
ALIGN="left"
VALIGN="top"
><A
HREF="bindingsintro.html"
ACCESSKEY="P"
>Prev</A
></TD
><TD
WIDTH="34%"
ALIGN="center"
VALIGN="top"
><A
HREF="gnade.html"
ACCESSKEY="H"
>Home</A
></TD
><TD
WIDTH="33%"
ALIGN="right"
VALIGN="top"
><A
HREF="x633.htm"
ACCESSKEY="N"
>Next</A
></TD
></TR
><TR
><TD
WIDTH="33%"
ALIGN="left"
VALIGN="top"
>Introduction to native bindings</TD
><TD
WIDTH="34%"
ALIGN="center"
VALIGN="top"
><A
HREF="bindings.html"
ACCESSKEY="U"
>Up</A
></TD
><TD
WIDTH="33%"
ALIGN="right"
VALIGN="top"
>Building programs with MySQL</TD
></TR
></TABLE
></DIV
></BODY
></HTML
>