TYPO3 CMS  TYPO3_6-2
adodb-sqlanywhere.inc.php
Go to the documentation of this file.
1 <?php
2 /*
3 version V5.19 23-Apr-2014 (c) 2000-2014 John Lim (jlim#natsoft.com). 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
die
Definition: index.php:6
UpdateBlob($table, $column, $val, $where, $blobtype='BLOB')