vtiger CRM 5.0.2 : /adodb/tests/testoci8.php source

[Sommaire] [Imprimer]
   1  <html>
   2  <body>
   3  <?php
   4  /* 
   5  V4.80 8 Mar 2006  (c) 2000-2006 John Lim (jlim#natsoft.com.my). All rights reserved.
   6    Released under both BSD license and Lesser GPL library license. 
   7    Whenever there is any discrepancy between the two licenses, 
   8    the BSD license will take precedence. 
   9    Set tabs to 4 for best viewing.
  10      
  11    Latest version is available at http://adodb.sourceforge.net
  12  */
  13  error_reporting(63);
  14  include ("../adodb.inc.php");
  15  include ("../tohtml.inc.php");
  16  
  17  if (0) {
  18      $db = ADONewConnection('oci8po');
  19      
  20      $db->PConnect('','scott','natsoft');
  21      if (!empty($testblob)) {
  22          $varHoldingBlob = 'ABC DEF GEF John TEST';
  23          $num = time()%10240;
  24          // create table atable (id integer, ablob blob);
  25          $db->Execute('insert into ATABLE (id,ablob) values('.$num.',empty_blob())');
  26          $db->UpdateBlob('ATABLE', 'ablob', $varHoldingBlob, 'id='.$num, 'BLOB');
  27          
  28          $rs = &$db->Execute('select * from atable');
  29          
  30          if (!$rs) die("Empty RS");
  31          if ($rs->EOF) die("EOF RS");
  32          rs2html($rs);
  33      }
  34      $stmt = $db->Prepare('select * from adoxyz where id=?');
  35      for ($i = 1; $i <= 10; $i++) {
  36      $rs = &$db->Execute(
  37          $stmt,
  38          array($i));
  39              
  40          if (!$rs) die("Empty RS");
  41          if ($rs->EOF) die("EOF RS");
  42          rs2html($rs);
  43      }
  44  }
  45  if (1) {
  46      $db = ADONewConnection('oci8');
  47      $db->PConnect('','scott','natsoft');
  48      $db->debug = true;
  49      $db->Execute("delete from emp where ename='John'");
  50      print $db->Affected_Rows().'<BR>';
  51      $stmt = &$db->Prepare('insert into emp (empno, ename) values (:empno, :ename)');
  52      $rs = $db->Execute($stmt,array('empno'=>4321,'ename'=>'John'));
  53      // prepare not quite ready for prime time
  54      //$rs = $db->Execute($stmt,array('empno'=>3775,'ename'=>'John'));
  55      if (!$rs) die("Empty RS");
  56      
  57      $db->setfetchmode(ADODB_FETCH_NUM);
  58      
  59      $vv = 'A%';
  60      $stmt = $db->PrepareSP("BEGIN adodb.open_tab2(:rs,:tt); END;",true);
  61      $db->OutParameter($stmt, $cur, 'rs', -1, OCI_B_CURSOR);
  62      $db->OutParameter($stmt, $vv, 'tt');
  63      $rs = $db->Execute($stmt);
  64      while (!$rs->EOF) {
  65          adodb_pr($rs->fields);
  66          $rs->MoveNext();
  67      }
  68      echo " val = $vv";
  69  
  70  }
  71  
  72  if (0) {
  73      $db = ADONewConnection('odbc_oracle');
  74      if (!$db->PConnect('local_oracle','scott','tiger')) die('fail connect');
  75      $db->debug = true;
  76      $rs = &$db->Execute(
  77          'select * from adoxyz where firstname=? and trim(lastname)=?',
  78          array('first'=>'Caroline','last'=>'Miranda'));
  79      if (!$rs) die("Empty RS");
  80      if ($rs->EOF) die("EOF RS");
  81      rs2html($rs);
  82  }
  83  ?>
Code source de vtiger CRM 5.0.2

/adodb/tests/ -> testoci8.php (source)
