關於DBMS_SQL的使用

    procedure parse(c in integer, statement in varchar2, language_flag in integer):對動態遊標所提供的sql語句進行解析,引數C表示遊標,statement為sql語句,language-flag為解析sql語句所用oracle版本,一般有V6,V7跟native(在不明白所連database版本時,使用native);

    procedure define_column(c in integer, position in integer, column any datatype, [column_size in integer]):定義動態遊標所能得到的對應值,其中c為動態遊標,positon為對應動態sql中的位置(從1開始),column為該值所對應的變數,可以為任何型別,column_size只有在column為定義長度的型別中使用如VARCHAR2,CHAR等(該過程有很多種情況,此處只對一般使用到的型別進行表述);

    function execute(c in integer):執行遊標,並返回處理一個整型,代表處理結果(對insert,delete,update才有意義,而對select語句而言可以忽略);

    function fetch_rows(c in integer):對遊標進行迴圈取資料,並返回一個整數,為0時表示已經取到遊標末端;

    procedure column_value(c in integer, position in integer, value):將所取得的遊標資料賦值到相應的變數,c為遊標,position為位置,value則為對應的變數;

    procedure bind_variable(c in integer, name in varchar2, value):定義動態sql語句(DML)中所對應欄位的值,c為遊標,name為欄位名稱,value為欄位的值;

    以上是在程式中經常使用到的幾個函式及過程,其他函式及過程請參照oracle所提供定義語句dbmssql.sql

TempDate Date_Type;–時間陣列
TempIndex Index_Type;–股票收盤價陣列
TempMa Index_Type;–ma技術曲線資料

cursor1 integer;–遊標
cursor2 integer;–遊標
rows_processed integer;–執行遊標返回

TempInter integer;–參與計算數值個數
TempVal integer;–計算時間型別
TempSql varchar2(500);–動態sql語句
MyTime varchar2(12);–時間
MyIndex number;–數值
MidIndex number;–中間變數
i integer := 999;
j integer;
begin
  TempInter := to_number(substr(pinterval,1,4));
  TempVal := to_number(substr(pinterval,5,2));
  TempSql := R_GetSql1(pid, pend, TempVal);–得到選擇資料的sql語句

  –得到當天的即時資料,並依次儲存到陣列中
  cursor1 := dbms_sql.open_cursor;  –建立遊標
  dbms_sql.parse(cursor1, TempSql, dbms_sql.native);  –解析動態sql語句,取兩個欄位,時間及價格,其中時間以14位的varchar2表示
  dbms_sql.define_column(cursor1, 1, MyTime, 12);  –分別定義sql語句中各欄位所對應變數
  dbms_sql.define_column(cursor1, 2, MyIndex);
  rows_processed := dbms_sql.execute(cursor1);
  loop
    if dbms_sql.fetch_rows(cursor1) > 0 then
      begin
        dbms_sql.column_value(cursor1, 1, MyTime);
        dbms_sql.column_value(cursor1, 2, MyIndex);
        TempDate(i) := MyTime;
        TempIndex(i) := MyIndex;
        i := i – 1;–按倒序的方法填入陣列
      end;
    else
      exit;
    end if;
  end loop;
  dbms_sql.close_cursor(cursor1);
  
  –如果取得的資料量不夠計算個數,則跳出程式
  if i > 999-TempInter then
    goto JumpLess;
  end if;
  
  –初始化中間變數
  MidIndex := 0;
  TempIndex(i) := 0;
  for j in i..i+TempInter-1 loop
    MidIndex := MidIndex + TempIndex(j);
  end loop; 

  –依次對當天資料計算ma值,並儲存到ma陣列中
  for j in i+TempInter..999 loop
    MidIndex := MidIndex – TempIndex(j-TempInter) + TempIndex(j);
    TempMa(j) := MidIndex/TempInter;
  end loop;   

  if TempVal < 6 then–如果計算的是分鐘跟天的ma技術曲線
    begin
    cursor2 := dbms_sql.open_cursor;
    TempSql := `insert into ` || totab || ` values(:r_no, :i_interval, :i_time, :i_index)`;
    dbms_sql.parse(cursor2, TempSql, dbms_sql.native); 
    for j in i+TempInter..999 loop
      dbms_sql.bind_variable(cursor2, `r_no`, pid);
      dbms_sql.bind_variable(cursor2, `i_interval`, pinterval);
      dbms_sql.bind_variable(cursor2, `i_time`, TempDate(j));
      dbms_sql.bind_variable(cursor2, `i_index`, TempMa(j));
      rows_processed := dbms_sql.execute(cursor2);–插入資料
    end loop;
    end;
  end if; 
  commit;
  dbms_sql.close_cursor(cursor2);
  –資料量不足跳出
  <<JumpLess>>
  null;
  
  –exception處理,無關本話題
end;
/