proc/c++(二)

1. 指示变量:当数据库中的字段值赋值给宿主变量时 赋值的
状态可以通过指示变量得到。
exec sql select 字段 into :宿主变量:指示变量
    from  表  where 条件;
exec sql select 字段 into :宿主变量 indicator :指示变量
    from  表  where 条件;
==0  正常
==-1 数据库中的字段值是NULL值
>0   截断赋值  尽量避免

#include <stdio.h>
exec sql  include sqlca;
int main(){
    exec sql  begin declare section;
		    char userpasswd[30]="username/passwd";
		    char var_name[30];
				int  mid=-1;
				/* 指示manager_id 赋值给mid */
				short indmid=0;
		exec sql  end   declare section;
		exec sql  connect:userpasswd;
		exec sql  select  first_name,manager_id
        into :var_name,:mid:indmid from s_emp
				where  id=2;
		printf("var_name=%s\n",var_name);
    printf("mid=%d,indmid=%hd\n",mid,indmid);
		exec sql commit work release;		
}

2. 数组变量：
(1)proc 只支持一维数组 ,字符除外
(2)proc  不支持数组指针
(3)最大元素数 32767
(4)数组变量在select语句中使用时 只能给出数组名 不能
给下标。
把s_emp 表中所有的first_name,commission_pct 
分别放入两个数组中  然后指示提成的赋值状态

#include <stdio.h>
exec sql include sqlca;
int main(){
    exec sql  begin declare section;
		    char userpasswd[30]="username/passwd";
		    /* 定义两个数组放名字和提成 */
				char var_names[50][30];
				double cpcts[50]={0};
				/* 指示提成的数组 */
				short  indcpcts[50]={0};
		exec sql  end   declare section;
    exec sql  connect:userpasswd;
		exec sql  select first_name,commission_pct
				into :var_names,:cpcts:indcpcts 
				from s_emp;
		/* 输出数组中的数据 */
		int  i=0;
		for(i=0;i<50;i++){
    printf("%s:%lf:%hd\n",var_names[i],
						cpcts[i],indcpcts[i]);
		}
		exec sql commit work release;
}

3. 可以从sqlca中获得sql语句影响的行数据
sqlca通信区
sqlca.sqlerrd[2]  sql语句影响的行数
sqlca.sqlcode     sql语句执行状态
    ==0   sql语句执行正常
    >0    异常发生  一般是违反约束
    <0    数据库本身出错 或者 网络错误
sqlca.sqlerrm.sqlerrmc  得到sql执行出错原因

exec sql update   account set money=money-5000 
where ano='A';
int  a=sqlca.sqlcode;
exec sql update   account set money=money+5000 
where ano='B';
int  b=sqlca.sqlcode;
if(a==0 && b==0){
    commit;
}else{
    rollback;
}

-----------------------------------------------
oraca   也是一个通信区  它是对sqlca的信息补充
        资源消耗比较大  所有这个通信区默认关闭。
1.包含oraca
   exec sql  include oraca;
2.打开oraca通信区
   exec oracle option(oraca=yes);
3.设置sql语句的保存状态
   oraca.orastxtf 
   0   默认的  不保存sql
   1   sql出错时保存
   2   sql出现警告保存
   3   无论什么情况都保存
4.从oraca中得到sql文本
   oraca.orastxt.orastxtc  

#include <stdio.h>
exec sql include  sqlca;
exec sql include  oraca;
exec oracle  option(oraca=yes);
int main(){
    oraca.orastxtf=3;
		exec sql  begin declare section;
		    char  userpasswd[30]="openlab/open123";
				char  var_name[30];
				int   var_id=10;
		exec sql  end   declare section;
		exec sql  connect:userpasswd;
		exec sql  select first_name into :var_name 
				from s_emp where id=:var_id;
    printf("%s\n",oraca.orastxt.orastxtc);
		exec sql  commit work release;
}

--------------------------------------
4. 数据库的连接
本地连接：
exec sql  connect:userpasswd;  
exec sql  connect:username  
    identified by :password;
