[Summary view] [Print] [Text view]

   1  <?php
   2  
   3  /**
   4    V5.19  23-Apr-2014  (c) 2000-2014 John Lim (jlim#natsoft.com). All rights reserved.
   5    Released under both BSD license and Lesser GPL library license.
   6    Whenever there is any discrepancy between the two licenses,
   7    the BSD license will take precedence.
   8  
   9    Set tabs to 4 for best viewing.
  10  
  11  */
  12  
  13  /*
  14  In ADOdb, named quotes for MS SQL Server use ". From the MSSQL Docs:
  15  
  16      Note Delimiters are for identifiers only. Delimiters cannot be used for keywords,
  17      whether or not they are marked as reserved in SQL Server.
  18  
  19      Quoted identifiers are delimited by double quotation marks ("):
  20      SELECT * FROM "Blanks in Table Name"
  21  
  22      Bracketed identifiers are delimited by brackets ([ ]):
  23      SELECT * FROM [Blanks In Table Name]
  24  
  25      Quoted identifiers are valid only when the QUOTED_IDENTIFIER option is set to ON. By default,
  26      the Microsoft OLE DB Provider for SQL Server and SQL Server ODBC driver set QUOTED_IDENTIFIER ON
  27      when they connect.
  28  
  29      In Transact-SQL, the option can be set at various levels using SET QUOTED_IDENTIFIER,
  30      the quoted identifier option of sp_dboption, or the user options option of sp_configure.
  31  
  32      When SET ANSI_DEFAULTS is ON, SET QUOTED_IDENTIFIER is enabled.
  33  
  34      Syntax
  35  
  36          SET QUOTED_IDENTIFIER { ON | OFF }
  37  
  38  
  39  */
  40  
  41  // security - hide paths
  42  if (!defined('ADODB_DIR')) die();
  43  
  44  class ADODB2_mssql extends ADODB_DataDict {
  45      var $databaseType = 'mssql';
  46      var $dropIndex = 'DROP INDEX %2$s.%1$s';
  47      var $renameTable = "EXEC sp_rename '%s','%s'";
  48      var $renameColumn = "EXEC sp_rename '%s.%s','%s'";
  49  
  50      var $typeX = 'TEXT';  ## Alternatively, set it to VARCHAR(4000)
  51      var $typeXL = 'TEXT';
  52  
  53      //var $alterCol = ' ALTER COLUMN ';
  54  
  55  	function MetaType($t,$len=-1,$fieldobj=false)
  56      {
  57          if (is_object($t)) {
  58              $fieldobj = $t;
  59              $t = $fieldobj->type;
  60              $len = $fieldobj->max_length;
  61          }
  62  
  63          $len = -1; // mysql max_length is not accurate
  64          switch (strtoupper($t)) {
  65          case 'R':
  66          case 'INT':
  67          case 'INTEGER': return  'I';
  68          case 'BIT':
  69          case 'TINYINT': return  'I1';
  70          case 'SMALLINT': return 'I2';
  71          case 'BIGINT':  return  'I8';
  72          case 'SMALLDATETIME': return 'T';
  73          case 'REAL':
  74          case 'FLOAT': return 'F';
  75          default: return parent::MetaType($t,$len,$fieldobj);
  76          }
  77      }
  78  
  79  	function ActualType($meta)
  80      {
  81          switch(strtoupper($meta)) {
  82  
  83          case 'C': return 'VARCHAR';
  84          case 'XL': return (isset($this)) ? $this->typeXL : 'TEXT';
  85          case 'X': return (isset($this)) ? $this->typeX : 'TEXT'; ## could be varchar(8000), but we want compat with oracle
  86          case 'C2': return 'NVARCHAR';
  87          case 'X2': return 'NTEXT';
  88  
  89          case 'B': return 'IMAGE';
  90  
  91          case 'D': return 'DATETIME';
  92  
  93          case 'TS':
  94          case 'T': return 'DATETIME';
  95          case 'L': return 'BIT';
  96  
  97          case 'R':
  98          case 'I': return 'INT';
  99          case 'I1': return 'TINYINT';
 100          case 'I2': return 'SMALLINT';
 101          case 'I4': return 'INT';
 102          case 'I8': return 'BIGINT';
 103  
 104          case 'F': return 'REAL';
 105          case 'N': return 'NUMERIC';
 106          default:
 107              return $meta;
 108          }
 109      }
 110  
 111  
 112  	function AddColumnSQL($tabname, $flds)
 113      {
 114          $tabname = $this->TableName ($tabname);
 115          $f = array();
 116          list($lines,$pkey) = $this->_GenFields($flds);
 117          $s = "ALTER TABLE $tabname $this->addCol";
 118          foreach($lines as $v) {
 119              $f[] = "\n $v";
 120          }
 121          $s .= implode(', ',$f);
 122          $sql[] = $s;
 123          return $sql;
 124      }
 125  
 126      /*
 127      function AlterColumnSQL($tabname, $flds)
 128      {
 129          $tabname = $this->TableName ($tabname);
 130          $sql = array();
 131          list($lines,$pkey) = $this->_GenFields($flds);
 132          foreach($lines as $v) {
 133              $sql[] = "ALTER TABLE $tabname $this->alterCol $v";
 134          }
 135  
 136          return $sql;
 137      }
 138      */
 139  
 140  	function DropColumnSQL($tabname, $flds)
 141      {
 142          $tabname = $this->TableName ($tabname);
 143          if (!is_array($flds))
 144              $flds = explode(',',$flds);
 145          $f = array();
 146          $s = 'ALTER TABLE ' . $tabname;
 147          foreach($flds as $v) {
 148              $f[] = "\n$this->dropCol ".$this->NameQuote($v);
 149          }
 150          $s .= implode(', ',$f);
 151          $sql[] = $s;
 152          return $sql;
 153      }
 154  
 155      // return string must begin with space
 156  	function _CreateSuffix($fname,&$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint,$funsigned)
 157      {
 158          $suffix = '';
 159          if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault";
 160          if ($fautoinc) $suffix .= ' IDENTITY(1,1)';
 161          if ($fnotnull) $suffix .= ' NOT NULL';
 162          else if ($suffix == '') $suffix .= ' NULL';
 163          if ($fconstraint) $suffix .= ' '.$fconstraint;
 164          return $suffix;
 165      }
 166  
 167      /*
 168  CREATE TABLE
 169      [ database_name.[ owner ] . | owner. ] table_name
 170      ( { < column_definition >
 171          | column_name AS computed_column_expression
 172          | < table_constraint > ::= [ CONSTRAINT constraint_name ] }
 173  
 174              | [ { PRIMARY KEY | UNIQUE } [ ,...n ]
 175      )
 176  
 177  [ ON { filegroup | DEFAULT } ]
 178  [ TEXTIMAGE_ON { filegroup | DEFAULT } ]
 179  
 180  < column_definition > ::= { column_name data_type }
 181      [ COLLATE < collation_name > ]
 182      [ [ DEFAULT constant_expression ]
 183          | [ IDENTITY [ ( seed , increment ) [ NOT FOR REPLICATION ] ] ]
 184      ]
 185      [ ROWGUIDCOL]
 186      [ < column_constraint > ] [ ...n ]
 187  
 188  < column_constraint > ::= [ CONSTRAINT constraint_name ]
 189      { [ NULL | NOT NULL ]
 190          | [ { PRIMARY KEY | UNIQUE }
 191              [ CLUSTERED | NONCLUSTERED ]
 192              [ WITH FILLFACTOR = fillfactor ]
 193              [ON {filegroup | DEFAULT} ] ]
 194          ]
 195          | [ [ FOREIGN KEY ]
 196              REFERENCES ref_table [ ( ref_column ) ]
 197              [ ON DELETE { CASCADE | NO ACTION } ]
 198              [ ON UPDATE { CASCADE | NO ACTION } ]
 199              [ NOT FOR REPLICATION ]
 200          ]
 201          | CHECK [ NOT FOR REPLICATION ]
 202          ( logical_expression )
 203      }
 204  
 205  < table_constraint > ::= [ CONSTRAINT constraint_name ]
 206      { [ { PRIMARY KEY | UNIQUE }
 207          [ CLUSTERED | NONCLUSTERED ]
 208          { ( column [ ASC | DESC ] [ ,...n ] ) }
 209          [ WITH FILLFACTOR = fillfactor ]
 210          [ ON { filegroup | DEFAULT } ]
 211      ]
 212      | FOREIGN KEY
 213          [ ( column [ ,...n ] ) ]
 214          REFERENCES ref_table [ ( ref_column [ ,...n ] ) ]
 215          [ ON DELETE { CASCADE | NO ACTION } ]
 216          [ ON UPDATE { CASCADE | NO ACTION } ]
 217          [ NOT FOR REPLICATION ]
 218      | CHECK [ NOT FOR REPLICATION ]
 219          ( search_conditions )
 220      }
 221  
 222  
 223      */
 224  
 225      /*
 226      CREATE [ UNIQUE ] [ CLUSTERED | NONCLUSTERED ] INDEX index_name
 227      ON { table | view } ( column [ ASC | DESC ] [ ,...n ] )
 228          [ WITH < index_option > [ ,...n] ]
 229          [ ON filegroup ]
 230          < index_option > :: =
 231              { PAD_INDEX |
 232                  FILLFACTOR = fillfactor |
 233                  IGNORE_DUP_KEY |
 234                  DROP_EXISTING |
 235              STATISTICS_NORECOMPUTE |
 236              SORT_IN_TEMPDB
 237          }
 238  */
 239  	function _IndexSQL($idxname, $tabname, $flds, $idxoptions)
 240      {
 241          $sql = array();
 242  
 243          if ( isset($idxoptions['REPLACE']) || isset($idxoptions['DROP']) ) {
 244              $sql[] = sprintf ($this->dropIndex, $idxname, $tabname);
 245              if ( isset($idxoptions['DROP']) )
 246                  return $sql;
 247          }
 248  
 249          if ( empty ($flds) ) {
 250              return $sql;
 251          }
 252  
 253          $unique = isset($idxoptions['UNIQUE']) ? ' UNIQUE' : '';
 254          $clustered = isset($idxoptions['CLUSTERED']) ? ' CLUSTERED' : '';
 255  
 256          if ( is_array($flds) )
 257              $flds = implode(', ',$flds);
 258          $s = 'CREATE' . $unique . $clustered . ' INDEX ' . $idxname . ' ON ' . $tabname . ' (' . $flds . ')';
 259  
 260          if ( isset($idxoptions[$this->upperName]) )
 261              $s .= $idxoptions[$this->upperName];
 262  
 263  
 264          $sql[] = $s;
 265  
 266          return $sql;
 267      }
 268  
 269  
 270  	function _GetSize($ftype, $ty, $fsize, $fprec)
 271      {
 272          switch ($ftype) {
 273          case 'INT':
 274          case 'SMALLINT':
 275          case 'TINYINT':
 276          case 'BIGINT':
 277              return $ftype;
 278          }
 279          if ($ty == 'T') return $ftype;
 280          return parent::_GetSize($ftype, $ty, $fsize, $fprec);
 281  
 282      }
 283  }