---

嵌入SQL
为了更好的理解嵌入SQL，本节利用一个具体例子来说明。嵌入SQL允许程序连接数据库并且包括SQL代码到程序中，这样在程序中就可以对数据库进行使用、操作以及处理数据等等。以下是用C语言编写的使用嵌入SQL的例程，它将打印一个报告；这个程序必须在普通的编译之前先预编译SQL语句。嵌入SQL对于不同系统是不一样的，所以在不同的系统中对以下的程序稍作修改，特别是变量的声明以及过程记录等。在嵌入SQL时，考虑网络、数据库管理系统、操作系统是相当重要的。
以下是详细的代码：
[color=#FFFFFF'][/color]

#include <stdio.h>
/* 以下这部分是声明主机变量，它将使用于程序中*/
EXEC SQL BEGIN DECLARE SECTION;
[color=#FFFFFF'][/color]

int BuyerID;
char FirstName[100], LastName[100], Item[100];
EXEC SQL END DECLARE SECTION;

/* 以下包括SQLCA变量，它可以用来进行错误检查 */
EXEC SQL INCLUDE SQLCA;
main() {
/* 以下连接数据库*/
EXEC SQL CONNECT UserID/Password;
/* 以下是连接数据库并检查是否有错误产生T */ if(sqlca.sqlcode) {
printf(Printer, "Error connecting to database server.\n");
[color=#FFFFFF'][/color]

exit();
}
[color=#FFFFFF'][/color]

printf("Connected to database server.\n");
[color=#FFFFFF'][/color]

/* 下面声明一个 "Cursor"。它将在查询结果多于一行的时候使用*/
EXEC SQL DECLARE ItemCursor CURSOR FOR
SELECT ITEM, BUYERID
FROM ANTIQUES
ORDER BY ITEM;
EXEC SQL OPEN ItemCursor;
/* 你可以在这里还可以加入另外一些错误检查的内容，这里就省略了*/
/* 当这个CURSOR没有数据， sqlcode将被产生以允许我们退出循环。这里注意，为了简单起见，我们使程序遇到错误的时候就退出任何的sqlcode。*/
EXEC SQL FETCH ItemCursor INTO :Item, :BuyerID;
[color=#FFFFFF'][/color]

while(!sqlca.sqlcode) {
EXEC SQL UPDATE ANTIQUES
SET PRICE = PRICE 5
WHERE ITEM = :Item AND BUYERID = :BuyerID;
EXEC SQL SELECT OWNERFIRSTNAME, OWNERLASTNAME
[color=#FFFFFF'][/color]

INTO :FirstName, astName
FROM ANTIQUEOWNERS
WHERE BUYERID = :BuyerID;
printf("%s %s %s", FirstName, LastName, Item);

EXEC SQL FETCH ItemCursor INTO :Item, :BuyerID;
}
/* 关闭CURSOR，提交变化并退出程序。*/
EXEC SQL CLOSE DataCursor;
EXEC SQL COMMIT RELEASE;
[color=#FFFFFF'][/color]

exit();
}