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

   1 <?php
   2 /*
   3  @version 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  Contribution by Frank M. Kromann <frank@frontbase.com>.
   8   Set tabs to 8.
   9 */
  10
  11 if (! defined("_ADODB_FBSQL_LAYER")) {
  12  define("_ADODB_FBSQL_LAYER", 1 );
  13
  14 class ADODB_fbsql extends ADOConnection {
  15     var $databaseType = 'fbsql';
  16     var $hasInsertID = true;
  17     var $hasAffectedRows = true;
  18     var $metaTablesSQL = "SHOW TABLES";
  19     var $metaColumnsSQL = "SHOW COLUMNS FROM %s";
  20     var $fmtTimeStamp = "'Y-m-d H:i:s'";
  21     var $hasLimit = false;
  22
  23     function ADODB_fbsql()
  24     {
  25     }
  26
  27     function _insertid()
  28     {
  29             return fbsql_insert_id($this->_connectionID);
  30     }
  31
  32     function _affectedrows()
  33     {
  34             return fbsql_affected_rows($this->_connectionID);
  35     }
  36
  37       function &MetaDatabases()
  38     {
  39         $qid = fbsql_list_dbs($this->_connectionID);
  40         $arr = array();
  41         $i = 0;
  42         $max = fbsql_num_rows($qid);
  43         while ($i < $max) {
  44             $arr[] = fbsql_tablename($qid,$i);
  45             $i += 1;
  46         }
  47         return $arr;
  48     }
  49
  50     // returns concatenated string
  51     function Concat()
  52     {
  53         $s = "";
  54         $arr = func_get_args();
  55         $first = true;
  56
  57         $s = implode(',',$arr);
  58         if (sizeof($arr) > 0) return "CONCAT($s)";
  59         else return '';
  60     }
  61
  62     // returns true or false
  63     function _connect($argHostname, $argUsername, $argPassword, $argDatabasename)
  64     {
  65         $this->_connectionID = fbsql_connect($argHostname,$argUsername,$argPassword);
  66         if ($this->_connectionID === false) return false;
  67         if ($argDatabasename) return $this->SelectDB($argDatabasename);
  68         return true;
  69     }
  70
  71     // returns true or false
  72     function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
  73     {
  74         $this->_connectionID = fbsql_pconnect($argHostname,$argUsername,$argPassword);
  75         if ($this->_connectionID === false) return false;
  76         if ($argDatabasename) return $this->SelectDB($argDatabasename);
  77         return true;
  78     }
  79
  80      function &MetaColumns($table)
  81     {
  82         if ($this->metaColumnsSQL) {
  83
  84             $rs = $this->Execute(sprintf($this->metaColumnsSQL,$table));
  85
  86             if ($rs === false) return false;
  87
  88             $retarr = array();
  89             while (!$rs->EOF){
  90                 $fld = new ADOFieldObject();
  91                 $fld->name = $rs->fields[0];
  92                 $fld->type = $rs->fields[1];
  93
  94                 // split type into type(length):
  95                 if (preg_match("/^(.+)\((\d+)\)$/", $fld->type, $query_array)) {
  96                     $fld->type = $query_array[1];
  97                     $fld->max_length = $query_array[2];
  98                 } else {
  99                     $fld->max_length = -1;
 100                 }
 101                 $fld->not_null = ($rs->fields[2] != 'YES');
 102                 $fld->primary_key = ($rs->fields[3] == 'PRI');
 103                 $fld->auto_increment = (strpos($rs->fields[5], 'auto_increment') !== false);
 104                 $fld->binary = (strpos($fld->type,'blob') !== false);
 105
 106                 $retarr[strtoupper($fld->name)] = $fld;
 107                 $rs->MoveNext();
 108             }
 109             $rs->Close();
 110             return $retarr;
 111         }
 112         return false;
 113     }
 114
 115     // returns true or false
 116     function SelectDB($dbName)
 117     {
 118         $this->databaseName = $dbName;
 119         if ($this->_connectionID) {
 120             return @fbsql_select_db($dbName,$this->_connectionID);
 121         }
 122         else return false;
 123     }
 124
 125     // returns queryID or false
 126     function _query($sql,$inputarr)
 127     {
 128         return fbsql_query("$sql;",$this->_connectionID);
 129     }
 130
 131     /*  Returns: the last error message from previous database operation        */
 132     function ErrorMsg()
 133     {
 134         $this->_errorMsg = @fbsql_error($this->_connectionID);
 135             return $this->_errorMsg;
 136     }
 137
 138     /*  Returns: the last error number from previous database operation */
 139     function ErrorNo()
 140     {
 141         return @fbsql_errno($this->_connectionID);
 142     }
 143
 144     // returns true or false
 145     function _close()
 146     {
 147         return @fbsql_close($this->_connectionID);
 148     }
 149
 150 }
 151
 152 /*--------------------------------------------------------------------------------------
 153      Class Name: Recordset
 154 --------------------------------------------------------------------------------------*/
 155
 156 class ADORecordSet_fbsql extends ADORecordSet{
 157
 158     var $databaseType = "fbsql";
 159     var $canSeek = true;
 160
 161     function ADORecordSet_fbsql($queryID,$mode=false)
 162     {
 163         if (!$mode) {
 164             global $ADODB_FETCH_MODE;
 165             $mode = $ADODB_FETCH_MODE;
 166         }
 167         switch ($mode) {
 168         case ADODB_FETCH_NUM: $this->fetchMode = FBSQL_NUM; break;
 169         default:
 170         case ADODB_FETCH_BOTH: $this->fetchMode = FBSQL_BOTH; break;
 171         case ADODB_FETCH_ASSOC: $this->fetchMode = FBSQL_ASSOC; break;
 172         }
 173         return $this->ADORecordSet($queryID);
 174     }
 175
 176     function _initrs()
 177     {
 178     GLOBAL $ADODB_COUNTRECS;
 179         $this->_numOfRows = ($ADODB_COUNTRECS) ? @fbsql_num_rows($this->_queryID):-1;
 180         $this->_numOfFields = @fbsql_num_fields($this->_queryID);
 181     }
 182
 183     function &FetchField($fieldOffset = -1) {
 184         if ($fieldOffset != -1) {
 185             $o =  @fbsql_fetch_field($this->_queryID, $fieldOffset);
 186             //$o->max_length = -1; // fbsql returns the max length less spaces -- so it is unrealiable
 187             $f = @fbsql_field_flags($this->_queryID,$fieldOffset);
 188             $o->binary = (strpos($f,'binary')!== false);
 189         }
 190         else if ($fieldOffset == -1) {  /*      The $fieldOffset argument is not provided thus its -1   */
 191             $o = @fbsql_fetch_field($this->_queryID);// fbsql returns the max length less spaces -- so it is unrealiable
 192             //$o->max_length = -1;
 193         }
 194
 195         return $o;
 196     }
 197
 198     function _seek($row)
 199     {
 200         return @fbsql_data_seek($this->_queryID,$row);
 201     }
 202
 203     function _fetch($ignore_fields=false)
 204     {
 205         $this->fields = @fbsql_fetch_array($this->_queryID,$this->fetchMode);
 206         return ($this->fields == true);
 207     }
 208
 209     function _close() {
 210         return @fbsql_free_result($this->_queryID);
 211     }
 212
 213     function MetaType($t,$len=-1,$fieldobj=false)
 214     {
 215         if (is_object($t)) {
 216             $fieldobj = $t;
 217             $t = $fieldobj->type;
 218             $len = $fieldobj->max_length;
 219         }
 220         $len = -1; // fbsql max_length is not accurate
 221         switch (strtoupper($t)) {
 222         case 'CHARACTER':
 223         case 'CHARACTER VARYING':
 224         case 'BLOB':
 225         case 'CLOB':
 226         case 'BIT':
 227         case 'BIT VARYING':
 228             if ($len <= $this->blobSize) return 'C';
 229
 230         // so we have to check whether binary...
 231         case 'IMAGE':
 232         case 'LONGBLOB':
 233         case 'BLOB':
 234         case 'MEDIUMBLOB':
 235             return !empty($fieldobj->binary) ? 'B' : 'X';
 236
 237         case 'DATE': return 'D';
 238
 239         case 'TIME':
 240         case 'TIME WITH TIME ZONE':
 241         case 'TIMESTAMP':
 242         case 'TIMESTAMP WITH TIME ZONE': return 'T';
 243
 244         case 'PRIMARY_KEY':
 245             return 'R';
 246         case 'INTEGER':
 247         case 'SMALLINT':
 248         case 'BOOLEAN':
 249
 250             if (!empty($fieldobj->primary_key)) return 'R';
 251             else return 'I';
 252
 253         default: return 'N';
 254         }
 255     }
 256
 257 } //class
 258 } // defined
 259 ?>