Changeset 34 for trunk/phpgwapi/inc/adodb/drivers/adodb-odbc_mssql.inc.php

Timestamp:

06/29/07 15:17:46 (17 years ago)

Author:

niltonneto

Message:

Versão nova do ADODB (4.5 para 4.95)

File:

• trunk/phpgwapi/inc/adodb/drivers/adodb-odbc_mssql.inc.php (modified) (6 diffs)

trunk/phpgwapi/inc/adodb/drivers/adodb-odbc_mssql.inc.php

@@ -1 +1 @@
 <?php
 /* 
-V4.51 29 July 2004  (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.
+V4.94 23 Jan 2007  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
   Released under both BSD license and Lesser GPL library license. 
   Whenever there is any discrepancy between the two licenses, 
@@ -24 +24 @@
         var $databaseType = 'odbc_mssql';
         var $fmtDate = "'Y-m-d'";
-        var $fmtTimeStamp = "'Y-m-d h:i:sA'";
+        var $fmtTimeStamp = "'Y-m-d H:i:s'";
         var $_bindInputArray = true;
         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'))";
@@ -44 +44 @@
         {
                 $this->ADODB_odbc();
-                $this->curmode = SQL_CUR_USE_ODBC;      
+                //$this->curmode = SQL_CUR_USE_ODBC;    
         }
 
@@ -133 +133 @@
         function &MetaColumns($table)
         {
-                return ADOConnection::MetaColumns($table);
+                $arr = ADOConnection::MetaColumns($table);
+                return $arr;
+        }
+        
+        
+        function &MetaIndexes($table,$primary=false)
+        {
+                $table = $this->qstr($table);
+
+                $sql = "SELECT i.name AS ind_name, C.name AS col_name, USER_NAME(O.uid) AS Owner, c.colid, k.Keyno, 
+                        CASE WHEN I.indid BETWEEN 1 AND 254 AND (I.status & 2048 = 2048 OR I.Status = 16402 AND O.XType = 'V') THEN 1 ELSE 0 END AS IsPK,
+                        CASE WHEN I.status & 2 = 2 THEN 1 ELSE 0 END AS IsUnique
+                        FROM dbo.sysobjects o INNER JOIN dbo.sysindexes I ON o.id = i.id 
+                        INNER JOIN dbo.sysindexkeys K ON I.id = K.id AND I.Indid = K.Indid 
+                        INNER JOIN dbo.syscolumns c ON K.id = C.id AND K.colid = C.Colid
+                        WHERE LEFT(i.name, 8) <> '_WA_Sys_' AND o.status >= 0 AND O.Name LIKE $table
+                        ORDER BY O.name, I.Name, K.keyno";
+
+                global $ADODB_FETCH_MODE;
+                $save = $ADODB_FETCH_MODE;
+        $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
+        if ($this->fetchMode !== FALSE) {
+                $savem = $this->SetFetchMode(FALSE);
+        }
+        
+        $rs = $this->Execute($sql);
+        if (isset($savem)) {
+                $this->SetFetchMode($savem);
+        }
+        $ADODB_FETCH_MODE = $save;
+
+        if (!is_object($rs)) {
+                return FALSE;
+        }
+
+                $indexes = array();
+                while ($row = $rs->FetchRow()) {
+                        if (!$primary && $row[5]) continue;
+                        
+            $indexes[$row[0]]['unique'] = $row[6];
+            $indexes[$row[0]]['columns'][] = $row[1];
+        }
+        return $indexes;
         }
         
@@ -140 +182 @@
                 if (is_string($sql)) $sql = str_replace('||','+',$sql);
                 return ADODB_odbc::_query($sql,$inputarr);
+        }
+        
+        function SetTransactionMode( $transaction_mode ) 
+        {
+                $this->_transmode  = $transaction_mode;
+                if (empty($transaction_mode)) {
+                        $this->Execute('SET TRANSACTION ISOLATION LEVEL READ COMMITTED');
+                        return;
+                }
+                if (!stristr($transaction_mode,'isolation')) $transaction_mode = 'ISOLATION LEVEL '.$transaction_mode;
+                $this->Execute("SET TRANSACTION ".$transaction_mode);
         }
         
@@ -164 +217 @@
                 
                 if ($a && sizeof($a)>0) return $a;
-                return false;     
+                $false = false;
+                return $false;    
         }