lib/WikiDB/adodb/drivers/adodb-odbtp.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. See License.txt.
   7   Set tabs to 4 for best viewing.
   8   Latest version is available at http://php.weblogs.com/
   9 */
  10 // Code contributed by "stefan bogdan" <sbogdan#rsb.ro>
  11
  12 define("_ADODB_ODBTP_LAYER", 2 );
  13
  14 class ADODB_odbtp extends ADOConnection{
  15     var $databaseType = "odbtp";
  16     var $dataProvider = "odbtp";
  17     var $fmtDate = "'Y-m-d'";
  18     var $fmtTimeStamp = "'Y-m-d, h:i:sA'";
  19     var $replaceQuote = "''"; // string to use to replace quotes
  20     var $odbc_driver = 0;
  21     var $hasAffectedRows = true;
  22     var $hasInsertID = false;
  23     var $hasGenID = true;
  24     var $hasMoveFirst = true;
  25
  26     var $_genSeqSQL = "create table %s (seq_name char(30) not null unique , seq_value integer not null)";
  27     var $_dropSeqSQL = "delete from adodb_seq where seq_name = '%s'";
  28     var $_autocommit = true;
  29     var $_bindInputArray = false;
  30     var $_useUnicodeSQL = false;
  31     var $_canPrepareSP = false;
  32
  33     function ADODB_odbtp()
  34     {
  35     }
  36
  37     function ServerInfo()
  38     {
  39         return array('description' => @odbtp_get_attr( ODB_ATTR_DBMSNAME, $this->_connectionID),
  40                      'version' => @odbtp_get_attr( ODB_ATTR_DBMSVER, $this->_connectionID));
  41     }
  42
  43     function ErrorMsg()
  44     {
  45         if (empty($this->_connectionID)) return @odbtp_last_error();
  46         return @odbtp_last_error($this->_connectionID);
  47     }
  48
  49     function ErrorNo()
  50     {
  51         if (empty($this->_connectionID)) return @odbtp_last_error_state();
  52             return @odbtp_last_error_state($this->_connectionID);
  53     }
  54
  55     function _insertid()
  56     {
  57     // SCOPE_IDENTITY()
  58     // Returns the last IDENTITY value inserted into an IDENTITY column in
  59     // the same scope. A scope is a module -- a stored procedure, trigger,
  60     // function, or batch. Thus, two statements are in the same scope if
  61     // they are in the same stored procedure, function, or batch.
  62             return $this->GetOne($this->identitySQL);
  63     }
  64
  65     function _affectedrows()
  66     {
  67         if ($this->_queryID) {
  68             return @odbtp_affected_rows ($this->_queryID);
  69        } else
  70         return 0;
  71     }
  72
  73     function CreateSequence($seqname='adodbseq',$start=1)
  74     {
  75         //verify existence
  76         $num = $this->GetOne("select seq_value from adodb_seq");
  77         $seqtab='adodb_seq';
  78         if( $this->odbc_driver == ODB_DRIVER_FOXPRO ) {
  79             $path = @odbtp_get_attr( ODB_ATTR_DATABASENAME, $this->_connectionID );
  80             //if using vfp dbc file
  81             if( !strcasecmp(strrchr($path, '.'), '.dbc') )
  82                 $path = substr($path,0,strrpos($path,'\/'));
  83                $seqtab = $path . '/' . $seqtab;
  84         }
  85         if($num == false) {
  86             if (empty($this->_genSeqSQL)) return false;
  87             $ok = $this->Execute(sprintf($this->_genSeqSQL ,$seqtab));
  88         }
  89         $num = $this->GetOne("select seq_value from adodb_seq where seq_name='$seqname'");
  90         if ($num) {
  91             return false;
  92         }
  93         $start -= 1;
  94         return $this->Execute("insert into adodb_seq values('$seqname',$start)");
  95     }
  96
  97     function DropSequence($seqname)
  98     {
  99         if (empty($this->_dropSeqSQL)) return false;
 100         return $this->Execute(sprintf($this->_dropSeqSQL,$seqname));
 101     }
 102
 103     function GenID($seq='adodbseq',$start=1)
 104     {
 105         $seqtab='adodb_seq';
 106         if( $this->odbc_driver == ODB_DRIVER_FOXPRO ) {
 107             $path = @odbtp_get_attr( ODB_ATTR_DATABASENAME, $this->_connectionID );
 108             //if using vfp dbc file
 109             if( !strcasecmp(strrchr($path, '.'), '.dbc') )
 110                 $path = substr($path,0,strrpos($path,'\/'));
 111                $seqtab = $path . '/' . $seqtab;
 112         }
 113         $MAXLOOPS = 100;
 114         while (--$MAXLOOPS>=0) {
 115             $num = $this->GetOne("select seq_value from adodb_seq where seq_name='$seq'");
 116             if ($num === false) {
 117                 //verify if abodb_seq table exist
 118                 $ok = $this->GetOne("select seq_value from adodb_seq ");
 119                 if(!$ok) {
 120                     //creating the sequence table adodb_seq
 121                     $this->Execute(sprintf($this->_genSeqSQL ,$seqtab));
 122                 }
 123                 $start -= 1;
 124                 $num = '0';
 125                 $ok = $this->Execute("insert into adodb_seq values('$seq',$start)");
 126                 if (!$ok) return false;
 127             }
 128             $ok = $this->Execute("update adodb_seq set seq_value=seq_value+1 where seq_name='$seq'");
 129             if($ok) {
 130                 $num += 1;
 131                 $this->genID = $num;
 132                 return $num;
 133             }
 134         }
 135     if ($fn = $this->raiseErrorFn) {
 136         $fn($this->databaseType,'GENID',-32000,"Unable to generate unique id after $MAXLOOPS attempts",$seq,$num);
 137     }
 138         return false;
 139     }
 140
 141     //example for $UserOrDSN
 142     //for visual fox : DRIVER={Microsoft Visual FoxPro Driver};SOURCETYPE=DBF;SOURCEDB=c:\YourDbfFileDir;EXCLUSIVE=NO;
 143     //for visual fox dbc: DRIVER={Microsoft Visual FoxPro Driver};SOURCETYPE=DBC;SOURCEDB=c:\YourDbcFileDir\mydb.dbc;EXCLUSIVE=NO;
 144     //for access : DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\path_to_access_db\base_test.mdb;UID=root;PWD=;
 145     //for mssql : DRIVER={SQL Server};SERVER=myserver;UID=myuid;PWD=mypwd;DATABASE=OdbtpTest;
 146     //if uid & pwd can be separate
 147     function _connect($HostOrInterface, $UserOrDSN='', $argPassword='', $argDatabase='')
 148     {
 149         $this->_connectionID = @odbtp_connect($HostOrInterface,$UserOrDSN,$argPassword,$argDatabase);
 150         if ($this->_connectionID === false)
 151         {
 152             $this->_errorMsg = $this->ErrorMsg() ;
 153             return false;
 154         }
 155         $this->odbc_driver = @odbtp_get_attr(ODB_ATTR_DRIVER, $this->_connectionID);
 156
 157         // Set driver specific attributes
 158         switch( $this->odbc_driver ) {
 159             case ODB_DRIVER_MSSQL:
 160                 $this->fmtDate = "'Y-m-d'";
 161                 $this->fmtTimeStamp = "'Y-m-d h:i:sA'";
 162                 $this->sysDate = 'convert(datetime,convert(char,GetDate(),102),102)';
 163                 $this->sysTimeStamp = 'GetDate()';
 164                 $this->ansiOuter = true;
 165                 $this->leftOuter = '*=';
 166                 $this->rightOuter = '=*';
 167                 $this->hasTop = 'top';
 168                 $this->hasInsertID = true;
 169                 $this->hasTransactions = true;
 170                 $this->_bindInputArray = true;
 171                 $this->_canSelectDb = true;
 172                 $this->substr = "substring";
 173                 $this->length = 'len';
 174                 $this->upperCase = 'upper';
 175                 $this->identitySQL = 'select @@IDENTITY';
 176                 $this->metaDatabasesSQL = "select name from master..sysdatabases where name <> 'master'";
 177                 break;
 178             case ODB_DRIVER_JET:
 179                 $this->fmtDate = "#Y-m-d#";
 180                 $this->fmtTimeStamp = "#Y-m-d h:i:sA#";
 181                 $this->sysDate = "FORMAT(NOW,'yyyy-mm-dd')";
 182                 $this->sysTimeStamp = 'NOW';
 183                 $this->hasTop = 'top';
 184                 $this->hasTransactions = false;
 185                 $this->_canPrepareSP = true;  // For MS Access only.
 186
 187                 // Can't rebind ODB_CHAR to ODB_WCHAR if row cache enabled.
 188                 if ($this->_useUnicodeSQL)
 189                     odbtp_use_row_cache($this->_connectionID, FALSE, 0);
 190                 break;
 191             case ODB_DRIVER_FOXPRO:
 192                 $this->fmtDate = "{^Y-m-d}";
 193                 $this->fmtTimeStamp = "{^Y-m-d, h:i:sA}";
 194                 $this->sysDate = 'date()';
 195                 $this->sysTimeStamp = 'datetime()';
 196                 $this->ansiOuter = true;
 197                 $this->hasTop = 'top';
 198             $this->hasTransactions = false;
 199                 $this->replaceQuote = "'+chr(39)+'";
 200                 $this->true = '.T.';
 201                 $this->false = '.F.';
 202                 $this->upperCase = 'upper';
 203                 break;
 204             case ODB_DRIVER_ORACLE:
 205                 $this->fmtDate = "'Y-m-d 00:00:00'";
 206                 $this->fmtTimeStamp = "'Y-m-d h:i:sA'";
 207                 $this->sysDate = 'TRUNC(SYSDATE)';
 208                 $this->sysTimeStamp = 'SYSDATE';
 209                 $this->hasTransactions = true;
 210                 $this->_bindInputArray = true;
 211                 $this->concat_operator = '||';
 212                 break;
 213             case ODB_DRIVER_SYBASE:
 214                 $this->fmtDate = "'Y-m-d'";
 215                 $this->fmtTimeStamp = "'Y-m-d H:i:s'";
 216                 $this->sysDate = 'GetDate()';
 217                 $this->sysTimeStamp = 'GetDate()';
 218                 $this->leftOuter = '*=';
 219                 $this->rightOuter = '=*';
 220                 $this->hasInsertID = true;
 221                 $this->hasTransactions = true;
 222                 $this->upperCase = 'upper';
 223                 $this->identitySQL = 'select @@IDENTITY';
 224                 break;
 225             default:
 226                 if( @odbtp_get_attr(ODB_ATTR_TXNCAPABLE, $this->_connectionID) )
 227             $this->hasTransactions = true;
 228                 else
 229                     $this->hasTransactions = false;
 230         }
 231         @odbtp_set_attr(ODB_ATTR_FULLCOLINFO, TRUE, $this->_connectionID );
 232         if ($this->_useUnicodeSQL )
 233             @odbtp_set_attr(ODB_ATTR_UNICODESQL, TRUE, $this->_connectionID);
 234         return true;
 235     }
 236
 237     function _pconnect($HostOrInterface, $UserOrDSN='', $argPassword='', $argDatabase='')
 238     {
 239           return $this->_connect($HostOrInterface, $UserOrDSN, $argPassword, $argDatabase);
 240     }
 241
 242     function SelectDB($dbName)
 243     {
 244         if (!@odbtp_select_db($dbName, $this->_connectionID)) {
 245             return false;
 246         }
 247         $this->databaseName = $dbName;
 248         return true;
 249     }
 250
 251     function &MetaTables($ttype='',$showSchema=false,$mask=false)
 252     {
 253     global $ADODB_FETCH_MODE;
 254
 255         $savem = $ADODB_FETCH_MODE;
 256         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 257         $arr =& $this->GetArray("||SQLTables||||$ttype");
 258         $ADODB_FETCH_MODE = $savem;
 259
 260         $arr2 = array();
 261         for ($i=0; $i < sizeof($arr); $i++) {
 262             if ($arr[$i][3] == 'SYSTEM TABLE' ) continue;
 263             if ($arr[$i][2])
 264                 $arr2[] = $showSchema ? $arr[$i][1].'.'.$arr[$i][2] : $arr[$i][2];
 265         }
 266         return $arr2;
 267     }
 268
 269     function &MetaColumns($table,$upper=true)
 270     {
 271     global $ADODB_FETCH_MODE;
 272
 273         $schema = false;
 274         $this->_findschema($table,$schema);
 275         if ($upper) $table = strtoupper($table);
 276
 277         $savem = $ADODB_FETCH_MODE;
 278         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 279         $rs = $this->Execute( "||SQLColumns||$schema|$table" );
 280         $ADODB_FETCH_MODE = $savem;
 281
 282         if (!$rs) return false;
 283
 284         while (!$rs->EOF) {
 285             //print_r($rs->fields);
 286             if (strtoupper($rs->fields[2]) == $table) {
 287                 $fld = new ADOFieldObject();
 288                 $fld->name = $rs->fields[3];
 289                 $fld->type = $rs->fields[5];
 290                 $fld->max_length = $rs->fields[6];
 291                 $fld->not_null = !empty($rs->fields[9]);
 292                  $fld->scale = $rs->fields[7];
 293                  if (!is_null($rs->fields[12])) {
 294                      $fld->has_default = true;
 295                      $fld->default_value = $rs->fields[12];
 296                 }
 297                 $retarr[strtoupper($fld->name)] = $fld;
 298             } elseif (sizeof($retarr)>0)
 299                 break;
 300             $rs->MoveNext();
 301         }
 302         $rs->Close();
 303
 304         return $retarr;
 305     }
 306
 307     function &MetaPrimaryKeys($table, $owner='')
 308     {
 309     global $ADODB_FETCH_MODE;
 310
 311         $savem = $ADODB_FETCH_MODE;
 312         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 313         $arr =& $this->GetArray("||SQLPrimaryKeys||$owner|$table");
 314         $ADODB_FETCH_MODE = $savem;
 315
 316         //print_r($arr);
 317         $arr2 = array();
 318         for ($i=0; $i < sizeof($arr); $i++) {
 319             if ($arr[$i][3]) $arr2[] = $arr[$i][3];
 320         }
 321         return $arr2;
 322     }
 323
 324     function &MetaForeignKeys($table, $owner='', $upper=false)
 325     {
 326     global $ADODB_FETCH_MODE;
 327
 328         $savem = $ADODB_FETCH_MODE;
 329         $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
 330         $constraints =& $this->GetArray("||SQLForeignKeys|||||$owner|$table");
 331         $ADODB_FETCH_MODE = $savem;
 332
 333         $arr = false;
 334         foreach($constraints as $constr) {
 335             //print_r($constr);
 336             $arr[$constr[11]][$constr[2]][] = $constr[7].'='.$constr[3];
 337         }
 338         if (!$arr) return false;
 339
 340         $arr2 = array();
 341
 342         foreach($arr as $k => $v) {
 343             foreach($v as $a => $b) {
 344                 if ($upper) $a = strtoupper($a);
 345                 $arr2[$a] = $b;
 346             }
 347         }
 348         return $arr2;
 349     }
 350
 351     function BeginTrans()
 352     {
 353         if (!$this->hasTransactions) return false;
 354         if ($this->transOff) return true;
 355         $this->transCnt += 1;
 356         $this->_autocommit = false;
 357         $rs = @odbtp_set_attr(ODB_ATTR_TRANSACTIONS,ODB_TXN_READUNCOMMITTED,$this->_connectionID);
 358         if(!$rs) return false;
 359         else return true;
 360     }
 361
 362     function CommitTrans($ok=true)
 363     {
 364         if ($this->transOff) return true;
 365         if (!$ok) return $this->RollbackTrans();
 366         if ($this->transCnt) $this->transCnt -= 1;
 367         $this->_autocommit = true;
 368         if( ($ret = odbtp_commit($this->_connectionID)) )
 369             $ret = @odbtp_set_attr(ODB_ATTR_TRANSACTIONS, ODB_TXN_NONE, $this->_connectionID);//set transaction off
 370         return $ret;
 371     }
 372
 373     function RollbackTrans()
 374     {
 375         if ($this->transOff) return true;
 376         if ($this->transCnt) $this->transCnt -= 1;
 377         $this->_autocommit = true;
 378         if( ($ret = odbtp_rollback($this->_connectionID)) )
 379             $ret = @odbtp_set_attr(ODB_ATTR_TRANSACTIONS, ODB_TXN_NONE, $this->_connectionID);//set transaction off
 380         return $ret;
 381     }
 382
 383     function &SelectLimit($sql,$nrows=-1,$offset=-1, $inputarr=false,$secs2cache=0)
 384     {
 385         // TOP requires ORDER BY for Visual FoxPro
 386         if( $this->odbc_driver == ODB_DRIVER_FOXPRO ) {
 387             if (!preg_match('/ORDER[ \t\r\n]+BY/is',$sql)) $sql .= ' ORDER BY 1';
 388         }
 389         return ADOConnection::SelectLimit($sql,$nrows,$offset,$inputarr,$secs2cache);
 390     }
 391
 392     function Prepare($sql)
 393     {
 394         if (! $this->_bindInputArray) return $sql; // no binding
 395         $stmt = odbtp_prepare($sql,$this->_connectionID);
 396         if (!$stmt) {
 397         //      print "Prepare Error for ($sql) ".$this->ErrorMsg()."<br>";
 398             return $sql;
 399         }
 400         return array($sql,$stmt,false);
 401     }
 402
 403     function PrepareSP($sql)
 404     {
 405         if (!$this->_canPrepareSP) return $sql; // Can't prepare procedures
 406
 407         $stmt = odbtp_prepare_proc($sql,$this->_connectionID);
 408         if (!$stmt) return false;
 409         return array($sql,$stmt);
 410     }
 411
 412     /*
 413     Usage:
 414         $stmt = $db->PrepareSP('SP_RUNSOMETHING'); -- takes 2 params, @myid and @group
 415
 416         # note that the parameter does not have @ in front!
 417         $db->Parameter($stmt,$id,'myid');
 418         $db->Parameter($stmt,$group,'group',false,64);
 419         $db->Parameter($stmt,$group,'photo',false,100000,ODB_BINARY);
 420         $db->Execute($stmt);
 421
 422         @param $stmt Statement returned by Prepare() or PrepareSP().
 423         @param $var PHP variable to bind to. Can set to null (for isNull support).
 424         @param $name Name of stored procedure variable name to bind to.
 425         @param [$isOutput] Indicates direction of parameter 0/false=IN  1=OUT  2= IN/OUT. This is ignored in odbtp.
 426         @param [$maxLen] Holds an maximum length of the variable.
 427         @param [$type] The data type of $var. Legal values depend on driver.
 428
 429         See odbtp_attach_param documentation at http://odbtp.sourceforge.net.
 430     */
 431     function Parameter(&$stmt, &$var, $name, $isOutput=false, $maxLen=0, $type=0)
 432     {
 433         if ( $this->odbc_driver == ODB_DRIVER_JET ) {
 434             $name = '['.$name.']';
 435             if( !$type && $this->_useUnicodeSQL
 436                 && @odbtp_param_bindtype($stmt[1], $name) == ODB_CHAR )
 437             {
 438                 $type = ODB_WCHAR;
 439             }
 440         }
 441         else {
 442             $name = '@'.$name;
 443         }
 444         return odbtp_attach_param($stmt[1], $name, $var, $type, $maxLen);
 445     }
 446
 447     /*
 448         Insert a null into the blob field of the table first.
 449         Then use UpdateBlob to store the blob.
 450
 451         Usage:
 452
 453         $conn->Execute('INSERT INTO blobtable (id, blobcol) VALUES (1, null)');
 454         $conn->UpdateBlob('blobtable','blobcol',$blob,'id=1');
 455     */
 456
 457     function UpdateBlob($table,$column,$val,$where,$blobtype='image')
 458     {
 459         $sql = "UPDATE $table SET $column = ? WHERE $where";
 460         if( !($stmt = odbtp_prepare($sql, $this->_connectionID)) )
 461             return false;
 462         if( !odbtp_input( $stmt, 1, ODB_BINARY, 1000000, $blobtype ) )
 463             return false;
 464         if( !odbtp_set( $stmt, 1, $val ) )
 465             return false;
 466         return odbtp_execute( $stmt ) != false;
 467     }
 468
 469     function IfNull( $field, $ifNull )
 470     {
 471         switch( $this->odbc_driver ) {
 472             case ODB_DRIVER_MSSQL:
 473                 return " ISNULL($field, $ifNull) ";
 474             case ODB_DRIVER_JET:
 475                 return " IIF(IsNull($field), $ifNull, $field) ";
 476         }
 477         return " CASE WHEN $field is null THEN $ifNull ELSE $field END ";
 478     }
 479
 480     function _query($sql,$inputarr=false)
 481     {
 482          if ($inputarr) {
 483             if (is_array($sql)) {
 484                 $stmtid = $sql[1];
 485             } else {
 486                 $stmtid = odbtp_prepare($sql,$this->_connectionID);
 487                 if ($stmtid == false) {
 488                     $this->_errorMsg = $php_errormsg;
 489                     return false;
 490                 }
 491             }
 492             $num_params = odbtp_num_params( $stmtid );
 493             for( $param = 1; $param <= $num_params; $param++ ) {
 494                 @odbtp_input( $stmtid, $param );
 495                 @odbtp_set( $stmtid, $param, $inputarr[$param-1] );
 496             }
 497             if (! odbtp_execute($stmtid) ) {
 498                 return false;
 499             }
 500         } elseif (is_array($sql)) {
 501             $stmtid = $sql[1];
 502             if (!odbtp_execute($stmtid)) {
 503                 return false;
 504             }
 505         } else {
 506             $stmtid = @odbtp_query($sql,$this->_connectionID);
 507            }
 508         $this->_lastAffectedRows = 0;
 509         if ($stmtid) {
 510                 $this->_lastAffectedRows = @odbtp_affected_rows($stmtid);
 511         }
 512         return $stmtid;
 513     }
 514
 515     function _close()
 516     {
 517         $ret = @odbtp_close($this->_connectionID);
 518         $this->_connectionID = false;
 519         return $ret;
 520     }
 521 }
 522
 523 class ADORecordSet_odbtp extends ADORecordSet {
 524
 525     var $databaseType = 'odbtp';
 526     var $canSeek = true;
 527
 528     function ADORecordSet_odbtp($queryID,$mode=false)
 529     {
 530         if ($mode === false) {
 531             global $ADODB_FETCH_MODE;
 532             $mode = $ADODB_FETCH_MODE;
 533         }
 534         $this->fetchMode = $mode;
 535         $this->ADORecordSet($queryID);
 536     }
 537
 538     function _initrs()
 539     {
 540         $this->_numOfFields = @odbtp_num_fields($this->_queryID);
 541         if (!($this->_numOfRows = @odbtp_num_rows($this->_queryID)))
 542             $this->_numOfRows = -1;
 543     }
 544
 545     function &FetchField($fieldOffset = 0)
 546     {
 547         $off=$fieldOffset; // offsets begin at 0
 548         $o= new ADOFieldObject();
 549         $o->name = @odbtp_field_name($this->_queryID,$off);
 550         $o->type = @odbtp_field_type($this->_queryID,$off);
 551         $o->max_length = @odbtp_field_length($this->_queryID,$off);
 552         if (ADODB_ASSOC_CASE == 0) $o->name = strtolower($o->name);
 553         else if (ADODB_ASSOC_CASE == 1) $o->name = strtoupper($o->name);
 554         return $o;
 555     }
 556
 557     function _seek($row)
 558     {
 559         return @odbtp_data_seek($this->_queryID, $row);
 560     }
 561
 562     function fields($colname)
 563     {
 564         if ($this->fetchMode & ADODB_FETCH_ASSOC) return $this->fields[$colname];
 565
 566         if (!$this->bind) {
 567             $this->bind = array();
 568             for ($i=0; $i < $this->_numOfFields; $i++) {
 569                 $name = @odbtp_field_name( $this->_queryID, $i );
 570                 $this->bind[strtoupper($name)] = $i;
 571             }
 572         }
 573          return $this->fields[$this->bind[strtoupper($colname)]];
 574     }
 575
 576     function _fetch_odbtp($type=0)
 577     {
 578         switch ($this->fetchMode) {
 579             case ADODB_FETCH_NUM:
 580                 $this->fields = @odbtp_fetch_row($this->_queryID, $type);
 581                 break;
 582             case ADODB_FETCH_ASSOC:
 583                 $this->fields = @odbtp_fetch_assoc($this->_queryID, $type);
 584                 break;
 585             default:
 586                 $this->fields = @odbtp_fetch_array($this->_queryID, $type);
 587         }
 588         return is_array($this->fields);
 589     }
 590
 591     function _fetch()
 592     {
 593         return $this->_fetch_odbtp();
 594     }
 595
 596     function MoveFirst()
 597     {
 598         if (!$this->_fetch_odbtp(ODB_FETCH_FIRST)) return false;
 599         $this->EOF = false;
 600       $this->_currentRow = 0;
 601       return true;
 602     }
 603
 604     function MoveLast()
 605    {
 606         if (!$this->_fetch_odbtp(ODB_FETCH_LAST)) return false;
 607         $this->EOF = false;
 608         $this->_currentRow = $this->_numOfRows - 1;
 609       return true;
 610     }
 611
 612     function NextRecordSet()
 613     {
 614         if (!@odbtp_next_result($this->_queryID)) return false;
 615         $this->_inited = false;
 616         $this->bind = false;
 617         $this->_currentRow = -1;
 618         $this->Init();
 619         return true;
 620     }
 621
 622     function _close()
 623     {
 624         return @odbtp_free_query($this->_queryID);
 625     }
 626 }
 627
 628 ?>