トップ 差分 一覧 ソース 置換 検索 ヘルプ PDF RSS ログイン

MDB2で、PLSQLを実行する

基本的には

begin test_p('test1', 'test2'); end;

をで良い。しかし、　output を引数に取るプロシージャの場合はちょっと問題。

そこで、MDB2.php と oci8.php に修正を加える

MDB2.php

 *** MDB2_20111021.php   Fri Oct 21 00:37:37 2011
 --- MDB2.php    Fri Oct 21 00:41:34 2011
 ***************
 *** 3875,3880 ****
 --- 3875,3881 ----
       var $result_types;
       var $types;
       var $values = array();
 +     var $result = array();
       var $limit;
       var $offset;
       var $is_manip;
 ***************
 *** 4063,4068 ****
 --- 4064,4070 ----
               }
           }
           $result =& $this->_execute($result_class, $result_wrap_class);
 +         $values = $this->result;
           return $result;
       }
 
 ***************
 *** 4141,4146 ****
 --- 4143,4149 ----
           $this->is_manip = null;
           $this->offset = null;
           $this->values = null;
 +         $this->result = null;
 
           return MDB2_OK;
       }

Driver/oci8.php

 *** oci8_20111021.php   Fri Oct 21 00:39:25 2011
 --- oci8.php    Fri Oct 21 00:39:59 2011
 ***************
 *** 1415,1420 ****
 --- 1415,1421 ----
                   }
               } else {
                   $quoted_values[$i] = $this->db->quote($value, $type, false);
 +                 $quoted_values[":$parameter"] = &$quoted_values[$i];
                   if (PEAR::isError($quoted_values[$i])) {
                       return $quoted_values[$i];
                   }
 ***************
 *** 1482,1487 ****
 --- 1483,1489 ----
           $result =& $this->db->_wrapResult($this->statement, $this->result_types,
           $result_class, $result_wrap_class, $this->limit, $this->offset);
           $this->db->debug($this->query, 'execute', array('is_manip' => $this->is_manip, 'when' => 'post', 'result' => $result));
 +         $this->result = $quoted_values;
           return $result;
       }


これで、

$stmt = $this->db->prepare($sql, $types);
$result = $stmt->execute(&$args);

とすると、output の結果が、$args に入ってくるはず。
または、

$result = $stmt->execute($args);
print_r($stmt->result);

でもいいかな。

簡単なDBアクセスクラスを作って置くと良い。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
 
