function cargarArray($sentencia)
{
    include dirname(__FILE__) . '/conectar_ORACLE.php';
    $array = array();
    $sentenciaExec = oci_parse($c, $sentencia);
    oci_execute($sentenciaExec);
    $error = 0;
    $k = 0;
    $ncols = oci_num_fields($sentenciaExec);
    for ($i = 1; $i <= $ncols; ++$i) {
        $colname = oci_field_name($sentenciaExec, $i);
        $array[0][$k] = $colname;
        $k++;
    }
    $cont = 0;
    $j = 1;
    $k = 0;
    while ($row = oci_fetch_array($sentenciaExec, OCI_BOTH + OCI_RETURN_NULLS)) {
        while ($cont < $ncols) {
            $array[$j][$cont] = $row[$cont];
            $cont++;
        }
        $cont = 0;
        $k = 0;
        $j++;
    }
    if (oci_num_rows($sentenciaExec) == 0) {
        oci_free_statement($sentenciaExec);
        return false;
    } else {
        oci_free_statement($sentenciaExec);
        return $array;
    }
}

function fetchAndUpdateFacultyInfo($query, $conn, $nextPage)
{
    $stid = oci_parse($conn, $query);
    var_dump($query);
    oci_execute($stid);
    echo "<form action=\"{$nextPage}?user=FACULTY\">";
    echo "<table border='1'>\n";
    while ($row = oci_fetch_array($stid, OCI_ASSOC + OCI_RETURN_NULLS)) {
        $i = 1;
        foreach ($row as $item) {
            echo "<tr>\n";
            $column_name = oci_field_name($stid, $i);
            echo "<td> {$column_name} </td>\n";
            if ($column_name == "UnityId" || $column_name == "FacultyNo" || $column_name == "Balance" || $column_name == "Type" || $column_name == "Category" || $column_name == "isHeld" || $column_name == "Department") {
                echo "    <td>" . "<input type=\"text\" name=\"{$column_name}\" value=\"{$item}\" readonly>" . "</td>\n";
            } else {
                echo "    <td>" . "<input type=\"text\" name=\"{$column_name}\" value=\"{$item}\" >" . "</td>\n";
            }
            $i++;
            echo "</tr>\n";
        }
    }
    echo "</table>\n";
    echo "<input type=\"submit\" value=\"Update\">";
    echo "</form>";
}

 function GetData($_start, $_count = 999999)
 {
     $_tpl_select_command = "SELECT {fields} FROM ( SELECT a.*, rownum rnum FROM ({SelectCommand}) a WHERE rownum <= " . ($_start + $_count) . " ) WHERE rnum >= " . $_start . " {where} {orderby} {groupby}";
     //Fields
     $_fields = "";
     $_fld_array = array();
     $_st_id = oci_parse($this->_Link, $this->SelectCommand);
     if ($_st_id) {
         oci_execute($_st_id);
         $_num_fields = oci_num_fields($_st_id);
         for ($i = 1; $i <= $_num_fields; $i++) {
             array_push($_fld_array, '"' . oci_field_name($_st_id, $i) . '"');
         }
     }
     for ($i = 0; $i < sizeof($_fld_array); $i++) {
         $_fields .= ", " . $_fld_array[$i];
     }
     if ($_fields != "") {
         $_fields = substr($_fields, 2);
     }
     //Filters
     $_where = "";
     $_filters = $this->Filters;
     for ($i = 0; $i < sizeof($_filters); $i++) {
         $_where .= " and " . $this->GetFilterExpression($_filters[$i]);
     }
     //Order
     $_orderby = "";
     $_orders = $this->Sorts;
     for ($i = 0; $i < sizeof($_orders); $i++) {
         $_orderby .= ", " . $_orders[$i]->Field . " " . $_orders[$i]->Order;
     }
     if ($_orderby != "") {
         $_orderby = "ORDER BY " . substr($_orderby, 2);
     }
     //Group
     $_groupby = "";
     $_groups = $this->Groups;
     for ($i = 0; $i < sizeof($_groups); $i++) {
         $_groupby .= ", " . $_groups[$i]->Field;
     }
     if ($_groupby != "") {
         $_groupby = "GROUP BY " . substr($_groupby, 2);
     }
     $_select_command = str_replace("{fields}", $_fields, $_tpl_select_command);
     $_select_command = str_replace("{SelectCommand}", $this->SelectCommand, $_select_command);
     $_select_command = str_replace("{where}", $_where, $_select_command);
     $_select_command = str_replace("{orderby}", $_orderby, $_select_command);
     $_select_command = str_replace("{groupby}", $_groupby, $_select_command);
     $_rows = array();
     $_st_id = oci_parse($this->_Link, $_select_command);
     if ($_st_id) {
         oci_execute($_st_id);
         while ($_row = oci_fetch_array($_st_id, OCI_ASSOC + OCI_RETURN_NULLS)) {
             array_push($_rows, $_row);
         }
     }
     return $_rows;
 }

 public function getResultFields()
 {
     if (empty($this->resultFields)) {
         $numFields = oci_num_fields($this->resource);
         for ($i = 0; $i < $numFields; $i++) {
             $this->resultFields[$i] = array("name" => oci_field_name($this->resource, $i + 1), "type" => oci_field_type($this->resource, $i + 1));
         }
     }
     return $this->resultFields;
 }

 public static function oci_field_name($connection, $statement, $fieldNumber)
 {
     self::checkOCIExtension('oci_field_name');
     $name = @oci_field_name($statement, $fieldNumber);
     if ($name === FALSE) {
         $error = oci_error($connection);
         throw new IllegalStateException(t('Could not retrieve the name of a field (field number: @fieldNumber) from the statement: @error', array('@fieldNumber' => $fieldNumber, '@error' => t($error['message']))));
     }
     return $name;
 }

 public function field_data()
 {
     $retval = array();
     for ($c = 1, $fieldCount = $this->num_fields(); $c <= $fieldCount; $c++) {
         $F = new stdClass();
         $F->name = oci_field_name($this->stmt_id, $c);
         $F->type = oci_field_type($this->stmt_id, $c);
         $F->max_length = oci_field_size($this->stmt_id, $c);
         $retval[] = $F;
     }
     return $retval;
 }

 function fetchAssoc()
 {
     if ($this->cursor >= $this->nrows) {
         return false;
     }
     $row = $this->rows[$this->cursor++];
     $ret = array();
     foreach ($row as $k => $v) {
         $lc = strtolower(oci_field_name($this->stmt, $k + 1));
         $ret[$lc] = $v;
         $ret[$k] = $v;
     }
     return $ret;
 }

 function paginate($start, $limit)
 {
     // Extract the fields being selected (swiped from PEAR::DB)
     $sql = "SELECT * FROM ({$this->sql}) WHERE 1=1";
     $stmt = new lmbOciStatement($this->connection, $sql);
     $queryId = $this->connection->executeStatement($stmt->getStatement());
     $ncols = oci_num_fields($queryId);
     $cols = array();
     for ($i = 1; $i <= $ncols; $i++) {
         $cols[] = '"' . oci_field_name($queryId, $i) . '"';
     }
     $fields = implode(',', $cols);
     // Build the paginated query...
     $sql = "SELECT {$fields} FROM" . "  (SELECT rownum as linenum, {$fields} FROM" . "      ({$this->sql})" . '  WHERE rownum <= ' . ($start + $limit) . ') WHERE linenum >= ' . ++$start;
     $this->sql = $sql;
 }

