egroupware/phpgwapi/inc/class.db_odbc.inc.php
2003-12-15 01:22:13 +00:00

204 lines
4.9 KiB
PHP

<?php
/**************************************************************************\
* phpGroupWare API - ODBC Database support *
* Copyright (c) 1998,1999 SH Online Dienst GmbH Boris Erdmann, *
* Kristian Koehntopp *
* ------------------------------------------------------------------------ *
* This is not part of phpGroupWare, but is used by phpGroupWare. *
* http://www.phpgroupware.org/ *
* ------------------------------------------------------------------------ *
* This program is free software; you can redistribute it and/or modify it *
* under the terms of the GNU Lesser General Public License as published *
* by the Free Software Foundation; either version 2.1 of the License, or *
* any later version. *
\**************************************************************************/
/* $Id$ */
class db
{
var $UseODBCCursor = 0;
function connect($Database = '', $Host = '', $User = '', $Password = '')
{
/* Handle defaults */
if ($Database == '')
{
$Database = $this->Database;
}
if ($Host == '')
{
$Host = $this->Host;
}
if ($User == '')
{
$User = $this->User;
}
if ($Password == '')
{
$Password = $this->Password;
}
if (! $this->Link_ID)
{
$this->Link_ID=odbc_pconnect($Database, $User, $Password, $this->UseODBCCursor);
if (!$this->Link_ID)
{
$this->halt('Link-ID == false, odbc_pconnect failed');
}
}
}
function query($Query_String)
{
$this->connect();
# printf("<br>Debug: query = %s<br>\n", $Query_String);
# rei@netone.com.br suggested that we use this instead of the odbc_exec().
# He is on NT, connecting to a Unix MySQL server with ODBC. -- KK
# $this->Query_ID = odbc_prepare($this->Link_ID,$Query_String);
# $this->Query_Ok = odbc_execute($this->Query_ID);
$this->Query_ID = odbc_exec($this->Link_ID,$Query_String);
$this->Row = 0;
odbc_binmode($this->Query_ID, 1);
odbc_longreadlen($this->Query_ID, 4096);
if (!$this->Query_ID)
{
$this->Errno = 1;
$this->Error = 'General Error (The ODBC interface cannot return detailed error messages).';
$this->halt('Invalid SQL: '.$Query_String);
}
return $this->Query_ID;
}
function next_record()
{
$this->Record = array();
$stat = odbc_fetch_into($this->Query_ID, ++$this->Row, &$this->Record);
if (!$stat)
{
if ($this->Auto_Free)
{
odbc_free_result($this->Query_ID);
$this->Query_ID = 0;
};
}
else
{
// add to Record[<key>]
$count = odbc_num_fields($this->Query_ID);
for ($i=1; $i<=$count; $i++)
{
$this->Record[strtolower(odbc_field_name ($this->Query_ID, $i)) ] = $this->Record[ $i - 1 ];
}
}
return $stat;
}
function seek($pos)
{
$this->Row = $pos;
}
function metadata($table)
{
$count = 0;
$id = 0;
$res = array();
$this->connect();
$id = odbc_exec($this->Link_ID, "select * from $table");
if (!$id)
{
$this->Errno = 1;
$this->Error = 'General Error (The ODBC interface cannot return detailed error messages).';
$this->halt('Metadata query failed.');
}
$count = odbc_num_fields($id);
for ($i=1; $i<=$count; $i++)
{
$res[$i]['table'] = $table;
$name = odbc_field_name ($id, $i);
$res[$i]['name'] = $name;
$res[$i]['type'] = odbc_field_type ($id, $name);
$res[$i]['len'] = 0; // can we determine the width of this column?
$res[$i]['flags'] = ''; // any optional flags to report?
}
odbc_free_result($id);
return $res;
}
function affected_rows()
{
return odbc_num_rows($this->Query_ID);
}
function num_rows()
{
# Many ODBC drivers don't support odbc_num_rows() on SELECT statements.
$num_rows = odbc_num_rows($this->Query_ID);
//printf ($num_rows."<br>");
# This is a workaround. It is intended to be ugly.
if ($num_rows < 0)
{
$i=10;
while (odbc_fetch_row($this->Query_ID, $i))
{
$i*=10;
}
$j = 0;
while($i != $j)
{
$k = $j + (int)(($i-$j) / 2);
if(odbc_fetch_row($this->Query_ID, $k))
{
$j=$k;
}
else
{
$i=$k;
}
if (($i-$j)==1)
{
if (odbc_fetch_row($this->Query_ID, $i))
{
$j=$i;
}
else
{
$i=$j;
}
}
//printf("$i $j $k <br>");
}
$num_rows=$i;
}
return $num_rows;
}
function num_fields()
{
return count($this->Record)/2;
}
function f($Field_Name)
{
return $this->Record[strtolower($Field_Name)];
}
function halt($msg)
{
printf("<b>Database error:</b> %s<br>\n", $msg);
printf("<b>ODBC Error</b>: %s (%s)<br>\n",
$this->Errno,
$this->Error);
die('Session halted.');
}
}
?>