<?php
  /**
  * データベースアクセスクラス
  *
  * データベースの読書きの機能を提供する。
  * インスタンスは getInstance() で取得する。
  * 
  * SQLiteは、version2
  **/
  
  require_once 'MDB2.php';
  
  // common.php に定義されている場合は無視される
  define ("_dns","sqlite:///test.db2");
  
  class DBAccess {
    /**定数*/
    const ALL = 1;
    const ONE = 2;
    const ST = 3;
    
    /** データベースインスタンス */
    var $db = null;
    /** DBAccess インスタンス */
    static $objSelf = null;
    
    /** DBAccess インスタンス取得 */
    public static function &getInstance(){
      if (!isset(self::$objSelf)){
        self::$objSelf = new DBAccess();
      }
      return self::$objSelf;
    }
    
    
    /**
    * 接続されているかをチェックする。
    * 接続されている場合はTrue。
    */
    public function isConnect(){
      return isset($this->db);
    }
    
    
    /**
    * データベースに接続する。
    */
    public function connect($strcon = _dns ){
      $res = false;
      if (!$this->isConnect()){
        $options['persistent'] = false;
        $this->db = MDB2::factory( _dns,$options );
        if (PEAR::isError($this->db)){
          $ex = new DBAccessException("DB接続エラー : " . $this->db->getMessage());
          unset($this->db);
          throw $ex;
          $res = false;
        } else {
          $this->db->loadModule('Extended');
          $this->db->loadModule('Function');
          $this->db->setOption('field_case', CASE_UPPER);
          $this->db->setOption('portability',
            MDB2_PORTABILITY_FIX_CASE | MDB2_PORTABILITY_RTRIM);
          $res = true;
        }
      } else {
        $res = true;
      }
      return $res;
    }
    
    
    /** データベースから切断する。 */
    public function disconnect(){
      if ($this->isConnect()){
        $ret = $this->db->disconnect();
        if ($ret){
          unset($this->db);
        } else {
          $ex = new DBAccessException("DB切断エラー : " . $ret->getMessage());
          unset($this->db);
          throw $ex;
        }
        return $ret;
      } else {
        return true;
      }
    }
    
    
    // public function &executeStoredProc($sql, $args = array(), $fetchmode = DBAccess::ALL, $mode = MDB2_FETCHMODE_ASSOC){
    // $this->connect();
    // $st = $this->db->executeStoredProc($sql, $args);
    // 
    // if (PEAR::isError($st)){
    // throw new DBAccessException("DB実行エラー : " . $st->getMessage(). " : ". $st .": ".$st->getDebugInfo() );
    // }
    // 
    // if ($fetchmode == DBAccess::ALL){
    // $ret = $st->fetchAll($mode);
    // $st->free();
    // $st = null;
    // } else if ($fetchmode == DBAccess::ONE){
    // $ret = $st->fetchRow($mode);
    // $st->free();
    // $st = null;
    // } else if ($fetchmode == DBAccess::ST){
    // $ret = $st;
    // }
    // return $ret;
    // }
    
    // public function &executeDatabaseProc($name, $args = array(), $fetchmode = DBAccess::ALL, $mode = MDB2_FETCHMODE_ASSOC){
      // 
      // $query = "BEGIN ".$name;
      // $query .= $args ?
      // "('".implode("', '", $args)."')" : "()";
      // $query .= ";end;";
      // 
      // echo $query;
      // $this->connect();
      // $st = $this->db->query($query, null, true, false);
      // if (PEAR::isError($st)){
        // throw new DBAccessException("DB実行エラー : " . $st->getMessage(). " : ". $st .": ".$st->getDebugInfo() );
      // }
      // 
      // if ($fetchmode == DBAccess::ALL){
        // $ret = $st->fetchAll($mode);
        // $st->free();
        // $st = null;
      // } else if ($fetchmode == DBAccess::ONE){
        // $ret = $st->fetchRow($mode);
        // $st->free();
        // $st = null;
      // } else if ($fetchmode == DBAccess::ST){
        // $ret = $st;
      // }
      // return $ret;
    // }
    
    public function &exec($sql, $fetchmode = DBAccess::ALL, $mode = MDB2_FETCHMODE_ASSOC){
      $this->connect();
      $st = $this->db->query($sql);
      
      if (PEAR::isError($st)){
        throw new DBAccessException("DB実行エラー : " . $st->getMessage() . " : ". $sql .": ");
      }
      
      if ($fetchmode == DBAccess::ALL){
        $ret = $st->fetchAll($mode);
        $st->free();
        $st = null;
      } else if ($fetchmode == DBAccess::ONE){
        $ret = $st->fetchRow($mode);
        $st->free();
        $st = null;
      } else if ($fetchmode == DBAccess::ST){
        $ret = $st;
      }
      return $ret;
    }
    
    public function execSql($sql){
      $this->connect();
      $ret = $this->db->exec($sql);
      if (PEAR::isError($ret)){
        throw new DBAccessException("DB実行エラー : " . $ret->getMessage(). " : ". $sql .": ");
      }
      return $ret;
    }
    
    /**
    *  準備された SQL 文を実行する
    * @access    public
    * @param     Statement    $stmt プリペアドステートメント
    * @param     array     $params プリペアドステートメントの実行時に使用される配列。 
    * @param     mixed     query の実行結果
    */
    public function &execSt($stmt, $args = array(), $fetchmode = DBAccess::ALL, $mode = MDB2_FETCHMODE_ASSOC){
      $st = $stmt->execute(&$args);
      if (PEAR::isError($st)){
        // throw new DBAccessException("DB実行エラー : " . $st->getMessage(). " : ". $st .": ");
        throw new DBAccessException("DB実行エラー : " . $st->getMessage(). " : ". $st .": ".$st->getDebugInfo() );
      }
      
      if ($fetchmode == DBAccess::ALL){
        $ret = $st->fetchAll($mode);
      } else if ($fetchmode == DBAccess::ONE){
        $ret = $st->fetchRow($mode);
      } else if ($fetchmode == DBAccess::ST){
        $ret = $st;
      }
      return $ret;
    }
    
    
    /**
    *  後で実行するための SQL 文を準備する
    * @access    public
    * @param     String    $sql クエリのハンドル、あるいは失敗した場合に DB_Error オブジェクトを返します。 
    */
    public function &prepare($sql, $types = array()){
      $this->connect();
      $st = $this->db->prepare($sql, $types);
      if (PEAR::isError($st)){
        throw new DBAccessException("DB実行エラー : " . $st->getMessage(). " : ". $sql .": ");
      }
      return $st;
    }
    
    // /** 行列入れ替え
    // Oracleから移行時にOracleのライブラリにあわせるため */
    // function reverse($data){
      // if (count($data) < 1){
        // return $data;
      // }
      // $row = count($data);
      // $keys = array_keys($data[0]);
      // $keycnt = count($keys);
      // $newdata = array();
      // $newkeyname = "";
      // 
      // for ($r = 0; $r < $row; $r++){
        // for ($k = 0; $k < $keycnt; $k++){
          // $newkeyname = mb_convert_encoding($keys[$k],'SJIS','UTF-8');
          // $newdata[$newkeyname][$r] = mb_convert_encoding( $data[$r][$keys[$k]], 'SJIS', 'UTF-8' );
        // }
      // }
      // return $newdata;
    // }
    
    public function beginTransaction(){
      $this->connect();
      return $this->db->beginTransaction();
    }
    
    public function commit(){
      $this->db->commit();
    }
    
    public function rollBack(){
      $this->db->rollBack();
    }
    
  }
  class DBAccessException extends Exception {
    
  }
  
?>

※PHPの場合、毎回プロセスが上がるので getInstance してもその都度オブジェクトが生成されるはず。なので１つのセッションを使いまわすことにはならない。

[カテゴリ: プログラミング言語 > PHP]

[通知用URL]



  • Hatenaブックマークに追加
  • livedoorクリップに追加
  • del.icio.usに追加
  • FC2ブックマークに追加

最終更新時間：2011年10月21日 11時30分25秒





Menu

　　・jEdit Wiki

Ｈｅｌｐ

　　・プラグイン
　　・プラグインヘルプ
　　・質問、ご意見等はこちら

カテゴリ一覧

　　・全記事


検索

キーワード



更新履歴

2024/4/18

2024/4/17

2024/4/13

2024/4/12

2024/4/11

Powered by FreeStyleWiki3.6.5 with Perl5.016003