EEPW论坛

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