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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a6b:6f09:: with SMTP id k9mr11584980ioc.35.1543056324329;
        Sat, 24 Nov 2018 02:45:24 -0800 (PST)
X-Received: by 2002:aca:4eca:: with SMTP id c193mr316442oib.7.1543056324138;
 Sat, 24 Nov 2018 02:45:24 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.166.215.MISMATCH!k10no18839itk.0!news-out.google.com!y103-v6ni176ita.0!nntp.google.com!k10no18834itk.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 24 Nov 2018 02:45:23 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=151.249.135.130;
 posting-account=M7mWIgoAAACGA_Fxpu1-vAqIUttmwREB
NNTP-Posting-Host: 151.249.135.130
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ce530325-6c40-458f-bd51-b5f03eebe02e@googlegroups.com>
Subject: Prepared_Statement :(
From: eduardsapotski@gmail.com
Injection-Date: Sat, 24 Nov 2018 10:45:24 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:54879
Date: 2018-11-24T02:45:23-08:00
List-Id: <comp.lang.ada>

Trying insert data into PostgreSql:

   function Insert_Trade(Trade : Trade_Type) return Boolean is 
      
      Conn   : Database_Connection := Build_Database_Connection;
      PS     : Prepared_Statement  := Prepare(Query => "INSERT INTO exmo.trades(trade_id, pair, type, price, quantity, amount, date) VALUES (?, ?, ?, ?, ?, ?, ?)");             
      Params : SQL_Parameters(1..7);
      FC     : Forward_Cursor;
      
      Result : Boolean := False;
         
   begin

      Params(1) := "+"(Trade.Trade_ID);
      Params(2) := "+"(Trade.Pair);
      Params(3) := "+"(Trade.Direction);
      Params(4) := "+"(Trade.Price'Img);
      Params(5) := "+"(Trade.Quantity'Img);
      Params(6) := "+"(Trade.Amount'Img);
      Params(7) := "+"(Trade.Date);
    
      Execute (Conn, PS, Params);
        
      Commit_Or_Rollback(Conn);
      
      Put_Line(Conn.Last_Error_Message);
      
      return Result;
      
   end;

Result:

ERROR:  syntax error at or near ","
LINE 1: ...ir, type, price, quantity, amount, date) VALUES (?, ?, ?, ?,...
                                                             ^

What's wrong? :( 
Can anyone have a working example?