function fetchInfo($query, $conn)
{
    $stid = oci_parse($conn, $query);
    var_dump($query);
    oci_execute($stid);
    while ($row = oci_fetch_array($stid, OCI_ASSOC + OCI_RETURN_NULLS)) {
        $i = 1;
        echo "<tr>\n";
        foreach ($row as $item) {
            $column_name = oci_field_name($stid, $i);
            echo "    <td>" . $item . "</td>\n";
            $i++;
        }
        echo "</tr>\n";
    }
}

 /**
  * Returns an array of fields according to columns in the result.
  *
  * @return \Bitrix\Main\Entity\ScalarField[]
  */
 public function getFields()
 {
     if ($this->resultFields == null) {
         $this->resultFields = array();
         if (is_resource($this->resource)) {
             $numFields = oci_num_fields($this->resource);
             if ($numFields > 0 && $this->connection) {
                 $helper = $this->connection->getSqlHelper();
                 for ($i = 1; $i <= $numFields; $i++) {
                     $name = oci_field_name($this->resource, $i);
                     $type = oci_field_type($this->resource, $i);
                     $parameters = array("precision" => oci_field_precision($this->resource, $i), "scale" => oci_field_scale($this->resource, $i), "size" => oci_field_size($this->resource, $i));
                     $this->resultFields[$name] = $helper->getFieldByColumnType($name, $type, $parameters);
                 }
             }
         }
     }
     return $this->resultFields;
 }

 function _FetchField($fieldOffset = -1)
 {
     global $QUERCUS;
     $fld = new ADOFieldObject();
     if (!empty($QUERCUS)) {
         $fld->name = oci_field_name($this->_queryID, $fieldOffset);
         $fld->type = oci_field_type($this->_queryID, $fieldOffset);
         $fld->max_length = oci_field_size($this->_queryID, $fieldOffset);
         //if ($fld->name == 'VAL6_NUM_12_4') $fld->type = 'NUMBER';
         switch ($fld->type) {
             case 'string':
                 $fld->type = 'VARCHAR';
                 break;
             case 'real':
                 $fld->type = 'NUMBER';
                 break;
         }
     } else {
         $fieldOffset += 1;
         $fld->name = oci_field_name($this->_queryID, $fieldOffset);
         $fld->type = oci_field_type($this->_queryID, $fieldOffset);
         $fld->max_length = oci_field_size($this->_queryID, $fieldOffset);
     }
     switch ($fld->type) {
         case 'NUMBER':
             $p = oci_field_precision($this->_queryID, $fieldOffset);
             $sc = oci_field_scale($this->_queryID, $fieldOffset);
             if ($p != 0 && $sc == 0) {
                 $fld->type = 'INT';
             }
             $fld->scale = $p;
             break;
         case 'CLOB':
         case 'NCLOB':
         case 'BLOB':
             $fld->max_length = -1;
             break;
     }
     return $fld;
 }

 private function _getColumnMeta($stmt, $columnIndex = 0)
 {
     $meta['name'] = \strtoupper(oci_field_name($stmt, $columnIndex + 1));
     $meta['len'] = oci_field_size($stmt, $columnIndex + 1);
     $type = oci_field_type($stmt, $columnIndex + 1);
     $rType = 'C';
     if ($type == "VARCHAR") {
         $rType = 'C';
     } elseif ($type == "CHAR") {
         $rType = 'C';
     } elseif ($type == "NUMBER") {
         $rType = 'N';
     } elseif ($type == "DATE") {
         $rType = 'D';
     } elseif ($type == "TIMESTAMP") {
         $rType = 'D';
     } elseif ($type == "BLOB") {
         $rType = 'O';
     } elseif ($type == "CLOB") {
         $rType = 'O';
     }
     $meta['type'] = $rType;
     return $meta;
 }

 /**
  * Returns metadata for all columns in a result set.
  * @return array
  */
 public function getResultColumns()
 {
     $count = oci_num_fields($this->resultSet);
     $columns = array();
     for ($i = 1; $i <= $count; $i++) {
         $columns[] = array('name' => oci_field_name($this->resultSet, $i), 'table' => NULL, 'fullname' => oci_field_name($this->resultSet, $i), 'nativetype' => oci_field_type($this->resultSet, $i));
     }
     return $columns;
 }

 /**
  * Executes a prepared statement.
  *
  * @param array $params OPTIONAL Values to bind to parameter placeholders.
  * @return bool
  * @throws \Zend\Db\Statement\Exception
  */
 public function _execute(array $params = null)
 {
     $connection = $this->_adapter->getConnection();
     if (!$this->_stmt) {
         return false;
     }
     if ($params !== null) {
         if (!is_array($params)) {
             $params = array($params);
         }
         $error = false;
         foreach (array_keys($params) as $name) {
             if (!@oci_bind_by_name($this->_stmt, $name, $params[$name], -1)) {
                 $error = true;
                 break;
             }
         }
         if ($error) {
             throw new OracleException(oci_error($this->_stmt));
         }
     }
     $retval = @oci_execute($this->_stmt, $this->_adapter->_getExecuteMode());
     if ($retval === false) {
         throw new OracleException(oci_error($this->_stmt));
     }
     $this->_keys = array();
     if ($field_num = oci_num_fields($this->_stmt)) {
         for ($i = 1; $i <= $field_num; $i++) {
             $name = oci_field_name($this->_stmt, $i);
             $this->_keys[] = $name;
         }
     }
     $this->_values = array();
     if ($this->_keys) {
         $this->_values = array_fill(0, count($this->_keys), null);
     }
     return $retval;
 }

