嵌入SQL

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

以下是详细的代码：

#include <stdio.h>
/* 以下这部分是声明主机变量，它将使用于程序中*/
EXEC SQL BEGIN DECLARE SECTION;
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");
        exit();
    }
    printf("Connected to database server.\n");
    /* 下面声明一个 "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;
    while(!sqlca.sqlcode) 
    {
        EXEC SQL UPDATE ANTIQUES
        SET PRICE = PRICE + 5
        WHERE ITEM = :Item AND BUYERID = :BuyerID;
        EXEC SQL SELECT OWNERFIRSTNAME, 
        OWNERLASTNAME
        INTO :FirstName, :LastName
        FROM ANTIQUEOWNERS
        WHERE BUYERID = :BuyerID;
        printf("%25s %25s %25s",FirstName, LastName, Item);
        EXEC SQL FETCH ItemCursor INTO :Item, :BuyerID;
    }
    /* 关闭CURSOR，提交变化并退出程序。*/
    EXEC SQL CLOSE DataCursor;
    EXEC SQL COMMIT RELEASE;
    exit();
}