Библиотека для cis, online, cms1

creole/drivers/oracle/OCI8ResultSet.php

@@ -0,0 +1,131 @@
+<?php
+/*
+ *  $Id: OCI8ResultSet.php,v 1.13 2006/01/17 19:44:40 hlellelid Exp $
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+ * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+ * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * This software consists of voluntary contributions made by many individuals
+ * and is licensed under the LGPL. For more information please see
+ * <http://creole.phpdb.org>.
+ */
+ 
+require_once 'creole/ResultSet.php';
+require_once 'creole/common/ResultSetCommon.php';
+
+/**
+ * Oracle (OCI8) implementation of ResultSet class.
+ *
+ * @author    David Giffin <david@giffin.org>
+ * @author    Hans Lellelid <hans@xmpl.org>
+ * @version   $Revision: 1.13 $
+ * @package   creole.drivers.oracle
+ */
+class OCI8ResultSet extends ResultSetCommon implements ResultSet
+{
+    /**
+     * @see ResultSet::seek()
+     */ 
+    function seek($rownum)
+    {
+        if ( $rownum < $this->cursorPos )
+		{
+            // this will effectively disable previous(), first() and some calls to relative() or absolute()
+            throw new SQLException( 'Oracle ResultSet is FORWARD-ONLY' );
+        }
+        
+        // Oracle has no seek function imulate it here
+        while ( $this->cursorPos < $rownum )
+		{
+            $this->next();
+        }
+
+        $this->cursorPos		= $rownum;
+
+        return true;
+    }
+    
+    /**
+     * @see ResultSet::next()
+     */ 
+    function next()
+    {   
+		// no specific result position available
+
+		// Returns an array, which corresponds to the next result row or FALSE
+		// in case of error or there is no more rows in the result.
+        $this->fields			= oci_fetch_array( $this->result
+									, $this->fetchmode
+										+ OCI_RETURN_NULLS
+										+ OCI_RETURN_LOBS
+								);
+
+		if ( ! $this->fields )
+		{
+			// grab error via array
+			$error				= oci_error( $this->result );
+
+			if ( ! $error )
+			{
+				// end of recordset
+				$this->afterLast();
+
+				return false;
+			}
+
+			else
+			{
+				throw new SQLException( 'Error fetching result'
+					, $error[ 'code' ] . ': ' . $error[ 'message' ]
+				);
+			}
+		}
+
+		// Oracle returns all field names in uppercase and associative indices
+		// in the result array will be uppercased too.
+        if ($this->fetchmode === ResultSet::FETCHMODE_ASSOC && $this->lowerAssocCase)
+		{
+			$this->fields = array_change_key_case($this->fields, CASE_LOWER);
+        }
+        
+        // Advance cursor position
+        $this->cursorPos++;
+
+        return true;
+    }
+
+    /**
+     * @see ResultSet::getRecordCount()
+     */
+    function getRecordCount()
+    {
+        $rows					= oci_num_rows( $this->result );
+
+        if ( $rows === false )
+		{
+            throw new SQLException( 'Error fetching num rows'
+				, $this->conn->nativeError( $this->result )
+			);
+        }
+
+        return ( int ) $rows;
+    }
+
+    /**
+     * @see ResultSet::close()
+     */ 
+    function close()
+    {
+		$this->fields			= array();
+        @oci_free_statement( $this->result );
+    }
+}