92fc2808ba2a827f6affe30df179f3daf7467820
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / tests / test3.php
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 ?>