[Sommaire] [Imprimer]

   1  <?php
   2  /*
   3    V4.80 8 Mar 2006  (c) 2000-2006 John Lim (jlim#natsoft.com.my). All rights reserved.
   4    Released under both BSD license and Lesser GPL library license. 
   5    Whenever there is any discrepancy between the two licenses, 
   6    the BSD license will take precedence.
   7    Set tabs to 8.
   8   */
   9  
  10  
  11  error_reporting(E_ALL);
  12  
  13  $path = dirname(__FILE__);
  14  
  15  include("$path/../adodb-exceptions.inc.php");
  16  include("$path/../adodb.inc.php");    
  17  
  18  try {
  19  $db = NewADOConnection("oci8");
  20  $db->Connect('','scott','natsoft');
  21  $db->debug=1;
  22  
  23  $cnt = $db->GetOne("select count(*) from adoxyz");
  24  $rs = $db->Execute("select * from adoxyz order by id");
  25  
  26  $i = 0;
  27  foreach($rs as $k => $v) {
  28      $i += 1;
  29      echo $k; adodb_pr($v);
  30      flush();
  31  }
  32  
  33  if ($i != $cnt) die("actual cnt is $i, cnt should be $cnt\n");
  34  
  35  
  36  
  37  $rs = $db->Execute("select bad from badder");
  38  
  39  } catch (exception $e) {
  40      adodb_pr($e);
  41      $e = adodb_backtrace($e->trace);
  42  }
  43  
  44  ?>