library/adodb/tests/test-php5.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 echo "<h3>PHP ".PHP_VERSION."</h3>\n";
  19 try {
  20
  21 $dbt = 'oci8';
  22
  23 switch($dbt) {
  24 case 'oci8':
  25         $db = NewADOConnection("oci8");
  26         $db->Connect('','scott','natsoft');
  27         break;
  28 default:
  29 case 'mysql':
  30         $db = NewADOConnection("mysql");
  31         $db->Connect('localhost','root','','test');
  32         break;
  33 }
  34
  35 $db->debug=1;
  36
  37 $cnt = $db->GetOne("select count(*) from adoxyz");
  38 $rs = $db->Execute("select * from adoxyz order by id");
  39
  40 $i = 0;
  41 foreach($rs as  $v) {
  42         $i += 1;
  43         echo "$i: "; adodb_pr($v); adodb_pr($rs->fields);
  44         flush();
  45 }
  46
  47 if ($i != $cnt) die("actual cnt is $i, cnt should be $cnt\n");
  48
  49
  50 $rs = $db->Execute("select bad from badder");
  51
  52 } catch (exception $e) {
  53         adodb_pr($e);
  54         echo "<h3>adodb_backtrace:</h3>\n";
  55         $e = adodb_backtrace($e->gettrace());
  56 }
  57
  58 ?>