开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
test3.pgc
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：3k
源码类别：

数据库系统

开发平台：

Unix_Linux

test3.pgc：源码内容
  1. exec sql include header_test;
  3. exec sql type str is varchar[10];
  5. int
  6. main ()
  7. {
  8. typedef struct { long born; short age; } birthinfo;
  9. exec sql type birthinfo is struct { long born; short age; };
  10. exec sql begin declare section;
  11. struct personal_struct { str name;
  12. birthinfo birth;
  13. } personal;
  14. struct personal_indicator { int ind_name;
  15. birthinfo ind_birth;
  16.   } ind_personal;
  17. int *ind_married = NULL;
  18. int children;
  19. int ind_children;
  20. str *married = NULL;
  21. char *wifesname="Petra";
  22. char *query="select name, born, age, married, children from meskes where name = :var1";
  23. exec sql end declare section;
  25. exec sql declare cur cursor for
  26.        select name, born, age, married, children from meskes;
  28. char msg[128], command[128];
  29. FILE *dbgs;
  31. if ((dbgs = fopen("log", "w")) != NULL)
  32.                 ECPGdebug(1, dbgs);
  34. strcpy(msg, "connect");
  35. exec sql connect to unix:postgresql://localhost:5432/mm;
  37. strcpy(msg, "create");
  38. exec sql create table meskes(name char(8), born integer, age smallint, married date, children integer);
  40. strcpy(msg, "insert");
  41. exec sql insert into meskes(name, married, children) values (:wifesname, '19900404', 3);
  42. exec sql insert into meskes(name, born, age, married, children) values ('Michael', 19660117, 33, '19900404', 3);
  43. exec sql insert into meskes(name, born, age) values ('Carsten', 19910103, 8);
  44. exec sql insert into meskes(name, born, age) values ('Marc', 19930907, 5);
  45. exec sql insert into meskes(name, born, age) values ('Chris', 19970923, 1);
  47. strcpy(msg, "commit");
  48. exec sql commit;
  50. strcpy(msg, "open");
  51. exec sql open cur;
  53. exec sql whenever not found do break;
  55. while (1) {
  56. strcpy(msg, "fetch");
  57. exec sql fetch in cur into :personal:ind_personal, :married:ind_married, :children:ind_children;
  58. printf("%8.8s", personal.name.arr);
  59. if (ind_personal.ind_birth.born >= 0)
  60. printf(", born %d", personal.birth.born);
  61. if (ind_personal.ind_birth.age >= 0)
  62. printf(", age = %d", personal.birth.age);
  63. if (ind_married >= 0)
  64. printf(", married %10.10s", married->arr);
  65. if (ind_children >= 0)
  66. printf(", children = %d", children);
  67. putchar('n');
  69. free(married);
  70. married = NULL;
  71. }
  73. strcpy(msg, "close");
  74. exec sql close cur;
  76. /* and now the same query with prepare */
  77. exec sql prepare MM from "select name, born, age, married, children from meskes where name = ?";
  78. exec sql declare prep cursor for MM;
  80. strcpy(msg, "open");
  81. exec sql open prep using :wifesname;
  83. exec sql whenever not found do break;
  85. while (1) {
  86. strcpy(msg, "fetch");
  87. exec sql fetch in prep into :personal:ind_personal, :married:ind_married, :children:ind_children;
  88. printf("%8.8s", personal.name.arr);
  89. if (ind_personal.ind_birth.born >= 0)
  90. printf(", born %d", personal.birth.born);
  91. if (ind_personal.ind_birth.age >= 0)
  92. printf(", age = %d", personal.birth.age);
  93. if (ind_married >= 0)
  94. printf(", married %10.10s", married->arr);
  95. if (ind_children >= 0)
  96. printf(", children = %d", children);
  97. putchar('n');
  98. }
  100. free(married);
  102. strcpy(msg, "close");
  103. exec sql close prep;
  105. strcpy(msg, "drop");
  106. exec sql drop table meskes;
  108. strcpy(msg, "commit");
  109. exec sql commit;
  111. strcpy(msg, "disconnect"); 
  113. exec sql disconnect;
  114. if (dbgs != NULL)
  115.                 fclose(dbgs);
  117. return (0);
  118. }