在VC中构造Pro*C的开发环境

    用Pro*C开发Oracle数据库的应用程序，可以在源代码中同时使用SQL语句和C语句；一般这种源文件的后缀名为*.pc；要编译这种文件首先要用Pro*C的预编译器（Oracle10g的预编译器proc.exe）将pc文件编译生成C/C++代码的文件。这个过程就是把SQL语句部分转换成C语言的形式,而其它部分则不变。最后通过链接Pro*C的库文件（Oracle10g的库文件为orasql10g.lib）生成可执行程序。针对不同的Oracle数据库，最好使用相应的预编译器和链接库。要开发Pro*C应用程序，必须安装Oracle Pro*C的开发环境，一般安装好Oracle服务器或客户端后都自带了；要执行Pro*C应用程序，必须在执行机上安装好Oracle服务器或客户端，并正确配置Oracle_Home/NETWOK/ADMIN/tnsnames.ora文件，因为Pro*C应用程序执行时要到Oracle_Home目录中读取这个文件的oracle服务器IP（或机器名）、协议、数据库实例（SID）等信息。
    下面以Oracle10g为例配置Pro*C的开发环境。
    安装好Oracle10g后有一个Oracle工作目录叫Oracle_Home如：E:/oracle/product/10.2.0/db_1，在VC的Tools/Option/Directory中分别将Oracle_Home/Bin、Oracle_Home/ precomp/public、Oracle_Home/precomp/lib加到Excutable Files、Include Files、Library Files选项中。然后在工程中新建一个pc文件，如db.pc，在File view中选中此文件，右击/Option/Custom Buid，在Commands中输入proc DB.pc oname=DB.cpp，在Outpus中输入DB.cpp，最后将orasql10.lib添加到工程中，这样就可以在db.pc文件中编写SQL和C/C++代码，编译工程的时候，如果db.pc文件发生改变，则会重新生成DB.cpp文件，注意在DB.cpp时在db.pc内容的前面加了一段C语言的代码，如果要用C++的形式编译则要将这一段用exter “C”{}括起来

Pro*C的连接：
#include <sqlda.h>
EXEC SQL INCLUDE sqlca;
void sql_error()
{
 char err_msg[128L];
 int buf_len, msg_len;
 EXEC SQL WHENEVER SQLERROR CONTINUE;
 buf_len=sizeof(err_msg);
 sqlglm(err_msg, &buf_len, &msg_len);
 printf("%.*s", msg_len, err_msg);
 EXEC SQL ROLLBACK RELEASE;
}

BOOL _Connect(char *pcConnectionString)
{
 EXEC SQL BEGIN DECLARE SECTION;
  VARCHAR  varConnectionString[64L] ;
 EXEC SQL END DECLARE SECTION;

 strcpy((char *)varConnectionString.arr, pcConnectionString);
 varConnectionString.len = (unsigned short)strlen((char *)varConnectionString.arr);

 EXEC SQL CONNECT :varConnectionString;
 if (sqlca.sqlcode < 0L)
 {
  sql_error();
  return FALSE;
 }

 return TRUE;
}
pcConnectionString的写法为用户名/密码@服务名如sys/123@orcl,其中服务名为tnsnames.ora文件中的服务名，如：

orcl =    #此即为服务名
  (DESCRIPTION =
    (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.2)(PORT = 1521))
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = orcl_sid)
    )
  )

游标的使用：
BOOL ZZZB0101(vector<CZZZB0101Fields>& vecFields)
{
 CStuednts students;
 EXEC SQL BEGIN DECLARE SECTION;
  char acID[8L];
  char acName[8L];
  int  nAge;
 EXEC SQL END DECLARE SECTION;

 EXEC SQL DECLARE cur_Student CURSOR FOR
  SELECT
   ID，
   NAME,
   Age,
  FROM
   Student
  WHERE
   ID = GM.SYOKUIN_CD
 ORDER BY
  ID;

 EXEC SQL OPEN cur_Student;

 if (sqlca.sqlcode < 0L)
 {
  sql_error();
  return FALSE;
 }

 for ( ; ; )
 {
  EXEC SQL WHENEVER NOT FOUND DO break;
  EXEC SQL FETCH cur_Student 0101 INTO
   :acID,
   :acName,
   :nAge

  CSudent student
student.ID =  acID;
student. Name =  acName;
student. nAge =  nAge;

  students.push_back(student);
 }

 EXEC SQL CLOSE cur_Student;

 return TRUE;
}

在同一个PC文件中不能使用相同名的游标

 

作者: 王伟 xbdtb@163.com