Update to upstream version 4.94
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / tests / testpear.php
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 4 for best viewing.
8
9 Latest version is available at http://adodb.sourceforge.net
10 */
11
12 error_reporting(E_ALL);
13
14 include_once('../adodb-pear.inc.php');
15 $username = 'root';
16 $password = '';
17 $hostname = 'localhost';
18 $databasename = 'xphplens';
19 $driver = 'mysql';
20
21 $dsn = "$driver://$username:$password@$hostname/$databasename";
22
23 $db = DB::Connect($dsn);
24 $db->setFetchMode(ADODB_FETCH_ASSOC);
25 $rs = $db->Query('select firstname,lastname from adoxyz');
26 $cnt = 0;
27 while ($arr = $rs->FetchRow()) {
28 print_r($arr);
29 print "<br>";
30 $cnt += 1;
31 }
32
33 if ($cnt != 50) print "<b>Error in \$cnt = $cnt</b>";
34 ?>