<?php

header("Pragma: public");
header("Expires: 0");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Content-Type: application/vnd.ms-excel");
header("Content-Disposition: attachment; filename=OGP.OLO.xls");
include "config/connect.php";
$sql = OCIParse($connect, "SELECT * FROM SB_OLO WHERE STAT_SERVICE <> 'Closed'");
ociexecute($sql);
echo "<table border='1'>\n";
$ncols = oci_num_fields($sql);
echo "<tr>\n";
for ($i = 1; $i <= $ncols; ++$i) {
    $colname = oci_field_name($sql, $i);
    echo "  <th><b>" . htmlentities($colname, ENT_QUOTES) . "</b></th>\n";
}
echo "</tr>\n";
while (($row = oci_fetch_array($sql, OCI_ASSOC + OCI_RETURN_NULLS)) != false) {
    echo "<tr>\n";
    foreach ($row as $therow) {
        echo "  <td>" . ($therow !== null ? htmlentities($therow, ENT_QUOTES) : " ") . "</td>\n";
    }
    echo "</tr>\n";
}
echo "</table>\n";

 /**
  * Get column meta data
  *
  * @param int $colnum column number
  *
  * @return mixed column meta data
  */
 public function getColumnMeta($colnum = 0)
 {
     if (!$this->_stmt) {
         return null;
     }
     $name = \oci_field_name($this->_stmt, $colnum + 1);
     $len = \oci_field_size($this->_stmt, $colnum + 1);
     $prec = \oci_field_scale($this->_stmt, $colnum + 1);
     $type = \oci_field_type($this->_stmt, $colnum + 1);
     return array("name" => $name, "len" => $len, "precision" => $prec, "driver:decl_type" => $type);
 }

 function sql_field_name($sqltype, $result, $i)
 {
     if ($sqltype == 'mysql') {
         if (class_exists('mysqli_result')) {
             $z = $result->fetch_field();
             return $z->name;
         } elseif (function_exists('mysql_field_name')) {
             return mysql_field_name($result, $i);
         }
     } elseif ($sqltype == 'mssql') {
         if (function_exists('sqlsrv_field_metadata')) {
             $metadata = sqlsrv_field_metadata($result);
             if (is_array($metadata)) {
                 $metadata = $metadata[$i];
             }
             if (is_array($metadata)) {
                 return $metadata['Name'];
             }
         } elseif (function_exists('mssql_field_name')) {
             return mssql_field_name($result, $i);
         }
     } elseif ($sqltype == 'pgsql') {
         return pg_field_name($result, $i);
     } elseif ($sqltype == 'oracle') {
         return oci_field_name($result, $i + 1);
     } elseif ($sqltype == 'sqlite3') {
         return $result->columnName($i);
     } elseif ($sqltype == 'sqlite') {
         return sqlite_field_name($result, $i);
     } elseif ($sqltype == 'odbc') {
         return odbc_field_name($result, $i + 1);
     } elseif ($sqltype == 'pdo') {
         $res = $result->getColumnMeta($i);
         return $res['name'];
     }
 }

