Pro*C 程序編程

用Pro*C編寫程序與在PB中直接用SQL語句類似，在PB中能用的SQL語法在Pro C中同樣適用，數據庫能用的函數也都可以使用，所有的ＳＱＬ語句都應符合Oracle的語法，只是多一些C語言中的語法和限制，下面是一個最簡單的例子：

/*****************************************************************/
/*程序開始，有一些需要包含的.H文件*/
#include <stdio.h>
#ifdef _WIN32
        #define DLLIMPORT __declspec(dllimport)
        #define DLLEXPORT __declspec(dllexport)
        #define CDECL __cdecl
#else
        #define DLLIMPORT
        #define DLLEXPORT
        #define CDECL
#endif
#define SQLCA_STORAGE_CLASS extern
/*SQL沒有記錄的返回值*/
#define SQLNOTFOUND 1403

/*Pro C必須在每一個程序中寫的語句，SQLCA的大小寫必須所有程序一致*/
EXEC SQL INCLUDE SQLCA;
EXEC ORACLE OPTION (RELEASE_CURSOR = YES); /*該語句可以在Makefile中寫*/
/*有了下面的定義，就不需要進行變量類型的等價了VAR IS STRING()*/
EXEC ORACLE OPTION (CHAR_MAP = STRING); /*該語句可以在Makefile中寫*/
void main()
{
/*聲明需要在SQL語句中使用的變量，這些變量在非SQL中也能使用*/
EXEC SQL BEGIN DECLARE SECTION;

        char szCodeName[41] = ""; /*CHAR變量的長度必須比數據庫中大1*/
  /*對VARCHAR類型必須進行等價說明，否則可能有空格，或設置CHAR_MAP=STRING*/
        EXEC SQL VAR szCodeName IS STRING(41);
  /*指示變量，必須是short int 類型，*/
  short int indCodeName = 0;
  /*與EXEC SQL BEGIN DECLARE SECTION;成對使用*/
  EXEC SQL END DECLARE SECTION;
  /*也可以不需要EXEC SQL BEGIN ／END DECLARE SECTION;，在編譯上控制*/
  strcpy(szConnectString,"jifei/jifei@jifei");
  /*連接數據庫*/
        EXEC SQL connect :szConnectString;
  /*或EXEC SQL CONNECT :szUser IDENTIFIED BY :szPassword using :szDBString;*/
  if (sqlca.sqlcode !=0) /*判斷ＳＱＬ語句是否執行成功*/
  {
   printf("Connect Error , Error Message : %s/n",sqlca.sqlerrm.sqlerrmc);
   exit(0);
  }
        EXEC SQL select code_name into :szCodeName
          from CODE_NAME where rownum = 1;
  if (sqlca.sqlcode < 0) /*判斷ＳＱＬ語句是否執行成功*/
  {
   printf("Connect Error , Error Message : %s/n",sqlca.sqlerrm.sqlerrmc);
   EXEC SQL rollback work release;
   exit(0);
  }
  if (sqlca.sqlcode == SQLNOTFOUND) /*沒有結果，必須用SQLNOTFOUND，不要直接用1403*/
  {
   printf("No Data to Fetch/n");
   EXEC SQL rollback work release;
   exit(0);
  }
        printf("Code_Name = %s./n",szCodeName);
  /*提交併斷開連接*/
        EXEC SQL commit work release;
}
/************************************************************/

一些基本的用法：

１、VARCHAR2型變量的數據定義

如果數據庫中是varchar2型的字段，在Pro*C中類型定義成char szFieldName[n+1]

如果在Makefile文件中的預編譯參數中char_map=STRING則不需要進行類型等價，否則需要進行字符類型的等價定義：

EXEC SQL VAR szFieldName IS STRING(n+1);

如不進行等價，則變量用空格填充。

2、判斷NULL值的方法

在Pro* C中，如某一個字段是NULL值，sqlca.sqlcode是小於０的，所以對可能出現NULL的列在into 語句中用指示變量則sqlca.sqlcode = 0，這時指示變量= -1

EXEC SQL select col1 into :nCol1 :indCol1 ......

if (indCol1 == -1) /*Col1爲NULL，必須處理*/

{ nCol1 = 0;

}

注意 :nCol1:indCol1之間沒有“,”號

3、錯誤處理的方法

在Pro*C中可以對每一條語句判斷其sqlca.sqlcode來做錯誤判斷，也可以用類型Oracle的異常處理的方式：

EXEC SQL WHENEVER SQLERROR goto Error_Exit;

Error_Exit:

EXEC SQL WHENEVER SQLERROR continue; /*停止錯誤處理*/

exec sql rollback;

gf_PrintMess("提款反銷失敗：Point = %d",iBKPoint);

#ifdef _DEBUG_

gf_PrintMess("SQL = %s",szSQL);

#endif

