Pro*c在oracle10g上的第一个入门测试程序

  

Pro*c在oracle10g上的第一个入门测试程序

开发运行环境

oracle10g 10.2.0  fedora core 6.0

oracle10g 10.2.0 fedora core 5.0

windows xp sp2

gcc

proc

1 makefile

 

LIBPATH =   - L$(ORACLE_HOME) / lib /
LIBS =- lclntsh `cat $(ORACLE_HOME) / lib / sysliblist`  - ldl –lm
 
CC = gcc
CFLAGS =   - o
 
test:test.pc
       proc parse = no iname = test.pc include = $(ORACLE_HOME) / precomp / public
       $(CC) $(CFLAGS) $@ $@.c  - I$(ORACLE_HOME) / precomp / public   - L$(ORACLE_HOME) / lib  - lclntsh  - lclient8 $(LIBPATH) $(LIBS)
       rm tp ??????

 

避免 PCC-S-02015 , unable to open include file的问题-->parse=no，主要检查$HOME/precomp/admin/pcscfg.cfg 内容如下（多线程问题）: 

sys_include=($ORACLE_HOME/precomp/public,/usr/include,/usr/lib/gcc-lib/i386-redh

at-linux/3.2.3/include)

include=用户定义的库头文件目录或者要引用的头文件目录

ltype=short

 

2 本机程序(应用程序和数据库服务器同一台机)

test.pc

#include  < stdio.h >

EXEC SQL INCLUDE SQLCA;

int  main( void )
... {
     EXEC SQL BEGIN DECLARE SECTION;
     VARCHAR user[20],pass[20],tnsname[20];
     char ename[10];
     int empno;
     EXEC SQL END DECLARE SECTION;
     
     int i=0;
     
     strcpy(user.arr,"scott");
     user.len=(unsigned short)strlen((char *)user.arr);
     strcpy(pass.arr,"tiger");
     pass.len=(unsigned short)strlen((char *)pass.arr);
     strcpy(tnsname.arr,"MYDATA");
     tnsname.len=(unsigned short)strlen((char *)tnsname.arr);
     
     EXEC SQL CONNECT :user IDENTIFIED BY :pass USING :tnsname;
     if( sqlca.sqlcode < 0)
...{
       printf(“ connect error ”);
       EXEC SQL commit work release;
       return -1;
}

     EXEC SQL declare emp_cursor cursor for
                  select empno,ename from scott.emp;
     if( sqlca.sqlcode < 0)
...{
       printf(“ declare error ”);
       EXEC SQL commit work release;
       return -1;
}
     EXEC SQL open emp_cursor;
     if( sqlca.sqlcode < 0)
...{
       printf(“ open error ”);
       EXEC SQL commit work release;
       return -1;
}

     EXEC SQL WHENEVER NOT FOUND DO break;

     while(1)
     ...{
           EXEC SQL fetch emp_cursor into :empno,:ename;
 if( sqlca.sqlcode < 0)
...{
       printf(“ fetch error:[%s] ”, sqlca.sqlerrm.sqlerrmc);;
       EXEC SQL commit work release;
       return -1;
}
           printf("The empno %d's name is %s ",empno,ename);
           i=i+1;
     }
     
     printf("Yeah!We get %d records ",i);

     EXEC SQL close emp_cursor;
      if( sqlca.sqlcode < 0)
...{
       printf(“ close error ”);
       EXEC SQL commit work release;
       return -1;
}
     EXEC SQL commit work release;
return 0;
}

 

 

  tnsnames.ora

 

# Generated by Oracle configuration tools.

 

MYDATA  =
 (DESCRIPTION  =
    (ADDRESS  =  (PROTOCOL  =  TCP)(HOST  =  zhang.sirius.com)(PORT  =   1521 ))
    (CONNECT_DATA  =
      (SERVER  =  DEDICATED)
      (SERVICE_NAME  =  MyData)
    )
 )
 
EXTPROC_CONNECTION_DATA  =
 (DESCRIPTION  =
    (ADDRESS_LIST  =
      (ADDRESS  =  (PROTOCOL  =  IPC)(KEY  =  EXTPROC1))
    )
    (CONNECT_DATA  =
      (SID  =  PLSExtProc)
      (PRESENTATION  =  RO)
    )
 )

3 c/s结构

Client(fc5.0)应用程序如上

将 strcpy(tnsname.arr,"MYDATA");

改为strcpy(tnsname.arr, “MYDATA_FERTILAND”)

此时修改客户端的$ORACLE_HOME/network/admin/tnsnames.ora

Makefile沿用上面的

# Generated by Oracle configuration tools.
MYDATA  =
 (DESCRIPTION  =
    (ADDRESS  =  (PROTOCOL  =  TCP)(HOST  =  zhang.sirius.com)(PORT  =   1521 ))
    (CONNECT_DATA  =
      (SERVER  =  DEDICATED)
      (SERVICE_NAME  =  MyData)
    )
)
 
MYDATA_FERTILAND  =
 (DESCRIPTION  =
    (ADDRESS  =  (PROTOCOL  =  TCP)(HOST  =  fertiland.sirius.com)(PORT  =   1521 ))
    (CONNECT_DATA  =
      (SERVER  =  DEDICATED)
      (SERVICE_NAME  =  MyData)
    )
 )
 
EXTPROC_CONNECTION_DATA  =
 (DESCRIPTION  =
    (ADDRESS_LIST  =
      (ADDRESS  =  (PROTOCOL  =  IPC)(KEY  =  EXTPROC1))
    )
    (CONNECT_DATA  =
      (SID  =  PLSExtProc)
      (PRESENTATION  =  RO)
    )
)

4

VC下利用Pro*C开发Oracle接口 http://www.linuxmine.com/51925.html

 

程序参考

http://blog.csdn.net/NinGoo/archive/2005/10/12/501053.aspx  期望没冒犯您,在此谢过.如觉不妥,邮件通知.