Proyectos de Subversion Moodle

<?php
/**
 * Data Dictionary for Access.
 *
 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.
 *
 * @package ADOdb
 * @link https://adodb.org Project's web site and documentation
 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker
 *
 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause
 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,
 * any later version. This means you can use it in proprietary products.
 * See the LICENSE.md file distributed with this source code for details.
 * @license BSD-3-Clause
 * @license LGPL-2.1-or-later
 *
 * @copyright 2000-2013 John Lim
 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
 */

// security - hide paths
if (!defined('ADODB_DIR')) die();

class ADODB2_access extends ADODB_DataDict {

        var $databaseType = 'access';
        var $seqField = false;


        function ActualType($meta)
        {
                $meta = strtoupper($meta);
                
                /*
                * Add support for custom meta types. We do this
                * first, that allows us to override existing types
                */
                if (isset($this->connection->customMetaTypes[$meta]))
                        return $this->connection->customMetaTypes[$meta]['actual'];
                
                switch($meta) {
                case 'C': return 'TEXT';
                case 'XL':
                case 'X': return 'MEMO';

                case 'C2': return 'TEXT'; // up to 32K
                case 'X2': return 'MEMO';

                case 'B': return 'BINARY';

                case 'TS':
                case 'D': 
                return 'DATETIME';
                case 'T': return 'DATETIME';

                case 'L':  return 'BYTE';
                case 'I':  return 'INTEGER';
                case 'I1': return 'BYTE';
                case 'I2': return 'SMALLINT';
                case 'I4': return 'INTEGER';
                case 'I8': return 'INTEGER';

                case 'F':  return 'DOUBLE';
                case 'N':  return 'NUMERIC';
                default:
                        return $meta;
                }
        }

        // return string must begin with space
        function _CreateSuffix($fname, &$ftype, $fnotnull,$fdefault,$fautoinc,$fconstraint,$funsigned)
        {
                if ($fautoinc) {
                        $ftype = 'COUNTER';
                        return '';
                }
                if (substr($ftype,0,7) == 'DECIMAL') $ftype = 'DECIMAL';
                $suffix = '';
                if (strlen($fdefault)) {
                        //$suffix .= " DEFAULT $fdefault";
                        if ($this->debug) ADOConnection::outp("Warning: Access does not supported DEFAULT values (field $fname)");
                }
                if ($fnotnull) $suffix .= ' NOT NULL';
                if ($fconstraint) $suffix .= ' '.$fconstraint;
                return $suffix;
        }

        function CreateDatabase($dbname,$options=false)
        {
                return array();
        }


        function SetSchema($schema)
        {
        }

        function AlterColumnSQL($tabname, $flds, $tableflds='',$tableoptions='')
        {
                if ($this->debug) ADOConnection::outp("AlterColumnSQL not supported");
                return array();
        }


        function DropColumnSQL($tabname, $flds, $tableflds='',$tableoptions='')
        {
                if ($this->debug) ADOConnection::outp("DropColumnSQL not supported");
                return array();
        }

}