gf_PrintMess("=========提款反銷====Error");

cics_return(-1,ERROR_DB,sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);

return;

對其他錯誤也能進行異常處理定義，如 NOT FOUND，不過，一般不這樣做。這樣所有的SQL語句後會自動判斷sqlca.sqlcode是否小於０，如小於０則goto Error_Exit。在Ｃ語句中是不建議用goto語句的，所以如果一個程序只有一種錯誤處理方式，即只要出錯就返回這麼用也是很方便、很直觀的。

4、結構在SQL語句種的使用

對定義的結構，如與查詢的結果列一致，可以直接使用，如

select a1,a2 into :str_a1a2……

5、數組在ＳＱＬ語句中的使用:

Ａ、FETCH　Cursor中的使用

#define MAX_ACCT_ROWS 10000 /*定義每次處理的用戶數=1萬*/

struct _AcctFund{

ulong ulAcctID[MAX_ACCT_ROWS]; /*付費編號*/

long lBalance[MAX_ACCT_ROWS]; /*存款餘額*/

VARCHAR szRowID[MAX_ACCT_ROWS][20]; /*ACCT_FUND中的ROWID*/

} astrAcctFund;

EXEC SQL FOR :MAX_ACCT_ROWS FETCH Cur_fund INTO

:astrAcctFund.ulAcctID,

:astrAcctFund.lBalance,

:astrAcctFund.szRowID[0];

iRows_fund = sqlca.sqlerrd[2]; /*記錄數*/

Ｂ、Insert 中使用

int nID[100] ;

EXEC SQL FOR 100 insert into t_a values (:nID);

Ｃ、Where 中使用

int nID[100];

EXEC SQL for 100 delete from t_a where id = :nID;

Ｄ、動態語句中使用

int nID[100];

strcpy(szSql,”insert into t_a values(:v1)”);

EXEC SQL PREPARE st_EXE_Sql FROM :szSql;

EXEC SQL FOR 100

EXECUTE st_EXE_print using :nID;

E、結構數組的使用

struct _S_TYPE {

int nCodeId;

char szCodeName[41];

}s_Type[100];

_S_TYPE *psType = &s_Type[0]; /*必須定義一個指針*/

EXEC SQL for 100

select code_id,code_name into :psType

from CODE_ID_NAME where rownum <= 100;

這種用法比使用數組結構簡單，但要求select的列數與數組結構的列數一致。

6、Pro C中使用存儲過程

EXEC SQL EXECUTE

BEGIN

up_db_pay_open(:iPartID,:aszAcctID,0,1,:aszOperSerialNbr,

:aszStaffID,2,:iPartOpen,:aszOweState,

:iErrPB,:lErrSys,:szErrSysMsg);

END;

END-EXEC;

7、Pro C程序的編譯

#####################################

proc.mk，Pro C程序的編譯 Makefile,makefile

make

test1.mk

make –f test1.mk [test1]

#####################################

#ORACLE_HOME = /oracle/app/oracle/product/8.0.6

PROC_PL = $(ORACLE_HOME)/bin/proc parse=FULL release_cursor=no USERID=bill/AC6C69626 sqlcheck=SEMANTICS char_map=STRING ireclen=512 iname=

#如果在Pro*C中沒有使用存儲過程，SQLCHECK可以等於syntax

CCFLAGS = -L$(ORACLE_HOME)/lib -lclntsh -lm -lld -D_DEBUG_

COMPILE = xlc_r4 -c $(CICSFLAGS) $(CCFLAGS) -o

.SUFFIXES: .pc .c .o

.pc.c:

$(PROC_PL) $<

.c.o:

$(CC) $(CCFLAGS) -c $<

.pc.o:

$(PROC_PL) $<

$(CC) $(CFLAGS) -c $(<:.pc=.c)

test : test.o fbillpub.o

$(COMPILE) test.o –o test

#define MAX_ACCT_ROWS 10000 /*定義每次處理的用戶數=1萬*/

struct _AcctFund{

ulong ulAcctID[MAX_ACCT_ROWS]; /*付費編號*/

long lBalance[MAX_ACCT_ROWS]; /*存款餘額*/

VARCHAR szRowID[MAX_ACCT_ROWS][20]; /*ACCT_FUND中的ROWID*/

} astrAcctFund;

EXEC SQL FOR :MAX_ACCT_ROWS FETCH Cur_fund INTO

:astrAcctFund.ulAcctID,

:astrAcctFund.lBalance,

:astrAcctFund.szRowID[0];

iRows_fund = sqlca.sqlerrd[2]; /*記錄數*/

Pro*C 程序編程

cat命令使用及實現

STL-----錯誤(error)處理和異常(exception)處理

main()函數輸入參數的含義與介紹

C中string中一些基本函數的介紹與實現

Pro*C 程序編程

Mac下配置sublime實現LaTeX

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結