MINERVA superseeded IF/Prolog.
Please see
http://www.ifcomputer.co.jp/MINERVA
for details.
We discontinued to sell IF/Prolog Dec 31. 2003.
For current customers, we continue to provide
professional support for IF/Prolog until Dec 31, 2008.
?- SqlCmd = 'INSERT INTO EMP (ENAME, JOB, DEPNO, SALARY)
VALUES (:name,:dep,:sal) ',
sql_declare(c2,SqlCmd,NoIn,NoOut,RC).
NoIn = 3
NoOut = 0
RC = 0
?- sql_descr_in(c2, 1='SMITH',sal=29500.50,dep=20 ),
sql_open(c2,RC).
RC = 0
バインド変数に値が与えられました。
?- sql_open(c2,RC).
RC = 0
'SMITH'のタプルを、テーブル'EMP'に加えました。指定されなかったコラムには、NULL値が割り当てられます。
?- sql_descr_in(c2, 1='SCOTT',sal='61098.0',dep='20' ),
sql_open(c2,RC).
RC = 0
バインド変数は、任意のアトミックな項で具体化することができます。
?- sql_open(c2,RC).
RC = 0
2番目のタップルとして従業員'SCOTT'を加えました。
?- sql_commit(RC).
RC = 0
データベースのトランザクションを完了し、変更内容をデータベースに書き込みました。以後、データベースの全てのユーザーが、新しいデータを使用することになります。
|
