[Sommaire] [Imprimer]

   1  <?php
   2  /* 
   3  version V4.94 23 Jan 2007 (c) 2000-2007  John Lim (jlim#natsoft.com.my).  All rights
   4  reserved.
   5    Released under both BSD license and Lesser GPL library license. 
   6    Whenever there is any discrepancy between the two licenses, 
   7    the BSD license will take precedence. 
   8  Set tabs to 4 for best viewing.
   9  
  10    Latest version is available at http://adodb.sourceforge.net
  11  
  12    21.02.2002 - Wade Johnson wade@wadejohnson.de
  13                 Extended ODBC class for Sybase SQLAnywhere.
  14     1) Added support to retrieve the last row insert ID on tables with
  15        primary key column using autoincrement function.
  16  
  17     2) Added blob support.  Usage:
  18           a) create blob variable on db server:
  19  
  20          $dbconn->create_blobvar($blobVarName);
  21  
  22        b) load blob var from file.  $filename must be complete path
  23  
  24        $dbcon->load_blobvar_from_file($blobVarName, $filename);
  25  
  26        c) Use the $blobVarName in SQL insert or update statement in the values
  27        clause:
  28  
  29          $recordSet = $dbconn->Execute('INSERT INTO tabname (idcol, blobcol) '
  30          .
  31         'VALUES (\'test\', ' . $blobVarName . ')');
  32  
  33       instead of loading blob from a file, you can also load from 
  34        an unformatted (raw) blob variable:
  35        $dbcon->load_blobvar_from_var($blobVarName, $varName);
  36  
  37        d) drop blob variable on db server to free up resources:
  38        $dbconn->drop_blobvar($blobVarName);
  39  
  40    Sybase_SQLAnywhere data driver. Requires ODBC.
  41  
  42  */
  43  
  44  // security - hide paths
  45  if (!defined('ADODB_DIR')) die();
  46  
  47  if (!defined('_ADODB_ODBC_LAYER')) {
  48   include(ADODB_DIR."/drivers/adodb-odbc.inc.php");
  49  }
  50  
  51  if (!defined('ADODB_SYBASE_SQLANYWHERE')){
  52  
  53   define('ADODB_SYBASE_SQLANYWHERE',1);
  54  
  55   class ADODB_sqlanywhere extends ADODB_odbc {
  56        var $databaseType = "sqlanywhere";    
  57      var $hasInsertID = true;
  58      
  59  	function ADODB_sqlanywhere()
  60      {
  61          $this->ADODB_odbc();
  62      }
  63  
  64  	 function _insertid() {
  65           return $this->GetOne('select @@identity');
  66       }
  67  
  68    function create_blobvar($blobVarName) {
  69     $this->Execute("create variable $blobVarName long binary");
  70     return;
  71    }
  72  
  73    function drop_blobvar($blobVarName) {
  74     $this->Execute("drop variable $blobVarName");
  75     return;
  76    }
  77  
  78    function load_blobvar_from_file($blobVarName, $filename) {
  79     $chunk_size = 1000;
  80  
  81     $fd = fopen ($filename, "rb");
  82  
  83     $integer_chunks = (integer)filesize($filename) / $chunk_size;
  84     $modulus = filesize($filename) % $chunk_size;
  85     if ($modulus != 0){
  86      $integer_chunks += 1;
  87     }
  88  
  89     for($loop=1;$loop<=$integer_chunks;$loop++){
  90      $contents = fread ($fd, $chunk_size);
  91      $contents = bin2hex($contents);
  92  
  93      $hexstring = '';
  94  
  95      for($loop2=0;$loop2<strlen($contents);$loop2+=2){
  96       $hexstring .= '\x' . substr($contents,$loop2,2);
  97       }
  98  
  99      $hexstring = $this->qstr($hexstring);
 100  
 101      $this->Execute("set $blobVarName = $blobVarName || " . $hexstring);
 102     }
 103  
 104     fclose ($fd);
 105     return;
 106    }
 107  
 108    function load_blobvar_from_var($blobVarName, &$varName) {
 109     $chunk_size = 1000;
 110  
 111     $integer_chunks = (integer)strlen($varName) / $chunk_size;
 112     $modulus = strlen($varName) % $chunk_size;
 113     if ($modulus != 0){
 114      $integer_chunks += 1;
 115     }
 116  
 117     for($loop=1;$loop<=$integer_chunks;$loop++){
 118      $contents = substr ($varName, (($loop - 1) * $chunk_size), $chunk_size);
 119      $contents = bin2hex($contents);
 120  
 121      $hexstring = '';
 122  
 123      for($loop2=0;$loop2<strlen($contents);$loop2+=2){
 124       $hexstring .= '\x' . substr($contents,$loop2,2);
 125       }
 126  
 127      $hexstring = $this->qstr($hexstring);
 128  
 129      $this->Execute("set $blobVarName = $blobVarName || " . $hexstring);
 130     }
 131  
 132     return;
 133    }
 134  
 135   /*
 136    Insert a null into the blob field of the table first.
 137    Then use UpdateBlob to store the blob.
 138  
 139    Usage:
 140  
 141    $conn->Execute('INSERT INTO blobtable (id, blobcol) VALUES (1, null)');
 142    $conn->UpdateBlob('blobtable','blobcol',$blob,'id=1');
 143   */
 144    function UpdateBlob($table,$column,&$val,$where,$blobtype='BLOB')
 145    {
 146     $blobVarName = 'hold_blob';
 147     $this->create_blobvar($blobVarName);
 148     $this->load_blobvar_from_var($blobVarName, $val);
 149     $this->Execute("UPDATE $table SET $column=$blobVarName WHERE $where");
 150     $this->drop_blobvar($blobVarName);
 151     return true;
 152    }
 153   }; //class
 154  
 155   class  ADORecordSet_sqlanywhere extends ADORecordSet_odbc {    
 156  
 157    var $databaseType = "sqlanywhere";        
 158  
 159   function ADORecordSet_sqlanywhere($id,$mode=false)
 160   {
 161    $this->ADORecordSet_odbc($id,$mode);
 162   }
 163  
 164  
 165   }; //class
 166  
 167  
 168  } //define
 169  ?>