source: trunk/phpgwapi/inc/adodb/drivers/adodb-sqlanywhere.inc.php @ 2

Revision 2, 4.1 KB checked in by niltonneto, 17 years ago (diff)

Removida todas as tags usadas pelo CVS ($Id, $Source).
Primeira versão no CVS externo.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
Line 
1<?php
2/*
3version V4.50 6 July 2004 (c) 2000-2004  John Lim (jlim@natsoft.com.my). All rights
4reserved.
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.
8Set 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
45if (!defined('ADODB_DIR')) die();
46
47if (!defined('_ADODB_ODBC_LAYER')) {
48 include(ADODB_DIR."/drivers/adodb-odbc.inc.php");
49}
50
51if (!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?>
Note: See TracBrowser for help on using the repository browser.