Josef Troch (troch@mail.ru)
23.10.2002 (poslední změna 4.11.2002)

1. Vytvoření programu v C / C++ obsahujícího embedded SQL (dle konvence by se měl jmenovat filename.pc)
2. Prekompilace programu pomocí Pro*C/C++ (vznikne nám soubor filename.c)
3. Kompilace programu (standartním C či C++ kompilátorem)
4. Slinkování s Oracle run-time knihovnou

• Prekompilace: proc INAME=filename.pc
• Kompilace: gcc -c -I $ORACLE_HOME/precomp/public/ filename.c
• Slinkování: je složitější - je třeba přilinkovat řadu knihoven, proto je asi nejjednodušší použít předpřipravený skript $ORACLE_HOME/bin/pcc (z webu stáhnutelná kopie zde). Skript zajišťuje všechny 3 fáze - tedy prekompilaci, kompilaci i linkování - na vstupu očekává jméno souboru (příponu .pc si doplní sám), vytvoří stejnojmenný (bez přípony) spustitelný soubor. Jednoduchou úpravou získáte skript, který bude zvládat i více vstupních souborů. Autorem skriptu je Mgr M. Kopecký.

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sqlda.h>
#include <sqlcpr.h>
#include <sqlca.h>


EXEC SQL BEGIN DECLARE SECTION;
/* Hostitelske promenne: */
VARCHAR     username[20];
VARCHAR     password[20];
VARCHAR     name[20];
VARCHAR     job[20];

/* Indikatorove promenne: */
short nameIndicator;

EXEC SQL END DECLARE SECTION;

int main()
{
    strncpy((char *) username.arr, "user", 20);
    username.len = (unsigned short) strlen((char *) username.arr);

    strncpy((char *) password.arr, "password", 20);
    password.len = (unsigned short) strlen((char *) password.arr);


    EXEC SQL CONNECT :username IDENTIFIED BY :password;

    EXEC SQL SELECT ename, job
      INTO :name:nameIndicator, :job
      FROM EMP WHERE EMPNO = '7934';

    printf("Name:        Job:\n");
    if (nameIndicator == -1) printf("NULL");
    else printf("%s", name.arr);

    printf("   %s", job.arr);

    EXEC SQL ROLLBACK WORK RELEASE;

    return 0;
}

• jednořádkové komentáře typu:
  -- Toto je komentar.
• a (potencielně) víceřádkové komentáře typu:
  /* Toto je taky komentar. .... */

EXEC SQL BEGIN DECLARE SECTION;
    VARCHAR name[20];
    ...
    ...
EXEC SQL END DECLARE SECTION;

• EXEC SQL INSERT INTO ctenari (id, jmeno, prijmeni) VALUES (:myId, :myJmeno, :myPrijmeni);
• EXEC SQL SELECT jmeno, prijmeni
  INTO :myJmeno:myJmenoIndikator, :myPrijmeni:myPrijmeniIndikator FROM ctenari WHERE id=:myId;
  Pozn.: Předpokládáme-li, že myJmeno a myPrijmeni jsou jednoduchého typu, musí tento SELECT vracet pouze jednu hodnotu. Může-li tento vracet více hodnot, je třeba použít kursor (viz níže) nebo pole, do kterého nám Oracle nasype hodnoty odpovídající jednotlivým řádkům.

• EXEC SQL DECLARE CURSOR cursorCtenari FOR
  
    SELECT jmeno, prijmeni FROM cursorCtenari WHERE id = :myId;
  
  EXEC SQL OPEN cursorCtenari;
  
  
  for(;;)
  {
    EXEC SQL FETCH cursorCtenari INTO :myJmeno,:myPrijmeni
    if (sqlca.sqlcode != 0) break;
  }
  
  EXEC SQL CLOSE cursorCtenari;
  

  Příklad použití kursoru. Struktura sqlca slouží k obsluze běhových chyb, je třeba includovat header sqlca.h

• Dokumentace k Oraclu 8.1.5.