动态sql编程语句的四种格式

hbhgsy

1，动态sql语句 格式1
   直接执行sql声明(sqlstatement)
   例程：
   string            Mysql
   Mysql = "CREATE TABLE Employee "&
    +"(emp_id integer not null,"&
    +"dept_id integer not null, "&
    +"emp_fname char(10) not null, "&
    +"emp_lname char(20) not null)"
   EXECUTE IMMEDIATE :Mysql ;


2.动态sql语句 格式2
  准备sql声明(sqlsa)
  执行sql声明(sqlsa)
  例程：
  INT        Emp_id_var = 56
  PREPARE SQLSA
     FROM "DELETE FROM employee WHERE emp_id=?" ;
  EXECUTE SQLSA USING :Emp_id_var ;


3.动态sql语句 格式3
  为动态传输区 声明 游标|进程  动态游标|进程
  根据sql声明(sqlca)准备动态传输区
  打开动态游标
  取出游标进程值
  关闭游标
  例程：
  integer Emp_id_var

  DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
  PREPARE SQLSA FROM "SELECT emp_id FROM employee" ;
  OPEN DYNAMIC my_cursor ;
  FETCH my_cursor INTO :Emp_id_var ;
  CLOSE my_cursor ;

4.动态sql 格式4
  为动态传输区 声明 游标|进程  动态游标|进程
  根据sql声明(sqlca)准备动态传输区
  写入动态描述区
  打开动态游标
  取出游标进程值
  关闭游标
  例程：

  string Stringvar, Sqlstatement
  integer Intvar
  Sqlstatement = "SELECT emp_id FROM employee"
  PREPARE SQLSA FROM :Sqlstatement ;
  DESCRIBE SQLSA INTO SQLDA ;
  DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
  OPEN DYNAMIC my_cursor USING DESCRIPTOR SQLDA ;
  FETCH my_cursor USING DESCRIPTOR SQLDA ;

  // If the FETCH is successful, the output
  // descriptor array will contain returned
  // values from the first row of the result set.
  // SQLDA.NumOutputs contains the number of
  // output descriptors.
  // The SQLDA.OutParmType array will contain
  // NumOutput entries and each entry will contain
  // an value of the enumerated data type ParmType
  // (such as TypeInteger!, or TypeString!).

  CHOOSE CASE SQLDA.OutParmType[1]
  CASE TypeString!
        Stringvar = GetDynamicString(SQLDA, 1)
    CASE TypeInteger!
        Intvar = GetDynamicNumber(SQLDA, 1)

  END CHOOSE
  CLOSE my_cursor ;

faceDragon

good.
如果能说明这几种游标各自的特点和在哪种地方应用哪种游标就更好了。

hbhgsy

以上是本人翻译的资料。
如果谁有资料，请发一份给我。
如果是英文资料，我愿意翻译出来，和大家共享。

ai_sea

不错！