library/adodb/tests/test3.php

   1 <?php
   2 /*
   3   V4.20 22 Feb 2004  (c) 2000-2004 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 ?>