Subversion-Projekte lars-tiefland.php_share

<?php

/**

 * Tests the drivers' object fetch mode procedures

 *

 * Executed by driver/14fetchmode_object.phpt

 *

 * PHP versions 4 and 5

 *

 * LICENSE: This source file is subject to version 3.0 of the PHP license

 * that is available through the world-wide-web at the following URI:

 * http://www.php.net/license/3_0.txt.  If you did not receive a copy of

 * the PHP License and are unable to obtain it through the web, please

 * send a note to license@php.net so we can mail you a copy immediately.

 *

 * @category   Database

 * @package    DB

 * @author     Daniel Convissor <danielc@php.net>

 * @copyright  1997-2005 The PHP Group

 * @license    http://www.php.net/license/3_0.txt  PHP License 3.0

 * @version    $Id: fetchmode_object.inc,v 1.11 2005/02/03 05:49:44 danielc Exp $

 * @link       http://pear.php.net/package/DB

 */

error_reporting(E_ALL);

/**

 * Local error callback handler

 *

 * Drops the phptest table, prints out an error message and kills the

 * process.

 *

 * @param object  $o  PEAR error object automatically passed to this method

 * @return void

 * @see PEAR::setErrorHandling()

 */

function pe($o) {

    global $dbh;

    $dbh->setErrorHandling(PEAR_ERROR_RETURN);

    drop_table($dbh, 'phptest');

    die($o->toString());

}

/**

 * Print out the object

 */

function print_obj(&$obj) {

    if (!is_object($obj)) {

        echo "ERROR: no object!\n";

    } else {

        echo strtolower(get_class($obj)) . ' -> ' . implode(' ', array_keys((array)$obj)) . "\n";

    }

}

$dbh->setErrorHandling(PEAR_ERROR_CALLBACK, 'pe');

echo "--- fetch with param DB_FETCHMODE_OBJECT ---\n";

$sth = $dbh->query("SELECT * FROM phptest");

$row = $sth->fetchRow(DB_FETCHMODE_OBJECT);

print_obj($row);

$sth->free();  // keep fbsql happy.

$sth = $dbh->query("SELECT * FROM phptest");

$sth->fetchInto($row, DB_FETCHMODE_OBJECT);

print_obj($row);

$sth->free();  // keep fbsql happy.

echo "--- fetch with default fetchmode DB_FETCHMODE_OBJECT ---\n";

$dbh->setFetchMode(DB_FETCHMODE_OBJECT);

$sth = $dbh->query("SELECT * FROM phptest");

$row = $sth->fetchRow();

print_obj($row);

$sth->free();  // keep fbsql happy.

$sth = $dbh->query("SELECT * FROM phptest");

$sth->fetchInto($row);

print_obj($row);

$sth->free();  // keep fbsql happy.

echo "--- fetch with default fetchmode DB_FETCHMODE_OBJECT and class DB_row ---\n";

$dbh->setFetchMode(DB_FETCHMODE_OBJECT, 'DB_row');

$sth = $dbh->query("SELECT * FROM phptest");

$row = $sth->fetchRow();

print_obj($row);

$sth->free();  // keep fbsql happy.

$sth = $dbh->query("SELECT * FROM phptest");

$sth->fetchInto($row);

print_obj($row);

$sth->free();  // keep fbsql happy.

echo "--- fetch with default fetchmode DB_FETCHMODE_OBJECT with no class then DB_row ---\n";

$dbh->setFetchMode(DB_FETCHMODE_OBJECT);

$sth = $dbh->query('SELECT * FROM phptest');

$row = $sth->fetchRow();

print_obj($row);

$sth->free();  // keep fbsql happy.

$dbh->setFetchMode(DB_FETCHMODE_OBJECT, 'DB_row');

$sth = $dbh->query('SELECT * FROM phptest');

$row = $sth->fetchRow();

print_obj($row);

$sth->free();  // keep fbsql happy.

               // keep ibase happy: can't drop tbl that has results open against it.

$dbh->setErrorHandling(PEAR_ERROR_RETURN);

drop_table($dbh, 'phptest');