lib/WikiDB/adodb/drivers/adodb-mssql.inc.php

   1 <?php
   2 /*
   3 V4.22 15 Apr 2004  (c) 2000-2004 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://php.weblogs.com/
  10
  11   Native mssql driver. Requires mssql client. Works on Windows.
  12   To configure for Unix, see
  13        http://phpbuilder.com/columns/alberto20000919.php3
  14
  15 */
  16
  17 //----------------------------------------------------------------
  18 // MSSQL returns dates with the format Oct 13 2002 or 13 Oct 2002
  19 // and this causes tons of problems because localized versions of
  20 // MSSQL will return the dates in dmy or  mdy order; and also the
  21 // month strings depends on what language has been configured. The
  22 // following two variables allow you to control the localization
  23 // settings - Ugh.
  24 //
  25 // MORE LOCALIZATION INFO
  26 // ----------------------
  27 // To configure datetime, look for and modify sqlcommn.loc,
  28 //      typically found in c:\mssql\install
  29 // Also read :
  30 //       http://support.microsoft.com/default.aspx?scid=kb;EN-US;q220918
  31 // Alternatively use:
  32 //         CONVERT(char(12),datecol,120)
  33 //----------------------------------------------------------------
  34
  35
  36 // has datetime converstion to YYYY-MM-DD format, and also mssql_fetch_assoc
  37 if (ADODB_PHPVER >= 0x4300) {
  38 // docs say 4.2.0, but testing shows only since 4.3.0 does it work!
  39     @ini_set('mssql.datetimeconvert',0);
  40 } else {
  41 global $ADODB_mssql_mths;               // array, months must be upper-case
  42
  43
  44     $ADODB_mssql_date_order = 'mdy';
  45     $ADODB_mssql_mths = array(
  46         'JAN'=>1,'FEB'=>2,'MAR'=>3,'APR'=>4,'MAY'=>5,'JUN'=>6,
  47         'JUL'=>7,'AUG'=>8,'SEP'=>9,'OCT'=>10,'NOV'=>11,'DEC'=>12);
  48 }
  49
  50 //---------------------------------------------------------------------------
  51 // Call this to autoset $ADODB_mssql_date_order at the beginning of your code,
  52 // just after you connect to the database. Supports mdy and dmy only.
  53 // Not required for PHP 4.2.0 and above.
  54 function AutoDetect_MSSQL_Date_Order($conn)
  55 {
  56 global $ADODB_mssql_date_order;
  57     $adate = $conn->GetOne('select getdate()');
  58     if ($adate) {
  59         $anum = (int) $adate;
  60         if ($anum > 0) {
  61             if ($anum > 31) {
  62                 //ADOConnection::outp( "MSSQL: YYYY-MM-DD date format not supported currently");
  63             } else
  64                 $ADODB_mssql_date_order = 'dmy';
  65         } else
  66             $ADODB_mssql_date_order = 'mdy';
  67     }
  68 }
  69
  70 class ADODB_mssql extends ADOConnection {
  71     var $databaseType = "mssql";
  72     var $dataProvider = "mssql";
  73     var $replaceQuote = "''"; // string to use to replace quotes
  74     var $fmtDate = "'Y-m-d'";
  75     var $fmtTimeStamp = "'Y-m-d h:i:sA'";
  76     var $hasInsertID = true;
  77     var $substr = "substring";
  78     var $length = 'len';
  79     var $upperCase = 'upper';
  80     var $hasAffectedRows = true;
  81     var $metaDatabasesSQL = "select name from sysdatabases where name <> 'master'";
  82     var $metaTablesSQL="select name,case when type='U' then 'T' else 'V' end from sysobjects where (type='U' or type='V') and (name not in ('sysallocations','syscolumns','syscomments','sysdepends','sysfilegroups','sysfiles','sysfiles1','sysforeignkeys','sysfulltextcatalogs','sysindexes','sysindexkeys','sysmembers','sysobjects','syspermissions','sysprotects','sysreferences','systypes','sysusers','sysalternates','sysconstraints','syssegments','REFERENTIAL_CONSTRAINTS','CHECK_CONSTRAINTS','CONSTRAINT_TABLE_USAGE','CONSTRAINT_COLUMN_USAGE','VIEWS','VIEW_TABLE_USAGE','VIEW_COLUMN_USAGE','SCHEMATA','TABLES','TABLE_CONSTRAINTS','TABLE_PRIVILEGES','COLUMNS','COLUMN_DOMAIN_USAGE','COLUMN_PRIVILEGES','DOMAINS','DOMAIN_CONSTRAINTS','KEY_COLUMN_USAGE','dtproperties'))";
  83     var $metaColumnsSQL = # xtype==61 is datetime
  84 "select c.name,t.name,c.length,
  85     (case when c.xusertype=61 then 0 else c.xprec end),
  86     (case when c.xusertype=61 then 0 else c.xscale end)
  87     from syscolumns c join systypes t on t.xusertype=c.xusertype join sysobjects o on o.id=c.id where o.name='%s'";
  88     var $hasTop = 'top';                // support mssql SELECT TOP 10 * FROM TABLE
  89     var $hasGenID = true;
  90     var $sysDate = 'convert(datetime,convert(char,GetDate(),102),102)';
  91     var $sysTimeStamp = 'GetDate()';
  92     var $_has_mssql_init;
  93     var $maxParameterLen = 4000;
  94     var $arrayClass = 'ADORecordSet_array_mssql';
  95     var $uniqueSort = true;
  96     var $leftOuter = '*=';
  97     var $rightOuter = '=*';
  98     var $ansiOuter = true; // for mssql7 or later
  99     var $poorAffectedRows = true;
 100     var $identitySQL = 'select @@IDENTITY'; // 'select SCOPE_IDENTITY'; # for mssql 2000
 101     var $uniqueOrderBy = true;
 102     var $_bindInputArray = true;
 103
 104
 105     function ADODB_mssql()
 106     {
 107         $this->_has_mssql_init = (strnatcmp(PHP_VERSION,'4.1.0')>=0);
 108     }
 109
 110     function ServerInfo()
 111     {
 112     global $ADODB_FETCH_MODE;
 113
 114         $stmt = $this->PrepareSP('sp_server_info');
 115         $val = 2;
 116         if ($this->fetchMode === false) {
 117             $savem = $ADODB_FETCH_MODE;
 118             $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 119         } else
 120             $savem = $this->SetFetchMode(ADODB_FETCH_NUM);
 121
 122
 123         $this->Parameter($stmt,$val,'attribute_id');
 124         $row = $this->GetRow($stmt);
 125
 126         //$row = $this->GetRow("execute sp_server_info 2");
 127
 128         if ($this->fetchMode === false) {
 129             $ADODB_FETCH_MODE = $savem;
 130         } else
 131             $this->SetFetchMode($savem);
 132
 133         $arr['description'] = $row[2];
 134         $arr['version'] = ADOConnection::_findvers($arr['description']);
 135         return $arr;
 136     }
 137
 138     function IfNull( $field, $ifNull )
 139     {
 140         return " ISNULL($field, $ifNull) "; // if MS SQL Server
 141     }
 142
 143     function _insertid()
 144     {
 145     // SCOPE_IDENTITY()
 146     // Returns the last IDENTITY value inserted into an IDENTITY column in
 147     // the same scope. A scope is a module -- a stored procedure, trigger,
 148     // function, or batch. Thus, two statements are in the same scope if
 149     // they are in the same stored procedure, function, or batch.
 150             return $this->GetOne($this->identitySQL);
 151     }
 152
 153     function _affectedrows()
 154     {
 155         return $this->GetOne('select @@rowcount');
 156     }
 157
 158     var $_dropSeqSQL = "drop table %s";
 159
 160     function CreateSequence($seq='adodbseq',$start=1)
 161     {
 162         $start -= 1;
 163         $this->Execute("create table $seq (id float(53))");
 164         $ok = $this->Execute("insert into $seq with (tablock,holdlock) values($start)");
 165         if (!$ok) {
 166                 $this->Execute('ROLLBACK TRANSACTION adodbseq');
 167                 return false;
 168         }
 169         $this->Execute('COMMIT TRANSACTION adodbseq');
 170         return true;
 171     }
 172
 173     function GenID($seq='adodbseq',$start=1)
 174     {
 175         //$this->debug=1;
 176         $this->Execute('BEGIN TRANSACTION adodbseq');
 177         $ok = $this->Execute("update $seq with (tablock,holdlock) set id = id + 1");
 178         if (!$ok) {
 179             $this->Execute("create table $seq (id float(53))");
 180             $ok = $this->Execute("insert into $seq with (tablock,holdlock) values($start)");
 181             if (!$ok) {
 182                 $this->Execute('ROLLBACK TRANSACTION adodbseq');
 183                 return false;
 184             }
 185             $this->Execute('COMMIT TRANSACTION adodbseq');
 186             return $start;
 187         }
 188         $num = $this->GetOne("select id from $seq");
 189         $this->Execute('COMMIT TRANSACTION adodbseq');
 190         return $num;
 191
 192         // in old implementation, pre 1.90, we returned GUID...
 193         //return $this->GetOne("SELECT CONVERT(varchar(255), NEWID()) AS 'Char'");
 194     }
 195
 196
 197     function &SelectLimit($sql,$nrows=-1,$offset=-1, $inputarr=false,$secs2cache=0)
 198     {
 199         if ($nrows > 0 && $offset <= 0) {
 200             $sql = preg_replace(
 201                 '/(^\s*select\s+(distinctrow|distinct)?)/i','\\1 '.$this->hasTop." $nrows ",$sql);
 202             $rs =& $this->Execute($sql,$inputarr);
 203         } else
 204             $rs =& ADOConnection::SelectLimit($sql,$nrows,$offset,$inputarr,$secs2cache);
 205
 206         return $rs;
 207     }
 208
 209
 210     // Format date column in sql string given an input format that understands Y M D
 211     function SQLDate($fmt, $col=false)
 212     {
 213         if (!$col) $col = $this->sysTimeStamp;
 214         $s = '';
 215
 216         $len = strlen($fmt);
 217         for ($i=0; $i < $len; $i++) {
 218             if ($s) $s .= '+';
 219             $ch = $fmt[$i];
 220             switch($ch) {
 221             case 'Y':
 222             case 'y':
 223                 $s .= "datename(yyyy,$col)";
 224                 break;
 225             case 'M':
 226                 $s .= "convert(char(3),$col,0)";
 227                 break;
 228             case 'm':
 229                 $s .= "replace(str(month($col),2),' ','0')";
 230                 break;
 231             case 'Q':
 232             case 'q':
 233                 $s .= "datename(quarter,$col)";
 234                 break;
 235             case 'D':
 236             case 'd':
 237                 $s .= "replace(str(day($col),2),' ','0')";
 238                 break;
 239             case 'h':
 240                 $s .= "substring(convert(char(14),$col,0),13,2)";
 241                 break;
 242
 243             case 'H':
 244                 $s .= "replace(str(datepart(hh,$col),2),' ','0')";
 245                 break;
 246
 247             case 'i':
 248                 $s .= "replace(str(datepart(mi,$col),2),' ','0')";
 249                 break;
 250             case 's':
 251                 $s .= "replace(str(datepart(ss,$col),2),' ','0')";
 252                 break;
 253             case 'a':
 254             case 'A':
 255                 $s .= "substring(convert(char(19),$col,0),18,2)";
 256                 break;
 257
 258             default:
 259                 if ($ch == '\\') {
 260                     $i++;
 261                     $ch = substr($fmt,$i,1);
 262                 }
 263                 $s .= $this->qstr($ch);
 264                 break;
 265             }
 266         }
 267         return $s;
 268     }
 269
 270
 271     function BeginTrans()
 272     {
 273         if ($this->transOff) return true;
 274         $this->transCnt += 1;
 275            $this->Execute('BEGIN TRAN');
 276            return true;
 277     }
 278
 279     function CommitTrans($ok=true)
 280     {
 281         if ($this->transOff) return true;
 282         if (!$ok) return $this->RollbackTrans();
 283         if ($this->transCnt) $this->transCnt -= 1;
 284         $this->Execute('COMMIT TRAN');
 285         return true;
 286     }
 287     function RollbackTrans()
 288     {
 289         if ($this->transOff) return true;
 290         if ($this->transCnt) $this->transCnt -= 1;
 291         $this->Execute('ROLLBACK TRAN');
 292         return true;
 293     }
 294
 295     /*
 296         Usage:
 297
 298         $this->BeginTrans();
 299         $this->RowLock('table1,table2','table1.id=33 and table2.id=table1.id'); # lock row 33 for both tables
 300
 301         # some operation on both tables table1 and table2
 302
 303         $this->CommitTrans();
 304
 305         See http://www.swynk.com/friends/achigrik/SQL70Locks.asp
 306     */
 307     function RowLock($tables,$where)
 308     {
 309         if (!$this->transCnt) $this->BeginTrans();
 310         return $this->GetOne("select top 1 null as ignore from $tables with (ROWLOCK,HOLDLOCK) where $where");
 311     }
 312
 313     function MetaForeignKeys($table, $owner=false, $upper=false)
 314     {
 315     global $ADODB_FETCH_MODE;
 316
 317         $save = $ADODB_FETCH_MODE;
 318         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 319         $table = $this->qstr(strtoupper($table));
 320
 321         $sql =
 322 "select object_name(constid) as constraint_name,
 323     col_name(fkeyid, fkey) as column_name,
 324     object_name(rkeyid) as referenced_table_name,
 325        col_name(rkeyid, rkey) as referenced_column_name
 326 from sysforeignkeys
 327 where upper(object_name(fkeyid)) = $table
 328 order by constraint_name, referenced_table_name, keyno";
 329
 330         $constraints =& $this->GetArray($sql);
 331
 332         $ADODB_FETCH_MODE = $save;
 333
 334         $arr = false;
 335         foreach($constraints as $constr) {
 336             //print_r($constr);
 337             $arr[$constr[0]][$constr[2]][] = $constr[1].'='.$constr[3];
 338         }
 339         if (!$arr) return false;
 340
 341         $arr2 = false;
 342
 343         foreach($arr as $k => $v) {
 344             foreach($v as $a => $b) {
 345                 if ($upper) $a = strtoupper($a);
 346                 $arr2[$a] = $b;
 347             }
 348         }
 349         return $arr2;
 350     }
 351
 352     //From: Fernando Moreira <FMoreira@imediata.pt>
 353     function MetaDatabases()
 354     {
 355         if(@mssql_select_db("master")) {
 356                  $qry=$this->metaDatabasesSQL;
 357                  if($rs=@mssql_query($qry)){
 358                          $tmpAr=$ar=array();
 359                          while($tmpAr=@mssql_fetch_row($rs))
 360                                  $ar[]=$tmpAr[0];
 361                         @mssql_select_db($this->databaseName);
 362                          if(sizeof($ar))
 363                                  return($ar);
 364                          else
 365                                  return(false);
 366                  } else {
 367                          @mssql_select_db($this->databaseName);
 368                          return(false);
 369                  }
 370          }
 371          return(false);
 372     }
 373
 374     // "Stein-Aksel Basma" <basma@accelero.no>
 375     // tested with MSSQL 2000
 376     function MetaPrimaryKeys($table)
 377     {
 378         $sql = "select k.column_name from information_schema.key_column_usage k,
 379         information_schema.table_constraints tc
 380         where tc.constraint_name = k.constraint_name and tc.constraint_type =
 381         'PRIMARY KEY' and k.table_name = '$table'";
 382
 383         $a = $this->GetCol($sql);
 384         if ($a && sizeof($a)>0) return $a;
 385         return false;
 386     }
 387
 388
 389     function &MetaTables($ttype=false,$showSchema=false,$mask=false)
 390     {
 391         if ($mask) {
 392             $save = $this->metaTablesSQL;
 393             $mask = $this->qstr(($mask));
 394             $this->metaTablesSQL .= " AND name like $mask";
 395         }
 396         $ret =& ADOConnection::MetaTables($ttype,$showSchema);
 397
 398         if ($mask) {
 399             $this->metaTablesSQL = $save;
 400         }
 401         return $ret;
 402     }
 403
 404     function SelectDB($dbName)
 405     {
 406         $this->databaseName = $dbName;
 407         if ($this->_connectionID) {
 408             return @mssql_select_db($dbName);
 409         }
 410         else return false;
 411     }
 412
 413     function ErrorMsg()
 414     {
 415         if (empty($this->_errorMsg)){
 416             $this->_errorMsg = mssql_get_last_message();
 417         }
 418         return $this->_errorMsg;
 419     }
 420
 421     function ErrorNo()
 422     {
 423         if ($this->_logsql && $this->_errorCode !== false) return $this->_errorCode;
 424         if (empty($this->_errorMsg)) {
 425             $this->_errorMsg = mssql_get_last_message();
 426         }
 427         $id = @mssql_query("select @@ERROR",$this->_connectionID);
 428         if (!$id) return false;
 429         $arr = mssql_fetch_array($id);
 430         @mssql_free_result($id);
 431         if (is_array($arr)) return $arr[0];
 432        else return -1;
 433     }
 434
 435     // returns true or false
 436     function _connect($argHostname, $argUsername, $argPassword, $argDatabasename)
 437     {
 438         if (!function_exists('mssql_pconnect')) return false;
 439         $this->_connectionID = mssql_connect($argHostname,$argUsername,$argPassword);
 440         if ($this->_connectionID === false) return false;
 441         if ($argDatabasename) return $this->SelectDB($argDatabasename);
 442         return true;
 443     }
 444
 445
 446     // returns true or false
 447     function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
 448     {
 449         if (!function_exists('mssql_pconnect')) return false;
 450         $this->_connectionID = mssql_pconnect($argHostname,$argUsername,$argPassword);
 451         if ($this->_connectionID === false) return false;
 452
 453         // persistent connections can forget to rollback on crash, so we do it here.
 454         if ($this->autoRollback) {
 455             $cnt = $this->GetOne('select @@TRANCOUNT');
 456             while (--$cnt >= 0) $this->Execute('ROLLBACK TRAN');
 457         }
 458         if ($argDatabasename) return $this->SelectDB($argDatabasename);
 459         return true;
 460     }
 461
 462     function Prepare($sql)
 463     {
 464         $sqlarr = explode('?',$sql);
 465         if (sizeof($sqlarr) <= 1) return $sql;
 466         $sql2 = $sqlarr[0];
 467         for ($i = 1, $max = sizeof($sqlarr); $i < $max; $i++) {
 468             $sql2 .=  '@P'.($i-1) . $sqlarr[$i];
 469         }
 470         return array($sql,$this->qstr($sql2),$max);
 471     }
 472
 473     function PrepareSP($sql)
 474     {
 475         if (!$this->_has_mssql_init) {
 476             ADOConnection::outp( "PrepareSP: mssql_init only available since PHP 4.1.0");
 477             return $sql;
 478         }
 479         $stmt = mssql_init($sql,$this->_connectionID);
 480         if (!$stmt)  return $sql;
 481         return array($sql,$stmt);
 482     }
 483
 484     /*
 485     Usage:
 486         $stmt = $db->PrepareSP('SP_RUNSOMETHING'); -- takes 2 params, @myid and @group
 487
 488         # note that the parameter does not have @ in front!
 489         $db->Parameter($stmt,$id,'myid');
 490         $db->Parameter($stmt,$group,'group',false,64);
 491         $db->Execute($stmt);
 492
 493         @param $stmt Statement returned by Prepare() or PrepareSP().
 494         @param $var PHP variable to bind to. Can set to null (for isNull support).
 495         @param $name Name of stored procedure variable name to bind to.
 496         @param [$isOutput] Indicates direction of parameter 0/false=IN  1=OUT  2= IN/OUT. This is ignored in oci8.
 497         @param [$maxLen] Holds an maximum length of the variable.
 498         @param [$type] The data type of $var. Legal values depend on driver.
 499
 500         See mssql_bind documentation at php.net.
 501     */
 502     function Parameter(&$stmt, &$var, $name, $isOutput=false, $maxLen=4000, $type=false)
 503     {
 504         if (!$this->_has_mssql_init) {
 505             ADOConnection::outp( "Parameter: mssql_bind only available since PHP 4.1.0");
 506             return $sql;
 507         }
 508
 509         $isNull = is_null($var); // php 4.0.4 and above...
 510
 511         if ($type === false)
 512             switch(gettype($var)) {
 513             default:
 514             case 'string': $type = SQLCHAR; break;
 515             case 'double': $type = SQLFLT8; break;
 516             case 'integer': $type = SQLINT4; break;
 517             case 'boolean': $type = SQLINT1; break; # SQLBIT not supported in 4.1.0
 518             }
 519
 520         if  ($this->debug) {
 521             $prefix = ($isOutput) ? 'Out' : 'In';
 522             $ztype = (empty($type)) ? 'false' : $type;
 523             ADOConnection::outp( "{$prefix}Parameter(\$stmt, \$php_var='$var', \$name='$name', \$maxLen=$maxLen, \$type=$ztype);");
 524         }
 525         /*
 526             See http://phplens.com/lens/lensforum/msgs.php?id=7231
 527
 528             RETVAL is HARD CODED into php_mssql extension:
 529             The return value (a long integer value) is treated like a special OUTPUT parameter,
 530             called "RETVAL" (without the @). See the example at mssql_execute to
 531             see how it works. - type: one of this new supported PHP constants.
 532                 SQLTEXT, SQLVARCHAR,SQLCHAR, SQLINT1,SQLINT2, SQLINT4, SQLBIT,SQLFLT8
 533         */
 534         if ($name !== 'RETVAL') $name = '@'.$name;
 535         return mssql_bind($stmt[1], $name, $var, $type, $isOutput, $isNull, $maxLen);
 536     }
 537
 538     /*
 539         Unfortunately, it appears that mssql cannot handle varbinary > 255 chars
 540         So all your blobs must be of type "image".
 541
 542         Remember to set in php.ini the following...
 543
 544         ; Valid range 0 - 2147483647. Default = 4096.
 545         mssql.textlimit = 0 ; zero to pass through
 546
 547         ; Valid range 0 - 2147483647. Default = 4096.
 548         mssql.textsize = 0 ; zero to pass through
 549     */
 550     function UpdateBlob($table,$column,$val,$where,$blobtype='BLOB')
 551     {
 552         $sql = "UPDATE $table SET $column=0x".bin2hex($val)." WHERE $where";
 553         return $this->Execute($sql) != false;
 554     }
 555
 556     // returns query ID if successful, otherwise false
 557     function _query($sql,$inputarr)
 558     {
 559         $this->_errorMsg = false;
 560         if (is_array($inputarr)) {
 561
 562             # bind input params with sp_executesql:
 563             # see http://www.quest-pipelines.com/newsletter-v3/0402_F.htm
 564             # works only with sql server 7 and newer
 565             if (!is_array($sql)) $sql = $this->Prepare($sql);
 566             $params = '';
 567             $decl = '';
 568             $i = 0;
 569             foreach($inputarr as $v) {
 570                 if ($decl) {
 571                     $decl .= ', ';
 572                     $params .= ', ';
 573                 }
 574                 if (is_string($v)) {
 575                     $len = strlen($v);
 576                     if ($len == 0) $len = 1;
 577
 578                     if ($len > 4000 ) {
 579                         // NVARCHAR is max 4000 chars. Let's use NTEXT
 580                         $decl .= "@P$i NTEXT";
 581                     } else {
 582                         $decl .= "@P$i NVARCHAR($len)";
 583                     }
 584
 585                     $params .= "@P$i=N". (strncmp($v,"'",1)==0? $v : $this->qstr($v));
 586                 } else if (is_integer($v)) {
 587                     $decl .= "@P$i INT";
 588                     $params .= "@P$i=".$v;
 589                 } else {
 590                     $decl .= "@P$i FLOAT";
 591                     $params .= "@P$i=".$v;
 592                 }
 593                 $i += 1;
 594             }
 595             $decl = $this->qstr($decl);
 596             if ($this->debug) ADOConnection::outp("<font size=-1>sp_executesql N{$sql[1]},N$decl,$params</font>");
 597             $rez = mssql_query("sp_executesql N{$sql[1]},N$decl,$params");
 598
 599         } else if (is_array($sql)) {
 600             # PrepareSP()
 601             $rez = mssql_execute($sql[1]);
 602
 603         } else {
 604             $rez = mssql_query($sql,$this->_connectionID);
 605         }
 606         return $rez;
 607     }
 608
 609     // returns true or false
 610     function _close()
 611     {
 612         if ($this->transCnt) $this->RollbackTrans();
 613         $rez = @mssql_close($this->_connectionID);
 614         $this->_connectionID = false;
 615         return $rez;
 616     }
 617
 618     // mssql uses a default date like Dec 30 2000 12:00AM
 619     function UnixDate($v)
 620     {
 621         return ADORecordSet_array_mssql::UnixDate($v);
 622     }
 623
 624     function UnixTimeStamp($v)
 625     {
 626         return ADORecordSet_array_mssql::UnixTimeStamp($v);
 627     }
 628 }
 629
 630 /*--------------------------------------------------------------------------------------
 631      Class Name: Recordset
 632 --------------------------------------------------------------------------------------*/
 633
 634 class ADORecordset_mssql extends ADORecordSet {
 635
 636     var $databaseType = "mssql";
 637     var $canSeek = true;
 638     var $hasFetchAssoc; // see http://phplens.com/lens/lensforum/msgs.php?id=6083
 639     // _mths works only in non-localised system
 640
 641     function ADORecordset_mssql($id,$mode=false)
 642     {
 643         // freedts check...
 644         $this->hasFetchAssoc = function_exists('mssql_fetch_assoc');
 645
 646         if ($mode === false) {
 647             global $ADODB_FETCH_MODE;
 648             $mode = $ADODB_FETCH_MODE;
 649         }
 650         $this->fetchMode = $mode;
 651         return $this->ADORecordSet($id,$mode);
 652     }
 653
 654
 655     function _initrs()
 656     {
 657     GLOBAL $ADODB_COUNTRECS;
 658         $this->_numOfRows = ($ADODB_COUNTRECS)? @mssql_num_rows($this->_queryID):-1;
 659         $this->_numOfFields = @mssql_num_fields($this->_queryID);
 660     }
 661
 662
 663     //Contributed by "Sven Axelsson" <sven.axelsson@bokochwebb.se>
 664     // get next resultset - requires PHP 4.0.5 or later
 665     function NextRecordSet()
 666     {
 667         if (!mssql_next_result($this->_queryID)) return false;
 668         $this->_inited = false;
 669         $this->bind = false;
 670         $this->_currentRow = -1;
 671         $this->Init();
 672         return true;
 673     }
 674
 675     /* Use associative array to get fields array */
 676     function Fields($colname)
 677     {
 678         if ($this->fetchMode != ADODB_FETCH_NUM) return $this->fields[$colname];
 679         if (!$this->bind) {
 680             $this->bind = array();
 681             for ($i=0; $i < $this->_numOfFields; $i++) {
 682                 $o = $this->FetchField($i);
 683                 $this->bind[strtoupper($o->name)] = $i;
 684             }
 685         }
 686
 687          return $this->fields[$this->bind[strtoupper($colname)]];
 688     }
 689
 690     /*  Returns: an object containing field information.
 691         Get column information in the Recordset object. fetchField() can be used in order to obtain information about
 692         fields in a certain query result. If the field offset isn't specified, the next field that wasn't yet retrieved by
 693         fetchField() is retrieved.      */
 694
 695     function FetchField($fieldOffset = -1)
 696     {
 697         if ($fieldOffset != -1) {
 698             return @mssql_fetch_field($this->_queryID, $fieldOffset);
 699         }
 700         else if ($fieldOffset == -1) {  /*      The $fieldOffset argument is not provided thus its -1   */
 701             return @mssql_fetch_field($this->_queryID);
 702         }
 703         return null;
 704     }
 705
 706     function _seek($row)
 707     {
 708         return @mssql_data_seek($this->_queryID, $row);
 709     }
 710
 711     // speedup
 712     function MoveNext()
 713     {
 714         if ($this->EOF) return false;
 715
 716         $this->_currentRow++;
 717
 718         if ($this->fetchMode & ADODB_FETCH_ASSOC) {
 719             if ($this->fetchMode & ADODB_FETCH_NUM) {
 720                 //ADODB_FETCH_BOTH mode
 721                 $this->fields = @mssql_fetch_array($this->_queryID);
 722             }
 723             else {
 724                 if ($this->hasFetchAssoc) {// only for PHP 4.2.0 or later
 725                      $this->fields = @mssql_fetch_assoc($this->_queryID);
 726                 } else {
 727                     $flds = @mssql_fetch_array($this->_queryID);
 728                     if (is_array($flds)) {
 729                         $fassoc = array();
 730                         foreach($flds as $k => $v) {
 731                             if (is_numeric($k)) continue;
 732                             $fassoc[$k] = $v;
 733                         }
 734                         $this->fields = $fassoc;
 735                     } else
 736                         $this->fields = false;
 737                 }
 738             }
 739
 740             if (is_array($this->fields)) {
 741                 if (ADODB_ASSOC_CASE == 0) {
 742                     foreach($this->fields as $k=>$v) {
 743                         $this->fields[strtolower($k)] = $v;
 744                     }
 745                 } else if (ADODB_ASSOC_CASE == 1) {
 746                     foreach($this->fields as $k=>$v) {
 747                         $this->fields[strtoupper($k)] = $v;
 748                     }
 749                 }
 750             }
 751         } else {
 752             $this->fields = @mssql_fetch_row($this->_queryID);
 753         }
 754         if ($this->fields) return true;
 755         $this->EOF = true;
 756
 757         return false;
 758     }
 759
 760
 761     // INSERT UPDATE DELETE returns false even if no error occurs in 4.0.4
 762     // also the date format has been changed from YYYY-mm-dd to dd MMM YYYY in 4.0.4. Idiot!
 763     function _fetch($ignore_fields=false)
 764     {
 765         if ($this->fetchMode & ADODB_FETCH_ASSOC) {
 766             if ($this->fetchMode & ADODB_FETCH_NUM) {
 767                 //ADODB_FETCH_BOTH mode
 768                 $this->fields = @mssql_fetch_array($this->_queryID);
 769             } else {
 770                 if ($this->hasFetchAssoc) // only for PHP 4.2.0 or later
 771                     $this->fields = @mssql_fetch_assoc($this->_queryID);
 772                 else {
 773                     $this->fields = @mssql_fetch_array($this->_queryID);
 774                     if (is_array($$this->fields)) {
 775                         $fassoc = array();
 776                         foreach($$this->fields as $k => $v) {
 777                             if (is_integer($k)) continue;
 778                             $fassoc[$k] = $v;
 779                         }
 780                         $this->fields = $fassoc;
 781                     }
 782                 }
 783             }
 784
 785             if (!$this->fields) {
 786             } else if (ADODB_ASSOC_CASE == 0) {
 787                 foreach($this->fields as $k=>$v) {
 788                     $this->fields[strtolower($k)] = $v;
 789                 }
 790             } else if (ADODB_ASSOC_CASE == 1) {
 791                 foreach($this->fields as $k=>$v) {
 792                     $this->fields[strtoupper($k)] = $v;
 793                 }
 794             }
 795         } else {
 796             $this->fields = @mssql_fetch_row($this->_queryID);
 797         }
 798         return $this->fields;
 799     }
 800
 801     /*  close() only needs to be called if you are worried about using too much memory while your script
 802         is running. All associated result memory for the specified result identifier will automatically be freed.       */
 803
 804     function _close()
 805     {
 806         $rez = mssql_free_result($this->_queryID);
 807         $this->_queryID = false;
 808         return $rez;
 809     }
 810     // mssql uses a default date like Dec 30 2000 12:00AM
 811     function UnixDate($v)
 812     {
 813         return ADORecordSet_array_mssql::UnixDate($v);
 814     }
 815
 816     function UnixTimeStamp($v)
 817     {
 818         return ADORecordSet_array_mssql::UnixTimeStamp($v);
 819     }
 820
 821 }
 822
 823
 824 class ADORecordSet_array_mssql extends ADORecordSet_array {
 825     function ADORecordSet_array_mssql($id=-1,$mode=false)
 826     {
 827         $this->ADORecordSet_array($id,$mode);
 828     }
 829
 830         // mssql uses a default date like Dec 30 2000 12:00AM
 831     function UnixDate($v)
 832     {
 833
 834         if (is_numeric(substr($v,0,1)) && ADODB_PHPVER >= 0x4200) return parent::UnixDate($v);
 835
 836     global $ADODB_mssql_mths,$ADODB_mssql_date_order;
 837
 838         //Dec 30 2000 12:00AM
 839         if ($ADODB_mssql_date_order == 'dmy') {
 840             if (!preg_match( "|^([0-9]{1,2})[-/\. ]+([A-Za-z]{3})[-/\. ]+([0-9]{4})|" ,$v, $rr)) {
 841                 return parent::UnixDate($v);
 842             }
 843             if ($rr[3] <= TIMESTAMP_FIRST_YEAR) return 0;
 844
 845             $theday = $rr[1];
 846             $themth =  substr(strtoupper($rr[2]),0,3);
 847         } else {
 848             if (!preg_match( "|^([A-Za-z]{3})[-/\. ]+([0-9]{1,2})[-/\. ]+([0-9]{4})|" ,$v, $rr)) {
 849                 return parent::UnixDate($v);
 850             }
 851             if ($rr[3] <= TIMESTAMP_FIRST_YEAR) return 0;
 852
 853             $theday = $rr[2];
 854             $themth = substr(strtoupper($rr[1]),0,3);
 855         }
 856         $themth = $ADODB_mssql_mths[$themth];
 857         if ($themth <= 0) return false;
 858         // h-m-s-MM-DD-YY
 859         return  mktime(0,0,0,$themth,$theday,$rr[3]);
 860     }
 861
 862     function UnixTimeStamp($v)
 863     {
 864
 865         if (is_numeric(substr($v,0,1)) && ADODB_PHPVER >= 0x4200) return parent::UnixTimeStamp($v);
 866
 867     global $ADODB_mssql_mths,$ADODB_mssql_date_order;
 868
 869         //Dec 30 2000 12:00AM
 870          if ($ADODB_mssql_date_order == 'dmy') {
 871              if (!preg_match( "|^([0-9]{1,2})[-/\. ]+([A-Za-z]{3})[-/\. ]+([0-9]{4}) +([0-9]{1,2}):([0-9]{1,2}) *([apAP]{0,1})|"
 872             ,$v, $rr)) return parent::UnixTimeStamp($v);
 873             if ($rr[3] <= TIMESTAMP_FIRST_YEAR) return 0;
 874
 875             $theday = $rr[1];
 876             $themth =  substr(strtoupper($rr[2]),0,3);
 877         } else {
 878             if (!preg_match( "|^([A-Za-z]{3})[-/\. ]+([0-9]{1,2})[-/\. ]+([0-9]{4}) +([0-9]{1,2}):([0-9]{1,2}) *([apAP]{0,1})|"
 879             ,$v, $rr)) return parent::UnixTimeStamp($v);
 880             if ($rr[3] <= TIMESTAMP_FIRST_YEAR) return 0;
 881
 882             $theday = $rr[2];
 883             $themth = substr(strtoupper($rr[1]),0,3);
 884         }
 885
 886         $themth = $ADODB_mssql_mths[$themth];
 887         if ($themth <= 0) return false;
 888
 889         switch (strtoupper($rr[6])) {
 890         case 'P':
 891             if ($rr[4]<12) $rr[4] += 12;
 892             break;
 893         case 'A':
 894             if ($rr[4]==12) $rr[4] = 0;
 895             break;
 896         default:
 897             break;
 898         }
 899         // h-m-s-MM-DD-YY
 900         return  mktime($rr[4],$rr[5],0,$themth,$theday,$rr[3]);
 901     }
 902 }
 903
 904 /*
 905 Code Example 1:
 906
 907 select  object_name(constid) as constraint_name,
 908            object_name(fkeyid) as table_name,
 909         col_name(fkeyid, fkey) as column_name,
 910     object_name(rkeyid) as referenced_table_name,
 911        col_name(rkeyid, rkey) as referenced_column_name
 912 from sysforeignkeys
 913 where object_name(fkeyid) = x
 914 order by constraint_name, table_name, referenced_table_name,  keyno
 915
 916 Code Example 2:
 917 select  constraint_name,
 918     column_name,
 919     ordinal_position
 920 from information_schema.key_column_usage
 921 where constraint_catalog = db_name()
 922 and table_name = x
 923 order by constraint_name, ordinal_position
 924
 925 http://www.databasejournal.com/scripts/article.php/1440551
 926 */
 927
 928 ?>