0,0 → 1,184 |
<?php |
/* |
V4.80 8 Mar 2006 (c) 2000-2006 John Lim (jlim@natsoft.com.my). All rights reserved. |
Released under both BSD license and Lesser GPL library license. |
Whenever there is any discrepancy between the two licenses, |
the BSD license will take precedence. |
Set tabs to 4 for best viewing. |
|
Latest version is available at http://adodb.sourceforge.net |
|
SAPDB data driver. Requires ODBC. |
|
*/ |
|
// security - hide paths |
if (!defined('ADODB_DIR')) die(); |
|
if (!defined('_ADODB_ODBC_LAYER')) { |
include(ADODB_DIR."/drivers/adodb-odbc.inc.php"); |
} |
if (!defined('ADODB_SAPDB')){ |
define('ADODB_SAPDB',1); |
|
class ADODB_SAPDB extends ADODB_odbc { |
var $databaseType = "sapdb"; |
var $concat_operator = '||'; |
var $sysDate = 'DATE'; |
var $sysTimeStamp = 'TIMESTAMP'; |
var $fmtDate = "'Y-m-d'"; /// used by DBDate() as the default date format used by the database |
var $fmtTimeStamp = "'Y-m-d H:i:s'"; /// used by DBTimeStamp as the default timestamp fmt. |
var $hasInsertId = true; |
var $_bindInputArray = true; |
|
function ADODB_SAPDB() |
{ |
//if (strncmp(PHP_OS,'WIN',3) === 0) $this->curmode = SQL_CUR_USE_ODBC; |
$this->ADODB_odbc(); |
} |
|
function ServerInfo() |
{ |
$info = ADODB_odbc::ServerInfo(); |
if (!$info['version'] && preg_match('/([0-9.]+)/',$info['description'],$matches)) { |
$info['version'] = $matches[1]; |
} |
return $info; |
} |
|
function MetaPrimaryKeys($table) |
{ |
$table = $this->Quote(strtoupper($table)); |
|
return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos"); |
} |
|
function &MetaIndexes ($table, $primary = FALSE) |
{ |
$table = $this->Quote(strtoupper($table)); |
|
$sql = "SELECT INDEXNAME,TYPE,COLUMNNAME FROM INDEXCOLUMNS ". |
" WHERE TABLENAME=$table". |
" ORDER BY INDEXNAME,COLUMNNO"; |
|
global $ADODB_FETCH_MODE; |
$save = $ADODB_FETCH_MODE; |
$ADODB_FETCH_MODE = ADODB_FETCH_NUM; |
if ($this->fetchMode !== FALSE) { |
$savem = $this->SetFetchMode(FALSE); |
} |
|
$rs = $this->Execute($sql); |
if (isset($savem)) { |
$this->SetFetchMode($savem); |
} |
$ADODB_FETCH_MODE = $save; |
|
if (!is_object($rs)) { |
return FALSE; |
} |
|
$indexes = array(); |
while ($row = $rs->FetchRow()) { |
$indexes[$row[0]]['unique'] = $row[1] == 'UNIQUE'; |
$indexes[$row[0]]['columns'][] = $row[2]; |
} |
if ($primary) { |
$indexes['SYSPRIMARYKEYINDEX'] = array( |
'unique' => True, // by definition |
'columns' => $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos"), |
); |
} |
return $indexes; |
} |
|
function &MetaColumns ($table) |
{ |
global $ADODB_FETCH_MODE; |
$save = $ADODB_FETCH_MODE; |
$ADODB_FETCH_MODE = ADODB_FETCH_NUM; |
if ($this->fetchMode !== FALSE) { |
$savem = $this->SetFetchMode(FALSE); |
} |
$table = $this->Quote(strtoupper($table)); |
|
$retarr = array(); |
foreach($this->GetAll("SELECT COLUMNNAME,DATATYPE,LEN,DEC,NULLABLE,MODE,\"DEFAULT\",CASE WHEN \"DEFAULT\" IS NULL THEN 0 ELSE 1 END AS HAS_DEFAULT FROM COLUMNS WHERE tablename=$table ORDER BY pos") as $column) |
{ |
$fld = new ADOFieldObject(); |
$fld->name = $column[0]; |
$fld->type = $column[1]; |
$fld->max_length = $fld->type == 'LONG' ? 2147483647 : $column[2]; |
$fld->scale = $column[3]; |
$fld->not_null = $column[4] == 'NO'; |
$fld->primary_key = $column[5] == 'KEY'; |
if ($fld->has_default = $column[7]) { |
if ($fld->primary_key && $column[6] == 'DEFAULT SERIAL (1)') { |
$fld->auto_increment = true; |
$fld->has_default = false; |
} else { |
$fld->default_value = $column[6]; |
switch($fld->type) { |
case 'VARCHAR': |
case 'CHARACTER': |
case 'LONG': |
$fld->default_value = $column[6]; |
break; |
default: |
$fld->default_value = trim($column[6]); |
break; |
} |
} |
} |
$retarr[$fld->name] = $fld; |
} |
if (isset($savem)) { |
$this->SetFetchMode($savem); |
} |
$ADODB_FETCH_MODE = $save; |
|
return $retarr; |
} |
|
function MetaColumnNames($table) |
{ |
$table = $this->Quote(strtoupper($table)); |
|
return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table ORDER BY pos"); |
} |
|
// unlike it seems, this depends on the db-session and works in a multiuser environment |
function _insertid($table,$column) |
{ |
return empty($table) ? False : $this->GetOne("SELECT $table.CURRVAL FROM DUAL"); |
} |
|
/* |
SelectLimit implementation problems: |
|
The following will return random 10 rows as order by performed after "WHERE rowno<10" |
which is not ideal... |
|
select * from table where rowno < 10 order by 1 |
|
This means that we have to use the adoconnection base class SelectLimit when |
there is an "order by". |
|
See http://listserv.sap.com/pipermail/sapdb.general/2002-January/010405.html |
*/ |
|
}; |
|
|
class ADORecordSet_sapdb extends ADORecordSet_odbc { |
|
var $databaseType = "sapdb"; |
|
function ADORecordSet_sapdb($id,$mode=false) |
{ |
$this->ADORecordSet_odbc($id,$mode); |
} |
} |
|
} //define |
?> |