Proc问题， 如何使用动态语句创建Cursor

kelvin

方案一没问题
方案二总提示ora-1001错。请高手看看问题出在哪里？

1. 
   
2. #include <stdio.h>
   
3. //test.pc
   
4. EXEC SQL INCLUDE SQLCA;
   
5. EXEC SQL INCLUDE SQLDA;
   
6. 
   
7. int main(int argc, char* argv[])
   
8. {       
   
9.         EXEC SQL BEGIN DECLARE SECTION;
   
10.         int cnt=0;
    
11.         char username[20];
    
12.         char password[20];
    
13.         char *databasename = "GSM";
    
14.         char v_tabname[30];
    
15.         char sql[2000];
    
16.         EXEC SQL END DECLARE SECTION;
    
17.        
    
18.        
    
19.         strcpy(username,"SCOTT");
    
20.         strcpy(password, "TIGER");
    
21.         strcpy(sql, "select table_name from user_tables");
    
22.         printf("sql=%s\n",sql);
    
23.        
    
24.         EXEC SQL PREPARE stmt FROM :sql;
    
25.        
    
26.         /*方案一*/
    
27.                 EXEC SQL DECLARE C CURSOR  for select table_name from user_tables;
    
28.         /*方案二*/
    
29.                 EXEC SQL DECLARE C CURSOR  for stmt ;
    
30.        
    
31.         EXEC SQL CONNECT :username IDENTIFIED BY :password USING :databasename;
    
32.         EXEC SQL SELECT count(*) into :cnt FROM dual;
    
33.         printf("count of dual: %d\n", cnt);
    
34.                
    
35.         EXEC SQL OPEN C;
    
36.         while(1)
    
37.         {
    
38.                 EXEC SQL FETCH C into :v_tabname;
    
39.                 if(sqlca.sqlcode ){
    
40.                         printf("sqlca.sqlcode=%d\n",sqlca.sqlcode);
    
41.                         break;
    
42.                 }
    
43.                 /*
    
44.                 if(sqlca.sqlcode < 0) {
    
45.                         perror("fetching data error");
    
46.                         EXEC SQL ROLLBACK WORK RELEASE;
    
47.                         exit(sqlca.sqlcode);
    
48.                 }
    
49.                 */
    
50.                 printf("Table_name: %s\n", v_tabname);
    
51.                
    
52.         }
    
53.         EXEC SQL ROLLBACK WORK RELEASE;
    
54. }
    

复制代码

chen_gxing

如果把方案二的语句，放在EXEC SQL OPEN C;之前，
是否有改善。

ketos

--先连接数据库
--拼好SQL
sprintf(SqlStmt, "select BUSISN, SvcNum, KEYID, CustId, BUSITYPE,substr(KEYID,1,1) AreaID,deptid,to_char(optdate,'YYYYMMDD HH24:MI:SS') from BOSS.T_INTER_ASYBUSIINFO where RMKI='1' AND KEYID like '%s%%' order by optdate ",V_AreaID);
--OPEN CURSOR
EXEC SQL AT :bossDB DECLARE STA_AREASvcNum STATEMENT;
EXEC SQL  PREPARE STA_AREASvcNum FROM :SqlStmt;       
EXEC SQL  DECLARE C_AREASvcNum  CURSOR FOR STA_AREASvcNum;       
EXEC SQL  OPEN  C_AREASvcNum;