home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PROGJRN / PJ_7_3A.ARC / ESQL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-19  |  934 b   |  35 lines
  1. {*  LISTING 5 -- SAMPLE PASCAL Embedded SQL syntax *}
  2.  
  3.  
  4.      {variable declarations}
  5.  
  6.  
  7.       exec sql
  8.            begin declare section;
  9.            var in_product_rec    : record;
  10.                in_product_id     : fstring (3);
  11.                in_product_price  : int32;
  12.                in_product_name   : fstring (20);
  13.            end;
  14.       exec sql
  15.            end   declare section;
  16.  
  17.  
  18.      {additional Pascal code here}
  19.  
  20.  
  21.       . . .
  22.  
  23.  
  24.       begin
  25.            in_product_rec.in_product_id     := 12;
  26.            in_product_rec.in_product_price  := 3000;
  27.            in_product_rec.in_product_name   := "PANTS";
  28.            exec sql insert into product
  29.                        (id , price, name )
  30.                     values
  31.                        (:in_product_rec.in_product_id,
  32.                         :in_product_rec.in_product_price,
  33.                         :in_product_rec.in_product_name);
  34.       end.
  35.