//.........这里部分代码省略.........
Port:<input type="text" name="oraport" value="{$oraport}" style="width:50px">
User:<input type="text" name="orauser" value="{$orauser}" style="width:80px">
Pass:<input type="text" name="orapass" value="{$orapass}" style="width:100px">
SID:<input type="text" name="orasid" value="{$orasid}" style="width:50px"><br>
<script language="javascript">
function oraFull(i){
Str = new Array(5);
\tStr[0] = "";
\tStr[1] = "select version();";
\tStr[2] = "SELECT NAME FROM V{$DATABASE}";
\tStr[3] = "select * From all_objects where object_type='TABLE'";
\tStr[4] = "select column_name from user_tab_columns where table_name='table1'";
\toraform.orasql.value = Str[i];
\treturn true;
}
</script>
<textarea name="orasql" style="width:600px;height:200px;">{$oraquery}</textarea><br>
<select onchange="return oraFull(options[selectedIndex].value)">
\t<option value="0" selected>ִ������</option>
\t<option value="1">��ʾ�汾</option>
\t<option value="2">���ݿ�</option>
\t<option value="3">����</option>
\t<option value="4">�ֶ�</option>
</select>
<input type="hidden" name="action" value="myquery">
<input class="bt" type="submit" value="Query"></div></form>
END;
        if ($oraaction == 'oraquery') {
            $oralink = OCILogon($orauser, $orapass, "(DEscriptION=(ADDRESS=(PROTOCOL =TCP)(HOST={$orahost})(PORT = {$oraport}))(CONNECT_DATA =(SID={$orasid})))") or die(ocierror());
            $oraresult = ociparse($oralink, $oraquery) or die(ocierror());
            $orarow = oci_fetch_row($oraresult);
            echo '<font face="verdana"><table border="1" cellpadding="1" cellspacing="2">' . "\n<tr>\n";
            for ($i = 0; $i < oci_num_fields($oraresult); $i++) {
                echo '<td><b>' . oci_field_name($oraresult, $i) . "</b></td>\n";
            }
            echo "</tr>\n";
            ociresult($oraresult, 0);
            while ($orarow = ora_fetch_row($oraresult)) {
                echo "<tr>\n";
                for ($i = 0; $i < ora_num_fields($result); $i++) {
                    echo '<td>' . "{$orarow[$i]}" . '</td>';
                }
                echo "</tr>\n";
            }
            echo "</table></font>";
            oci_free_statement($oraresult);
            ocilogoff();
        }
    } elseif ($db == "ifx") {
        $ifxuser = isset($_POST['ifxuser']) ? $_POST['ifxuser'] : 'root';
        $ifxpass = isset($_POST['ifxpass']) ? $_POST['ifxpass'] : '123456';
        $ifxdbname = isset($_POST['ifxdbname']) ? $_POST['ifxdbname'] : 'ifxdb';
        $ifxaction = isset($_POST['action']) ? $_POST['action'] : '';
        $ifxquery = isset($_POST['ifxsql']) ? $_POST['ifxsql'] : '';
        $ifxquery = stripslashes($ifxquery);
        print <<<END
<form method="POST" name="ifxform" action="?s=gg&db=ifx">
<div class="actall">Dbname:<input type="text" name="ifxhost" value="{$ifxdbname}" style="width:100px">
User:<input type="text" name="ifxuser" value="{$ifxuser}" style="width:100px">
Pass:<input type="text" name="ifxpass" value="{$ifxpass}" style="width:100px"><br>
<script language="javascript">
function ifxFull(i){
Str = new Array(11);
\tStr[0] = "";
\tStr[1] = "select dbservername from sysobjects;";
\tStr[2] = "select name from sysdatabases;";

 /**
  * Devuelve el nombre de un campo en el resultado de un select
  *
  * @param int $number
  * @param resource $resultQuery
  * @return string
  */
 function field_name($number, $resultQuery = '')
 {
     if (!$this->id_connection) {
         return false;
     }
     if (!$resultQuery) {
         $resultQuery = $this->last_result_query;
         if (!$resultQuery) {
             throw new KumbiaException($this->error('Resource invalido para db::field_name'));
         }
     }
     if (($fieldName = oci_field_name($resultQuery, $number + 1)) !== false) {
         return strtolower($fieldName);
     } else {
         throw new KumbiaException($this->error());
     }
     return false;
 }

if ($FILTROSUCURSALES !== "") {
    $filtros .= ' Sucursales: ' . $FILTROSUCURSALES . '.';
}
if ($FILTROCOORDINADOR !== "") {
    $filtros .= ' Cordinador: ' . $FILTROCOORDINADOR . '.';
}
if ($FILTROSUSCRIPTOR !== "") {
    $filtros .= ' Suscriptor: ' . $FILTROSUSCRIPTOR . '.';
}
/** Borders for 1st line */
$objPHPExcel->getActiveSheet()->getStyle('A1:' . $objPHPExcel->getActiveSheet()->getHighestColumn() . $objPHPExcel->getActiveSheet()->getHighestRow())->getBorders()->getAllBorders()->setBorderStyle(PHPExcel_Style_Border::BORDER_THIN);
/** Color for 1st line*/
$objPHPExcel->getActiveSheet()->getStyle('A1')->applyFromArray(array('fill' => array('type' => PHPExcel_Style_Fill::FILL_SOLID, 'color' => array('rgb' => 'FF0000'))));
$objPHPExcel->getActiveSheet()->getStyle('A1')->getFont()->setBold(true)->getColor()->setRGB('FFFFFF');
for ($i = 1; $i <= $ncols; ++$i) {
    $colname = oci_field_name($REFCUR, $i);
    $objPHPExcel->getActiveSheet()->setCellValue($COLL . '3', $colname);
    $COLL++;
}
$COLN = 4;
$COLL = 'A';
$LAST_COLL = 'A';
$NUM_COL = 0;
// $COLLTOTALES = 'C';
while ($row = oci_fetch_array($REFCUR, OCI_BOTH + OCI_RETURN_NULLS)) {
    while ($NUM_COL < $ncols) {
        $objPHPExcel->getActiveSheet()->setCellValue($COLL . $COLN, $row[$NUM_COL]);
        $NUM_COL++;
        $LAST_COLL = $COLL;
        $COLL++;
    }