Chinaunix首页 | 论坛 | 博客
  • 博客访问: 5404757
  • 博文数量: 763
  • 博客积分: 12108
  • 博客等级: 上将
  • 技术积分: 15717
  • 用 户 组: 普通用户
  • 注册时间: 2007-09-28 21:21
个人简介

业精于勤,荒于嬉

文章分类

全部博文(763)

文章存档

2018年(6)

2017年(15)

2016年(2)

2015年(31)

2014年(14)

2013年(87)

2012年(75)

2011年(94)

2010年(190)

2009年(38)

2008年(183)

2007年(28)

分类:

2008-09-12 08:56:57

file: demo1.pgc demo2.pgc

编译:ecpg -c demo1.pgc
cc -o demo1 demo1.c -lecpg


EXEC SQL INCLUDE sqlca;
int main()
{
 EXEC SQL CONNECT TO mydb AS connect1 USER project06;
 if(sqlca.sqlcode!=0)
 {
  fprintf(stderr, "error %ld", sqlca.sqlcode);
  return(1);
 }

 EXEC SQL BEGIN DECLARE SECTION;
  struct str_r{
  int id;
  char name[31];
  }var1;
 EXEC SQL END DECLARE SECTION;

 EXEC SQL DECLARE foo CURSOR FOR SELECT ID, NAME FROM Account;
 if(sqlca.sqlcode!=0 && sqlca.sqlcode !=100)
 {
  fprintf(stderr, "select error %ld", sqlca.sqlcode);
  EXEC SQL DISCONNECT connect1;
  return(1);
 }
 
 EXEC SQL OPEN foo;
 while(sqlca.sqlcode!=100)
 {
  EXEC SQL FETCH NEXT FROM foo INTO :var1;
  if(sqlca.sqlcode!=0 && sqlca.sqlcode !=100)
  {
   fprintf(stderr, "fetch error %ld", sqlca.sqlcode);
   EXEC SQL DISCONNECT connect1;
   return(1);
  }
  fprintf(stdout, "\nID: %d name;%s", var1.id, var1.name);
 }
 EXEC SQL CLOSE foo;
 EXEC SQL DISCONNECT connect1;
  
}

EXEC SQL INCLUDE sqlca;
int main()
{
 EXEC SQL CONNECT TO mydb AS connect1 USER project06;
 if(sqlca.sqlcode!=0)
 {
  fprintf(stderr, "error %ld", sqlca.sqlcode);
  return(1);
 }

 EXEC SQL BEGIN DECLARE SECTION;
  int id;
  char name[31];
 EXEC SQL END DECLARE SECTION;

 EXEC SQL DECLARE foo CURSOR FOR SELECT ID, NAME FROM Account;
 if(sqlca.sqlcode!=0 && sqlca.sqlcode !=100)
 {
  fprintf(stderr, "select error %ld", sqlca.sqlcode);
  EXEC SQL DISCONNECT connect1;
  return(1);
 }
 
 EXEC SQL OPEN foo;
 while(sqlca.sqlcode!=100)
 {
  EXEC SQL FETCH NEXT FROM foo INTO :id, :name;
  if(sqlca.sqlcode!=0 && sqlca.sqlcode !=100)
  {
   fprintf(stderr, "fetch error %ld", sqlca.sqlcode);
   EXEC SQL DISCONNECT connect1;
   return(1);
  }
  fprintf(stdout, "\nID: %d name;%s", id, name);
 }
 EXEC SQL CLOSE foo;
 EXEC SQL DISCONNECT connect1;
  
}

阅读(1371) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~