Vlo₧enφ p°φkaz∙ SQL do programu

Pro vlo₧enφ jedno°ßdkovΘho SQL p°φkazu do programu slou₧φ direktiva sql. Zapisuje se takto:

#sql p°φkazy v jazyce SQL

P°φklad:

#sql CALL ZrusitReservaci(:<limitRez)

nebo mφsto

if YesNo_box("Varovßnφ",syesno) then begin
   sdel := "DELETE FROM Registr WHERE cislo="+Int2str(cisadr);
   if SQL_execute(sdel) then Signalize;

lze psßt

if YesNo_box("Varovßnφ",syesno) then begin
#sql DELETE FROM Registr WHERE cislo=:<cisadr

Pokud chcete zadat p°φkazy na vφce °ßdkßch, pou₧ijte direktivy sqlbegin a sqlend takto:

#sqlbegin
p°φkazySQL
......
p°φkazy SQL
#sqlend

Takto zadanΘ p°φkazy SQL se provedou stejn∞, jako kdyby byly uvedeny jako parametr funkce SQL_execute. Zadßte-li vφce p°φkaz∙ v jednΘ direktiv∞, vÜechny se provedou v jednΘ transakci. Informaci o p°φpadnΘ chyb∞ p°i jejich provßd∞nφ lze zobrazit v okn∞ pomocφ funkce Signalize.

P°φklad:

#sqlbegin
 BEGIN ATOMIC "
   DECLARE i INT; 
   SET i = 1; 
   WHILE i <= 10 DO 
    INSERT INTO Tab3 (cislo) VALUES (i); 
    SET i = i + 1; 
   END WHILE; 
 END
#sqlend

Viz takΘ:	KompilaΦnφ direktivy a makra
	SQL ve vnit°nφm programovacφm jazyce