Revision 903,
939 bytes
checked in by niltonneto, 15 years ago
(diff) |
Importacao inicial do Expresso do Serpro
|
Rev | Line | |
---|
[903] | 1 | <?php
|
---|
| 2 | /*
|
---|
| 3 | V4.80 8 Mar 2006 (c) 2000-2007 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 | ?> |
---|
Note: See
TracBrowser
for help on using the repository browser.