Changes between Version 2 and Version 3 of SQL


Ignore:
Timestamp:
Feb 22, 2011, 4:59:19 AM (10 years ago)
Author:
vadim.godunko
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • SQL

    v2 v3  
    1010 - [wiki:SQL/SQLite3 SQLite3]
    1111
     12== Example ==
     13
     14This example creates database, creates table in the database, fills it and retrieve values from it.
     15
     16{{{
     17with Ada.Wide_Wide_Text_IO;
     18
     19with League.Strings;
     20with League.Values.Strings;
     21with SQL.Databases;
     22with SQL.Queries;
     23
     24procedure Example is
     25
     26   function "+"
     27    (Item : Wide_Wide_String) return League.Strings.Universal_String
     28       renames League.Strings.To_Universal_String;
     29
     30   D : SQL.Databases.SQL_Database;
     31
     32begin
     33   D.Open;
     34
     35   --  Create table
     36
     37   declare
     38      Q : SQL.Queries.SQL_Query := SQL.Queries.Create (D);
     39
     40   begin
     41      Q.Prepare
     42       (+"CREATE TABLE point (x CHARACTER VARYING, y CHARACTER VARYING)");
     43      Q.Execute;
     44   end;
     45
     46   --  Fill data
     47
     48   declare
     49      Q : SQL.Queries.SQL_Query := SQL.Queries.Create (D);
     50
     51   begin
     52      Q.Prepare (+"INSERT INTO point (x, y) VALUES ('a', 'b')");
     53      Q.Execute;
     54   end;
     55
     56   --  Retrieve data from table
     57
     58   declare
     59      Q : aliased SQL.Queries.SQL_Query := SQL.Queries.Create (D);
     60
     61   begin
     62      Q.Prepare (+"SELECT x, y FROM point");
     63      Q.Execute;
     64
     65      while Q.Next loop
     66         Ada.Wide_Wide_Text_IO.Put_Line
     67          (League.Values.Strings.To_Universal_String
     68            (Q.Value (1)).To_Wide_Wide_String
     69             & ":"
     70             & League.Values.Strings.To_Universal_String
     71                (Q.Value (2)).To_Wide_Wide_String);
     72      end loop;
     73   end;
     74end Example;
     75}}}