远程连接:
a.相关的文件
$ORACLE_HOME/network/admin/tnsnames.ora
当有多个数据库连接时  需要使用at 来区分不同连接
这种数据库连接 要使用$ORACLE_HOME/network/admin/
tnsnames.ora 中的数据库描述。 在proc中需要使用关键字
using使用这个描述。但有多个数据库连接时,要使用贴
标签的方式来区分这些具体的连接。在以后的每个sql
操作前都使用 at 关键字指定连接。

#include <stdio.h>
exec sql include sqlca;
int main(){
    exec sql  begin declare section;
		    char userpasswd[30]="username/passwd";
				/* 这是保存远程数据库数据的变量 */
				char var_name[30];
				/* 远程数据库描述 */
				char rdbdes[20]="CAH_192.168.0.26";
		exec sql  end   declare section;
		/* 直接和rdbdes对应的远程数据库 建立连接*/
		exec sql connect:userpasswd using :rdbdes;
		/* 这是从192.168.0.26主机上取得数据 */
    exec sql select first_name into :var_name
				from s_emp where id=1;
    printf("var_name=%s\n",var_name);
		exec sql  commit work release;
}

多个数据库连接

#include <stdio.h>
exec sql include sqlca;
int main(){
    exec sql  begin declare section;
		    char userpasswd[30]="username/passwd";
				/* 这是保存远程数据库数据的变量 */
				char var_name[30];
				/* 远程数据库描述 */
				char rdbdes[20]="CAH_192.168.0.26";
				/* 制造标签 */
				char db23[20]="db23";
				char db26[20]="db26";
		exec sql  end   declare section;
		/* 直接和rdbdes对应的远程数据库 建立连接*/
		exec sql connect:userpasswd at :db26 using :rdbdes;
		exec sql connect:userpasswd at :db23;
		/* 这是从192.168.0.26主机上取得数据 */
    exec sql at:db26 select first_name into :var_name
				from s_emp where id=1;
    printf("db26 var_name=%s\n",var_name);
		/* 要从23数据库连接上取得数据 */
    exec sql at:db23 select first_name into :var_name
				from s_emp where id=1;
		printf("db23 var_name=%s\n",var_name);
		exec sql at:db26 commit work release;
		exec sql at:db23 commit work release;
}

b.使用数据库链的方式

  (1)建立链接

create  database  link   链接名  connect to 用户名

  identified  by  密码  using 
  '(DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.0.26)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = ***)
    )';
 在192.168.0.26 的sqlplus中建立一个数据库链接
 叫my26link 
 create   database link   my26link connect to 
 username  identified by  passwd using 
 '(DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.0.26)(PORT = 1524))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = ***)

    )';

  在192.168.0.20 的sqlplus中建立一个数据库链接
 叫my20link 
 create   database link   my20link connect to 
 openlab  identified by  open123 using 
 '(DESCRIPTION =
  (ADDRESS_LIST =
    (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.0.20)(PORT = 1521))
  )
  (CONNECT_DATA =
    (SERVER = DEDICATED)
    (SERVICE_NAME = ***)
  )
)'; 
  
  2.在proc中使用这些链接
   exec  sql  select first_name into :var_name 
       from 表@链接名 where id=1;
   exec  sql  update   表名@链接名  set 
       字段=值,字段=值 where 条件;
   exec  sql  commit;
   远程数据库事务 完全交给本地数据库来控制

#include <stdio.h>
exec sql include sqlca;
/* 在本地数据库中已经建立好了两个
 链接 db20link  db26link */
int main(){
    exec sql begin  declare section;
		    char userpasswd[30]="openlab/open123";
		    char var_name[30];
		exec sql end    declare section;
		/* 连接到本地数据库 */
    exec sql connect:userpasswd;
    exec sql select first_name  into :var_name
			  from s_emp where id=1;
    printf("23db var_name=%s\n",var_name);
		exec sql select first_name  into :var_name
				from s_emp@my20link where id=1;
    printf("20db var_name=%s\n",var_name);
    exec sql select first_name  into :var_name
			  from s_emp@my26link where id=1;
    printf("26db var_name=%s\n",var_name);
    exec sql  commit work release;
}