TYPO3 CMS  TYPO3_6-2
adodb-db2.inc.php
Go to the documentation of this file.
1 <?php
2 /*
3  V5.19 23-Apr-2014 (c) 2000-2012 (jlim#natsoft.com). All rights reserved.
4 
5  This is a version of the ADODB driver for DB2. It uses the 'ibm_db2' PECL extension
6  for PHP (http://pecl.php.net/package/ibm_db2), which in turn requires DB2 V8.2.2 or
7  higher.
8 
9  Originally tested with PHP 5.1.1 and Apache 2.0.55 on Windows XP SP2.
10  More recently tested with PHP 5.1.2 and Apache 2.0.55 on Windows XP SP2.
11 
12  This file was ported from "adodb-odbc.inc.php" by Larry Menard, "larry.menard#rogers.com".
13  I ripped out what I believed to be a lot of redundant or obsolete code, but there are
14  probably still some remnants of the ODBC support in this file; I'm relying on reviewers
15  of this code to point out any other things that can be removed.
16 */
17 
18 // security - hide paths
19 if (!defined('ADODB_DIR')) die();
20 
21  define("_ADODB_DB2_LAYER", 2 );
22 
23 /*--------------------------------------------------------------------------------------
24 --------------------------------------------------------------------------------------*/
25 
26 
27 
28 
29 
30 class ADODB_db2 extends ADOConnection {
31  var $databaseType = "db2";
32  var $fmtDate = "'Y-m-d'";
33  var $concat_operator = '||';
34 
35  var $sysTime = 'CURRENT TIME';
36  var $sysDate = 'CURRENT DATE';
37  var $sysTimeStamp = 'CURRENT TIMESTAMP';
38 
39  var $fmtTimeStamp = "'Y-m-d H:i:s'";
40  var $replaceQuote = "''"; // string to use to replace quotes
41  var $dataProvider = "db2";
42  var $hasAffectedRows = true;
43 
44  var $binmode = DB2_BINARY;
45 
46  var $useFetchArray = false; // setting this to true will make array elements in FETCH_ASSOC mode case-sensitive
47  // breaking backward-compat
48  var $_bindInputArray = false;
49  var $_genIDSQL = "VALUES NEXTVAL FOR %s";
50  var $_genSeqSQL = "CREATE SEQUENCE %s START WITH %s NO MAXVALUE NO CYCLE";
51  var $_dropSeqSQL = "DROP SEQUENCE %s";
52  var $_autocommit = true;
53  var $_haserrorfunctions = true;
55  var $uCaseTables = true; // for meta* functions, uppercase table names
56  var $hasInsertID = true;
57 
58 
59  function _insertid()
60  {
61  return ADOConnection::GetOne('VALUES IDENTITY_VAL_LOCAL()');
62  }
63 
64  function ADODB_db2()
65  {
66  $this->_haserrorfunctions = ADODB_PHPVER >= 0x4050;
67  }
68 
69  // returns true or false
70  function _connect($argDSN, $argUsername, $argPassword, $argDatabasename)
71  {
72  global $php_errormsg;
73 
74  if (!function_exists('db2_connect')) {
75  ADOConnection::outp("Warning: The old ODBC based DB2 driver has been renamed 'odbc_db2'. This ADOdb driver calls PHP's native db2 extension which is not installed.");
76  return null;
77  }
78  // This needs to be set before the connect().
79  // Replaces the odbc_binmode() call that was in Execute()
80  ini_set('ibm_db2.binmode', $this->binmode);
81 
82  if ($argDatabasename && empty($argDSN)) {
83 
84  if (stripos($argDatabasename,'UID=') && stripos($argDatabasename,'PWD=')) $this->_connectionID = db2_connect($argDatabasename,null,null);
85  else $this->_connectionID = db2_connect($argDatabasename,$argUsername,$argPassword);
86  } else {
87  if ($argDatabasename) $schema = $argDatabasename;
88  if (stripos($argDSN,'UID=') && stripos($argDSN,'PWD=')) $this->_connectionID = db2_connect($argDSN,null,null);
89  else $this->_connectionID = db2_connect($argDSN,$argUsername,$argPassword);
90  }
91  if (isset($php_errormsg)) $php_errormsg = '';
92 
93  // For db2_connect(), there is an optional 4th arg. If present, it must be
94  // an array of valid options. So far, we don't use them.
95 
96  $this->_errorMsg = @db2_conn_errormsg();
97  if (isset($this->connectStmt)) $this->Execute($this->connectStmt);
98 
99  if ($this->_connectionID && isset($schema)) $this->Execute("SET SCHEMA=$schema");
100  return $this->_connectionID != false;
101  }
102 
103  // returns true or false
104  function _pconnect($argDSN, $argUsername, $argPassword, $argDatabasename)
105  {
106  global $php_errormsg;
107 
108  if (!function_exists('db2_connect')) return null;
109 
110  // This needs to be set before the connect().
111  // Replaces the odbc_binmode() call that was in Execute()
112  ini_set('ibm_db2.binmode', $this->binmode);
113 
114  if (isset($php_errormsg)) $php_errormsg = '';
115  $this->_errorMsg = isset($php_errormsg) ? $php_errormsg : '';
116 
117  if ($argDatabasename && empty($argDSN)) {
118 
119  if (stripos($argDatabasename,'UID=') && stripos($argDatabasename,'PWD=')) $this->_connectionID = db2_pconnect($argDatabasename,null,null);
120  else $this->_connectionID = db2_pconnect($argDatabasename,$argUsername,$argPassword);
121  } else {
122  if ($argDatabasename) $schema = $argDatabasename;
123  if (stripos($argDSN,'UID=') && stripos($argDSN,'PWD=')) $this->_connectionID = db2_pconnect($argDSN,null,null);
124  else $this->_connectionID = db2_pconnect($argDSN,$argUsername,$argPassword);
125  }
126  if (isset($php_errormsg)) $php_errormsg = '';
127 
128  $this->_errorMsg = @db2_conn_errormsg();
129  if ($this->_connectionID && $this->autoRollback) @db2_rollback($this->_connectionID);
130  if (isset($this->connectStmt)) $this->Execute($this->connectStmt);
131 
132  if ($this->_connectionID && isset($schema)) $this->Execute("SET SCHEMA=$schema");
133  return $this->_connectionID != false;
134  }
135 
136  // format and return date string in database timestamp format
137  function DBTimeStamp($ts)
138  {
139  if (empty($ts) && $ts !== 0) return 'null';
140  if (is_string($ts)) $ts = ADORecordSet::UnixTimeStamp($ts);
141  return 'TO_DATE('.adodb_date($this->fmtTimeStamp,$ts).",'YYYY-MM-DD HH24:MI:SS')";
142  }
143 
144  // Format date column in sql string given an input format that understands Y M D
145  function SQLDate($fmt, $col=false)
146  {
147  // use right() and replace() ?
148  if (!$col) $col = $this->sysDate;
149 
150  /* use TO_CHAR() if $fmt is TO_CHAR() allowed fmt */
151  if ($fmt== 'Y-m-d H:i:s')
152  return 'TO_CHAR('.$col.", 'YYYY-MM-DD HH24:MI:SS')";
153 
154  $s = '';
155 
156  $len = strlen($fmt);
157  for ($i=0; $i < $len; $i++) {
158  if ($s) $s .= $this->concat_operator;
159  $ch = $fmt[$i];
160  switch($ch) {
161  case 'Y':
162  case 'y':
163  if ($len==1) return "year($col)";
164  $s .= "char(year($col))";
165  break;
166  case 'M':
167  if ($len==1) return "monthname($col)";
168  $s .= "substr(monthname($col),1,3)";
169  break;
170  case 'm':
171  if ($len==1) return "month($col)";
172  $s .= "right(digits(month($col)),2)";
173  break;
174  case 'D':
175  case 'd':
176  if ($len==1) return "day($col)";
177  $s .= "right(digits(day($col)),2)";
178  break;
179  case 'H':
180  case 'h':
181  if ($len==1) return "hour($col)";
182  if ($col != $this->sysDate) $s .= "right(digits(hour($col)),2)";
183  else $s .= "''";
184  break;
185  case 'i':
186  case 'I':
187  if ($len==1) return "minute($col)";
188  if ($col != $this->sysDate)
189  $s .= "right(digits(minute($col)),2)";
190  else $s .= "''";
191  break;
192  case 'S':
193  case 's':
194  if ($len==1) return "second($col)";
195  if ($col != $this->sysDate)
196  $s .= "right(digits(second($col)),2)";
197  else $s .= "''";
198  break;
199  default:
200  if ($ch == '\\') {
201  $i++;
202  $ch = substr($fmt,$i,1);
203  }
204  $s .= $this->qstr($ch);
205  }
206  }
207  return $s;
208  }
209 
210 
211  function ServerInfo()
212  {
213  $row = $this->GetRow("SELECT service_level, fixpack_num FROM TABLE(sysproc.env_get_inst_info())
214  as INSTANCEINFO");
215 
216 
217  if ($row) {
218  $info['version'] = $row[0].':'.$row[1];
219  $info['fixpack'] = $row[1];
220  $info['description'] = '';
221  } else {
222  return ADOConnection::ServerInfo();
223  }
224 
225  return $info;
226  }
227 
228  function CreateSequence($seqname='adodbseq',$start=1)
229  {
230  if (empty($this->_genSeqSQL)) return false;
231  $ok = $this->Execute(sprintf($this->_genSeqSQL,$seqname,$start));
232  if (!$ok) return false;
233  return true;
234  }
235 
236  function DropSequence($seqname)
237  {
238  if (empty($this->_dropSeqSQL)) return false;
239  return $this->Execute(sprintf($this->_dropSeqSQL,$seqname));
240  }
241 
242  function SelectLimit($sql,$nrows=-1,$offset=-1,$inputArr=false)
243  {
244  $nrows = (integer) $nrows;
245  if ($offset <= 0) {
246  // could also use " OPTIMIZE FOR $nrows ROWS "
247  if ($nrows >= 0) $sql .= " FETCH FIRST $nrows ROWS ONLY ";
248  $rs = $this->Execute($sql,$inputArr);
249  } else {
250  if ($offset > 0 && $nrows < 0);
251  else {
252  $nrows += $offset;
253  $sql .= " FETCH FIRST $nrows ROWS ONLY ";
254  }
255  $rs = ADOConnection::SelectLimit($sql,-1,$offset,$inputArr);
256  }
257 
258  return $rs;
259  }
260 
261  /*
262  This algorithm is not very efficient, but works even if table locking
263  is not available.
264 
265  Will return false if unable to generate an ID after $MAXLOOPS attempts.
266  */
267  function GenID($seq='adodbseq',$start=1)
268  {
269  // if you have to modify the parameter below, your database is overloaded,
270  // or you need to implement generation of id's yourself!
271  $num = $this->GetOne("VALUES NEXTVAL FOR $seq");
272  return $num;
273  }
274 
275 
276  function ErrorMsg()
277  {
278  if ($this->_haserrorfunctions) {
279  if ($this->_errorMsg !== false) return $this->_errorMsg;
280  if (empty($this->_connectionID)) return @db2_conn_errormsg();
281  return @db2_conn_errormsg($this->_connectionID);
282  } else return ADOConnection::ErrorMsg();
283  }
284 
285  function ErrorNo()
286  {
287 
288  if ($this->_haserrorfunctions) {
289  if ($this->_errorCode !== false) {
290  // bug in 4.0.6, error number can be corrupted string (should be 6 digits)
291  return (strlen($this->_errorCode)<=2) ? 0 : $this->_errorCode;
292  }
293 
294  if (empty($this->_connectionID)) $e = @db2_conn_error();
295  else $e = @db2_conn_error($this->_connectionID);
296 
297  // bug in 4.0.6, error number can be corrupted string (should be 6 digits)
298  // so we check and patch
299  if (strlen($e)<=2) return 0;
300  return $e;
301  } else return ADOConnection::ErrorNo();
302  }
303 
304 
305 
306  function BeginTrans()
307  {
308  if (!$this->hasTransactions) return false;
309  if ($this->transOff) return true;
310  $this->transCnt += 1;
311  $this->_autocommit = false;
312  return db2_autocommit($this->_connectionID,false);
313  }
314 
315  function CommitTrans($ok=true)
316  {
317  if ($this->transOff) return true;
318  if (!$ok) return $this->RollbackTrans();
319  if ($this->transCnt) $this->transCnt -= 1;
320  $this->_autocommit = true;
321  $ret = db2_commit($this->_connectionID);
322  db2_autocommit($this->_connectionID,true);
323  return $ret;
324  }
325 
326  function RollbackTrans()
327  {
328  if ($this->transOff) return true;
329  if ($this->transCnt) $this->transCnt -= 1;
330  $this->_autocommit = true;
331  $ret = db2_rollback($this->_connectionID);
332  db2_autocommit($this->_connectionID,true);
333  return $ret;
334  }
335 
336  function MetaPrimaryKeys($table)
337  {
338  global $ADODB_FETCH_MODE;
339 
340  if ($this->uCaseTables) $table = strtoupper($table);
341  $schema = '';
342  $this->_findschema($table,$schema);
343 
344  $savem = $ADODB_FETCH_MODE;
345  $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
346  $qid = @db2_primarykeys($this->_connectionID,'',$schema,$table);
347 
348  if (!$qid) {
349  $ADODB_FETCH_MODE = $savem;
350  return false;
351  }
352  $rs = new ADORecordSet_db2($qid);
353  $ADODB_FETCH_MODE = $savem;
354 
355  if (!$rs) return false;
356 
357  $arr = $rs->GetArray();
358  $rs->Close();
359  $arr2 = array();
360  for ($i=0; $i < sizeof($arr); $i++) {
361  if ($arr[$i][3]) $arr2[] = $arr[$i][3];
362  }
363  return $arr2;
364  }
365 
366  function MetaForeignKeys($table, $owner = FALSE, $upper = FALSE, $asociative = FALSE )
367  {
368  global $ADODB_FETCH_MODE;
369 
370  if ($this->uCaseTables) $table = strtoupper($table);
371  $schema = '';
372  $this->_findschema($table,$schema);
373 
374  $savem = $ADODB_FETCH_MODE;
375  $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
376  $qid = @db2_foreign_keys($this->_connectionID,'',$schema,$table);
377  if (!$qid) {
378  $ADODB_FETCH_MODE = $savem;
379  return false;
380  }
381  $rs = new ADORecordSet_db2($qid);
382 
383  $ADODB_FETCH_MODE = $savem;
384  /*
385  $rs->fields indices
386  0 PKTABLE_CAT
387  1 PKTABLE_SCHEM
388  2 PKTABLE_NAME
389  3 PKCOLUMN_NAME
390  4 FKTABLE_CAT
391  5 FKTABLE_SCHEM
392  6 FKTABLE_NAME
393  7 FKCOLUMN_NAME
394  */
395  if (!$rs) return false;
396 
397  $foreign_keys = array();
398  while (!$rs->EOF) {
399  if (strtoupper(trim($rs->fields[2])) == $table && (!$schema || strtoupper($rs->fields[1]) == $schema)) {
400  if (!is_array($foreign_keys[$rs->fields[5].'.'.$rs->fields[6]]))
401  $foreign_keys[$rs->fields[5].'.'.$rs->fields[6]] = array();
402  $foreign_keys[$rs->fields[5].'.'.$rs->fields[6]][$rs->fields[7]] = $rs->fields[3];
403  }
404  $rs->MoveNext();
405  }
406 
407  $rs->Close();
408  return $foreign_key;
409  }
410 
411 
412  function MetaTables($ttype=false,$schema=false)
413  {
414  global $ADODB_FETCH_MODE;
415 
416  $savem = $ADODB_FETCH_MODE;
417  $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
418  $qid = db2_tables($this->_connectionID);
419 
420  $rs = new ADORecordSet_db2($qid);
421 
422  $ADODB_FETCH_MODE = $savem;
423  if (!$rs) {
424  $false = false;
425  return $false;
426  }
427 
428  $arr = $rs->GetArray();
429  $rs->Close();
430  $arr2 = array();
431 
432  if ($ttype) {
433  $isview = strncmp($ttype,'V',1) === 0;
434  }
435  for ($i=0; $i < sizeof($arr); $i++) {
436  if (!$arr[$i][2]) continue;
437  $type = $arr[$i][3];
438  $owner = $arr[$i][1];
439  $schemaval = ($schema) ? $arr[$i][1].'.' : '';
440  if ($ttype) {
441  if ($isview) {
442  if (strncmp($type,'V',1) === 0) $arr2[] = $schemaval.$arr[$i][2];
443  } else if (strncmp($owner,'SYS',3) !== 0) $arr2[] = $schemaval.$arr[$i][2];
444  } else if (strncmp($owner,'SYS',3) !== 0) $arr2[] = $schemaval.$arr[$i][2];
445  }
446  return $arr2;
447  }
448 
449 /*
450 See http://msdn.microsoft.com/library/default.asp?url=/library/en-us/db2/htm/db2datetime_data_type_changes.asp
451 / SQL data type codes /
452 #define SQL_UNKNOWN_TYPE 0
453 #define SQL_CHAR 1
454 #define SQL_NUMERIC 2
455 #define SQL_DECIMAL 3
456 #define SQL_INTEGER 4
457 #define SQL_SMALLINT 5
458 #define SQL_FLOAT 6
459 #define SQL_REAL 7
460 #define SQL_DOUBLE 8
461 #if (DB2VER >= 0x0300)
462 #define SQL_DATETIME 9
463 #endif
464 #define SQL_VARCHAR 12
465 
466 
467 / One-parameter shortcuts for date/time data types /
468 #if (DB2VER >= 0x0300)
469 #define SQL_TYPE_DATE 91
470 #define SQL_TYPE_TIME 92
471 #define SQL_TYPE_TIMESTAMP 93
472 
473 #define SQL_UNICODE (-95)
474 #define SQL_UNICODE_VARCHAR (-96)
475 #define SQL_UNICODE_LONGVARCHAR (-97)
476 */
477  function DB2Types($t)
478  {
479  switch ((integer)$t) {
480  case 1:
481  case 12:
482  case 0:
483  case -95:
484  case -96:
485  return 'C';
486  case -97:
487  case -1: //text
488  return 'X';
489  case -4: //image
490  return 'B';
491 
492  case 9:
493  case 91:
494  return 'D';
495 
496  case 10:
497  case 11:
498  case 92:
499  case 93:
500  return 'T';
501 
502  case 4:
503  case 5:
504  case -6:
505  return 'I';
506 
507  case -11: // uniqidentifier
508  return 'R';
509  case -7: //bit
510  return 'L';
511 
512  default:
513  return 'N';
514  }
515  }
516 
517  function MetaColumns($table, $normalize=true)
518  {
519  global $ADODB_FETCH_MODE;
520 
521  $false = false;
522  if ($this->uCaseTables) $table = strtoupper($table);
523  $schema = '';
524  $this->_findschema($table,$schema);
525 
526  $savem = $ADODB_FETCH_MODE;
527  $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
528 
529  $colname = "%";
530  $qid = db2_columns($this->_connectionID, "", $schema, $table, $colname);
531  if (empty($qid)) return $false;
532 
533  $rs = new ADORecordSet_db2($qid);
534  $ADODB_FETCH_MODE = $savem;
535 
536  if (!$rs) return $false;
537  $rs->_fetch();
538 
539  $retarr = array();
540 
541  /*
542  $rs->fields indices
543  0 TABLE_QUALIFIER
544  1 TABLE_SCHEM
545  2 TABLE_NAME
546  3 COLUMN_NAME
547  4 DATA_TYPE
548  5 TYPE_NAME
549  6 PRECISION
550  7 LENGTH
551  8 SCALE
552  9 RADIX
553  10 NULLABLE
554  11 REMARKS
555  */
556  while (!$rs->EOF) {
557  if (strtoupper(trim($rs->fields[2])) == $table && (!$schema || strtoupper($rs->fields[1]) == $schema)) {
558  $fld = new ADOFieldObject();
559  $fld->name = $rs->fields[3];
560  $fld->type = $this->DB2Types($rs->fields[4]);
561 
562  // ref: http://msdn.microsoft.com/library/default.asp?url=/archive/en-us/dnaraccgen/html/msdn_odk.asp
563  // access uses precision to store length for char/varchar
564  if ($fld->type == 'C' or $fld->type == 'X') {
565  if ($rs->fields[4] <= -95) // UNICODE
566  $fld->max_length = $rs->fields[7]/2;
567  else
568  $fld->max_length = $rs->fields[7];
569  } else
570  $fld->max_length = $rs->fields[7];
571  $fld->not_null = !empty($rs->fields[10]);
572  $fld->scale = $rs->fields[8];
573  $fld->primary_key = false;
574  $retarr[strtoupper($fld->name)] = $fld;
575  } else if (sizeof($retarr)>0)
576  break;
577  $rs->MoveNext();
578  }
579  $rs->Close();
580  if (empty($retarr)) $retarr = false;
581 
582  $qid = db2_primary_keys($this->_connectionID, "", $schema, $table);
583  if (empty($qid)) return $false;
584 
585  $rs = new ADORecordSet_db2($qid);
586  $ADODB_FETCH_MODE = $savem;
587 
588  if (!$rs) return $retarr;
589  $rs->_fetch();
590 
591  /*
592  $rs->fields indices
593  0 TABLE_CAT
594  1 TABLE_SCHEM
595  2 TABLE_NAME
596  3 COLUMN_NAME
597  4 KEY_SEQ
598  5 PK_NAME
599  */
600  while (!$rs->EOF) {
601  if (strtoupper(trim($rs->fields[2])) == $table && (!$schema || strtoupper($rs->fields[1]) == $schema)) {
602  $retarr[strtoupper($rs->fields[3])]->primary_key = true;
603  } else if (sizeof($retarr)>0)
604  break;
605  $rs->MoveNext();
606  }
607  $rs->Close();
608 
609  if (empty($retarr)) $retarr = false;
610  return $retarr;
611  }
612 
613 
614  function Prepare($sql)
615  {
616  if (! $this->_bindInputArray) return $sql; // no binding
617  $stmt = db2_prepare($this->_connectionID,$sql);
618  if (!$stmt) {
619  // we don't know whether db2 driver is parsing prepared stmts, so just return sql
620  return $sql;
621  }
622  return array($sql,$stmt,false);
623  }
624 
625  /* returns queryID or false */
626  function _query($sql,$inputarr=false)
627  {
628  GLOBAL $php_errormsg;
629  if (isset($php_errormsg)) $php_errormsg = '';
630  $this->_error = '';
631 
632  if ($inputarr) {
633  if (is_array($sql)) {
634  $stmtid = $sql[1];
635  } else {
636  $stmtid = db2_prepare($this->_connectionID,$sql);
637 
638  if ($stmtid == false) {
639  $this->_errorMsg = isset($php_errormsg) ? $php_errormsg : '';
640  return false;
641  }
642  }
643 
644  if (! db2_execute($stmtid,$inputarr)) {
645  if ($this->_haserrorfunctions) {
646  $this->_errorMsg = db2_stmt_errormsg();
647  $this->_errorCode = db2_stmt_error();
648  }
649  return false;
650  }
651 
652  } else if (is_array($sql)) {
653  $stmtid = $sql[1];
654  if (!db2_execute($stmtid)) {
655  if ($this->_haserrorfunctions) {
656  $this->_errorMsg = db2_stmt_errormsg();
657  $this->_errorCode = db2_stmt_error();
658  }
659  return false;
660  }
661  } else
662  $stmtid = @db2_exec($this->_connectionID,$sql);
663 
664  $this->_lastAffectedRows = 0;
665  if ($stmtid) {
666  if (@db2_num_fields($stmtid) == 0) {
667  $this->_lastAffectedRows = db2_num_rows($stmtid);
668  $stmtid = true;
669  } else {
670  $this->_lastAffectedRows = 0;
671  }
672 
673  if ($this->_haserrorfunctions) {
674  $this->_errorMsg = '';
675  $this->_errorCode = 0;
676  } else
677  $this->_errorMsg = isset($php_errormsg) ? $php_errormsg : '';
678  } else {
679  if ($this->_haserrorfunctions) {
680  $this->_errorMsg = db2_stmt_errormsg();
681  $this->_errorCode = db2_stmt_error();
682  } else
683  $this->_errorMsg = isset($php_errormsg) ? $php_errormsg : '';
684 
685  }
686  return $stmtid;
687  }
688 
689  /*
690  Insert a null into the blob field of the table first.
691  Then use UpdateBlob to store the blob.
692 
693  Usage:
694 
695  $conn->Execute('INSERT INTO blobtable (id, blobcol) VALUES (1, null)');
696  $conn->UpdateBlob('blobtable','blobcol',$blob,'id=1');
697  */
698  function UpdateBlob($table,$column,$val,$where,$blobtype='BLOB')
699  {
700  return $this->Execute("UPDATE $table SET $column=? WHERE $where",array($val)) != false;
701  }
702 
703  // returns true or false
704  function _close()
705  {
706  $ret = @db2_close($this->_connectionID);
707  $this->_connectionID = false;
708  return $ret;
709  }
710 
711  function _affectedrows()
712  {
714  }
715 
716 }
717 
718 /*--------------------------------------------------------------------------------------
719  Class Name: Recordset
720 --------------------------------------------------------------------------------------*/
721 
722 class ADORecordSet_db2 extends ADORecordSet {
723 
724  var $bind = false;
725  var $databaseType = "db2";
726  var $dataProvider = "db2";
728 
729  function ADORecordSet_db2($id,$mode=false)
730  {
731  if ($mode === false) {
732  global $ADODB_FETCH_MODE;
733  $mode = $ADODB_FETCH_MODE;
734  }
735  $this->fetchMode = $mode;
736 
737  $this->_queryID = $id;
738  }
739 
740 
741  // returns the field object
742  function FetchField($offset = -1)
743  {
744  $o= new ADOFieldObject();
745  $o->name = @db2_field_name($this->_queryID,$offset);
746  $o->type = @db2_field_type($this->_queryID,$offset);
747  $o->max_length = db2_field_width($this->_queryID,$offset);
748  if (ADODB_ASSOC_CASE == 0) $o->name = strtolower($o->name);
749  else if (ADODB_ASSOC_CASE == 1) $o->name = strtoupper($o->name);
750  return $o;
751  }
752 
753  /* Use associative array to get fields array */
754  function Fields($colname)
755  {
756  if ($this->fetchMode & ADODB_FETCH_ASSOC) return $this->fields[$colname];
757  if (!$this->bind) {
758  $this->bind = array();
759  for ($i=0; $i < $this->_numOfFields; $i++) {
760  $o = $this->FetchField($i);
761  $this->bind[strtoupper($o->name)] = $i;
762  }
763  }
764 
765  return $this->fields[$this->bind[strtoupper($colname)]];
766  }
767 
768 
769  function _initrs()
770  {
771  global $ADODB_COUNTRECS;
772  $this->_numOfRows = ($ADODB_COUNTRECS) ? @db2_num_rows($this->_queryID) : -1;
773  $this->_numOfFields = @db2_num_fields($this->_queryID);
774  // some silly drivers such as db2 as/400 and intersystems cache return _numOfRows = 0
775  if ($this->_numOfRows == 0) $this->_numOfRows = -1;
776  }
777 
778  function _seek($row)
779  {
780  return false;
781  }
782 
783  // speed up SelectLimit() by switching to ADODB_FETCH_NUM as ADODB_FETCH_ASSOC is emulated
784  function GetArrayLimit($nrows,$offset=-1)
785  {
786  if ($offset <= 0) {
787  $rs = $this->GetArray($nrows);
788  return $rs;
789  }
790  $savem = $this->fetchMode;
791  $this->fetchMode = ADODB_FETCH_NUM;
792  $this->Move($offset);
793  $this->fetchMode = $savem;
794 
795  if ($this->fetchMode & ADODB_FETCH_ASSOC) {
796  $this->fields = $this->GetRowAssoc(ADODB_ASSOC_CASE);
797  }
798 
799  $results = array();
800  $cnt = 0;
801  while (!$this->EOF && $nrows != $cnt) {
802  $results[$cnt++] = $this->fields;
803  $this->MoveNext();
804  }
805 
806  return $results;
807  }
808 
809 
810  function MoveNext()
811  {
812  if ($this->_numOfRows != 0 && !$this->EOF) {
813  $this->_currentRow++;
814 
815  $this->fields = @db2_fetch_array($this->_queryID);
816  if ($this->fields) {
817  if ($this->fetchMode & ADODB_FETCH_ASSOC) {
818  $this->fields = $this->GetRowAssoc(ADODB_ASSOC_CASE);
819  }
820  return true;
821  }
822  }
823  $this->fields = false;
824  $this->EOF = true;
825  return false;
826  }
827 
828  function _fetch()
829  {
830 
831  $this->fields = db2_fetch_array($this->_queryID);
832  if ($this->fields) {
833  if ($this->fetchMode & ADODB_FETCH_ASSOC) {
834  $this->fields = $this->GetRowAssoc(ADODB_ASSOC_CASE);
835  }
836  return true;
837  }
838  $this->fields = false;
839  return false;
840  }
841 
842  function _close()
843  {
844  return @db2_free_result($this->_queryID);
845  }
846 
847 }
$sql
Definition: server.php:82
if(isset($_REQUEST['nrows'])) else $rs
Definition: server.php:92
_connect($argDSN, $argUsername, $argPassword, $argDatabasename)
ADORecordSet_db2($id, $mode=false)
MetaColumns($table, $normalize=true)
MetaPrimaryKeys($table)
die
Definition: index.php:6
FetchField($offset=-1)
SelectLimit($sql, $nrows=-1, $offset=-1, $inputArr=false)
MetaTables($ttype=false, $schema=false)
GenID($seq='adodbseq', $start=1)
MetaForeignKeys($table, $owner=FALSE, $upper=FALSE, $asociative=FALSE)
_pconnect($argDSN, $argUsername, $argPassword, $argDatabasename)
DBTimeStamp($ts)
CommitTrans($ok=true)
UpdateBlob($table, $column, $val, $where, $blobtype='BLOB')
GetArrayLimit($nrows, $offset=-1)
_query($sql, $inputarr=false)
SQLDate($fmt, $col=false)
DropSequence($seqname)
CreateSequence($seqname='adodbseq', $start=1)