lib/adodb/drivers/adodb-sqlanywhere.inc.php

   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 ?>