+++ /dev/null
-<?php\r
-/*\r
- V4.80 8 Mar 2006 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.\r
- Released under both BSD license and Lesser GPL library license. \r
- Whenever there is any discrepancy between the two licenses, \r
- the BSD license will take precedence.\r
- Set tabs to 8.\r
- */\r
-\r
-\r
-error_reporting(E_ALL);\r
-\r
-$path = dirname(__FILE__);\r
-\r
-include("$path/../adodb-exceptions.inc.php");\r
-include("$path/../adodb.inc.php"); \r
-\r
-try {\r
-$db = NewADOConnection("oci8");\r
-$db->Connect('','scott','natsoft');\r
-$db->debug=1;\r
-\r
-$cnt = $db->GetOne("select count(*) from adoxyz");\r
-$rs = $db->Execute("select * from adoxyz order by id");\r
-\r
-$i = 0;\r
-foreach($rs as $k => $v) {\r
- $i += 1;\r
- echo $k; adodb_pr($v);\r
- flush();\r
-}\r
-\r
-if ($i != $cnt) die("actual cnt is $i, cnt should be $cnt\n");\r
-\r
-\r
-\r
-$rs = $db->Execute("select bad from badder");\r
-\r
-} catch (exception $e) {\r
- adodb_pr($e);\r
- $e = adodb_backtrace($e->trace);\r
-}\r
-\r
-?>
\ No newline at end of file