Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F7056814
sqlsrv.php
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Flag For Later
Award Token
Size
39 KB
Referenced Files
None
Subscribers
None
sqlsrv.php
View Options
<?php
// vim: set et ts=4 sw=4 fdm=marker:
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox, |
// | Stig. S. Bakken, Lukas Smith, Frank M. Kromann |
// | All rights reserved. |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
// | API as well as database abstraction for PHP applications. |
// | This LICENSE is in the BSD license style. |
// | |
// | Redistribution and use in source and binary forms, with or without |
// | modification, are permitted provided that the following conditions |
// | are met: |
// | |
// | Redistributions of source code must retain the above copyright |
// | notice, this list of conditions and the following disclaimer. |
// | |
// | Redistributions in binary form must reproduce the above copyright |
// | notice, this list of conditions and the following disclaimer in the |
// | documentation and/or other materials provided with the distribution. |
// | |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission. |
// | |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
// | POSSIBILITY OF SUCH DAMAGE. |
// +----------------------------------------------------------------------+
// | Author: Frank M. Kromann <frank@kromann.info> |
// +----------------------------------------------------------------------+
// {{{ Class MDB2_Driver_sqlsrv
/**
* MDB2 MSSQL Server (native) driver
*
* @package MDB2
* @category Database
*/
class
MDB2_Driver_sqlsrv
extends
MDB2_Driver_Common
{
// {{{ properties
var
$string_quoting
=
array
(
'start'
=>
"'"
,
'end'
=>
"'"
,
'escape'
=>
"'"
,
'escape_pattern'
=>
false
);
var
$identifier_quoting
=
array
(
'start'
=>
'['
,
'end'
=>
']'
,
'escape'
=>
']'
);
var
$connection
=
null
;
// }}}
// {{{ constructor
/**
* Constructor
*/
function
__construct
()
{
parent
::
__construct
();
$this
->
phptype
=
'sqlsrv'
;
$this
->
dbsyntax
=
'sqlsrv'
;
$this
->
supported
[
'sequences'
]
=
'emulated'
;
$this
->
supported
[
'indexes'
]
=
true
;
$this
->
supported
[
'affected_rows'
]
=
true
;
$this
->
supported
[
'summary_functions'
]
=
true
;
$this
->
supported
[
'transactions'
]
=
true
;
$this
->
supported
[
'order_by_text'
]
=
true
;
$this
->
supported
[
'savepoints'
]
=
false
;
$this
->
supported
[
'current_id'
]
=
'emulated'
;
$this
->
supported
[
'limit_queries'
]
=
'emulated'
;
$this
->
supported
[
'LOBs'
]
=
true
;
$this
->
supported
[
'replace'
]
=
'emulated'
;
$this
->
supported
[
'sub_selects'
]
=
true
;
$this
->
supported
[
'triggers'
]
=
true
;
$this
->
supported
[
'auto_increment'
]
=
true
;
$this
->
supported
[
'primary_key'
]
=
true
;
$this
->
supported
[
'result_introspection'
]
=
true
;
$this
->
supported
[
'prepared_statements'
]
=
'emulated'
;
$this
->
supported
[
'identifier_quoting'
]
=
false
;
$this
->
supported
[
'pattern_escaping'
]
=
true
;
$this
->
supported
[
'new_link'
]
=
true
;
$this
->
options
[
'DBA_username'
]
=
false
;
$this
->
options
[
'DBA_password'
]
=
false
;
$this
->
options
[
'database_device'
]
=
false
;
$this
->
options
[
'database_size'
]
=
false
;
$this
->
options
[
'max_identifiers_length'
]
=
128
;
// MS Access: 64
}
// }}}
// {{{ errorInfo()
/**
* This method is used to collect information about an error
*
* @param integer $error
* @return array
* @access public
*/
function
errorInfo
(
$error
=
null
,
$connection
=
null
)
{
if
(
null
===
$connection
)
{
$connection
=
$this
->
connection
;
}
$native_code
=
null
;
$native_msg
=
null
;
if
(
$connection
)
{
$retErrors
=
sqlsrv_errors
(
SQLSRV_ERR_ALL
);
if
(
$retErrors
!==
null
)
{
foreach
(
$retErrors
as
$arrError
)
{
$native_msg
.=
"SQLState: "
.
$arrError
[
'SQLSTATE'
].
"
\n
"
;
$native_msg
.=
"Error Code: "
.
$arrError
[
'code'
].
"
\n
"
;
$native_msg
.=
"Message: "
.
$arrError
[
'message'
].
"
\n
"
;
$native_code
=
$arrError
[
'code'
];
}
}
}
if
(
null
===
$error
)
{
static
$ecode_map
;
if
(
empty
(
$ecode_map
))
{
$ecode_map
=
array
(
102
=>
MDB2_ERROR_SYNTAX
,
110
=>
MDB2_ERROR_VALUE_COUNT_ON_ROW
,
155
=>
MDB2_ERROR_NOSUCHFIELD
,
156
=>
MDB2_ERROR_SYNTAX
,
170
=>
MDB2_ERROR_SYNTAX
,
207
=>
MDB2_ERROR_NOSUCHFIELD
,
208
=>
MDB2_ERROR_NOSUCHTABLE
,
245
=>
MDB2_ERROR_INVALID_NUMBER
,
319
=>
MDB2_ERROR_SYNTAX
,
321
=>
MDB2_ERROR_NOSUCHFIELD
,
325
=>
MDB2_ERROR_SYNTAX
,
336
=>
MDB2_ERROR_SYNTAX
,
515
=>
MDB2_ERROR_CONSTRAINT_NOT_NULL
,
547
=>
MDB2_ERROR_CONSTRAINT
,
911
=>
MDB2_ERROR_NOT_FOUND
,
1018
=>
MDB2_ERROR_SYNTAX
,
1035
=>
MDB2_ERROR_SYNTAX
,
1801
=>
MDB2_ERROR_ALREADY_EXISTS
,
1913
=>
MDB2_ERROR_ALREADY_EXISTS
,
2209
=>
MDB2_ERROR_SYNTAX
,
2223
=>
MDB2_ERROR_SYNTAX
,
2248
=>
MDB2_ERROR_SYNTAX
,
2256
=>
MDB2_ERROR_SYNTAX
,
2257
=>
MDB2_ERROR_SYNTAX
,
2627
=>
MDB2_ERROR_CONSTRAINT
,
2714
=>
MDB2_ERROR_ALREADY_EXISTS
,
3607
=>
MDB2_ERROR_DIVZERO
,
3701
=>
MDB2_ERROR_NOSUCHTABLE
,
7630
=>
MDB2_ERROR_SYNTAX
,
8134
=>
MDB2_ERROR_DIVZERO
,
9303
=>
MDB2_ERROR_SYNTAX
,
9317
=>
MDB2_ERROR_SYNTAX
,
9318
=>
MDB2_ERROR_SYNTAX
,
9331
=>
MDB2_ERROR_SYNTAX
,
9332
=>
MDB2_ERROR_SYNTAX
,
15253
=>
MDB2_ERROR_SYNTAX
,
);
}
if
(
isset
(
$ecode_map
[
$native_code
]))
{
if
(
$native_code
==
3701
&&
preg_match
(
'/Cannot drop the index/i'
,
$native_msg
)
)
{
$error
=
MDB2_ERROR_NOT_FOUND
;
}
else
{
$error
=
$ecode_map
[
$native_code
];
}
}
}
return
array
(
$error
,
$native_code
,
$native_msg
);
}
// }}}
// {{{ function escapePattern($text)
/**
* Quotes pattern (% and _) characters in a string)
*
* @param string the input string to quote
*
* @return string quoted string
*
* @access public
*/
function
escapePattern
(
$text
)
{
$text
=
str_replace
(
"["
,
"[ [ ]"
,
$text
);
foreach
(
$this
->
wildcards
as
$wildcard
)
{
$text
=
str_replace
(
$wildcard
,
'['
.
$wildcard
.
']'
,
$text
);
}
return
$text
;
}
// }}}
// {{{ beginTransaction()
/**
* Start a transaction or set a savepoint.
*
* @param string name of a savepoint to set
* @return mixed MDB2_OK on success, a MDB2 error on failure
*
* @access public
*/
function
beginTransaction
(
$savepoint
=
null
)
{
$this
->
debug
(
'Starting transaction/savepoint'
,
__FUNCTION__
,
array
(
'is_manip'
=>
true
,
'savepoint'
=>
$savepoint
));
if
(
null
!==
$savepoint
)
{
if
(!
$this
->
in_transaction
)
{
return
$this
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'savepoint cannot be released when changes are auto committed'
,
__FUNCTION__
);
}
$query
=
'SAVE TRANSACTION '
.
$savepoint
;
return
$this
->
_doQuery
(
$query
,
true
);
}
if
(
$this
->
in_transaction
)
{
return
MDB2_OK
;
//nothing to do
}
if
(!
$this
->
destructor_registered
&&
$this
->
opened_persistent
)
{
$this
->
destructor_registered
=
true
;
register_shutdown_function
(
'MDB2_closeOpenTransactions'
);
}
if
(
PEAR
::
isError
(
sqlsrv_begin_transaction
(
$this
->
connection
)))
{
return
MDB2_ERROR
;
}
$this
->
in_transaction
=
true
;
return
MDB2_OK
;
}
// }}}
// {{{ commit()
/**
* Commit the database changes done during a transaction that is in
* progress or release a savepoint. This function may only be called when
* auto-committing is disabled, otherwise it will fail. Therefore, a new
* transaction is implicitly started after committing the pending changes.
*
* @param string name of a savepoint to release
* @return mixed MDB2_OK on success, a MDB2 error on failure
*
* @access public
*/
function
commit
(
$savepoint
=
null
)
{
$this
->
debug
(
'Committing transaction/savepoint'
,
__FUNCTION__
,
array
(
'is_manip'
=>
true
,
'savepoint'
=>
$savepoint
));
if
(!
$this
->
in_transaction
)
{
return
$this
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'commit/release savepoint cannot be done changes are auto committed'
,
__FUNCTION__
);
}
if
(
null
!==
$savepoint
)
{
return
MDB2_OK
;
}
if
(
PEAR
::
isError
(
sqlsrv_commit
(
$this
->
connection
)))
{
return
MDB2_ERROR
;
}
$this
->
in_transaction
=
false
;
return
MDB2_OK
;
}
// }}}
// {{{ rollback()
/**
* Cancel any database changes done during a transaction or since a specific
* savepoint that is in progress. This function may only be called when
* auto-committing is disabled, otherwise it will fail. Therefore, a new
* transaction is implicitly started after canceling the pending changes.
*
* @param string name of a savepoint to rollback to
* @return mixed MDB2_OK on success, a MDB2 error on failure
*
* @access public
*/
function
rollback
(
$savepoint
=
null
)
{
$this
->
debug
(
'Rolling back transaction/savepoint'
,
__FUNCTION__
,
array
(
'is_manip'
=>
true
,
'savepoint'
=>
$savepoint
));
if
(!
$this
->
in_transaction
)
{
return
$this
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'rollback cannot be done changes are auto committed'
,
__FUNCTION__
);
}
if
(
null
!==
$savepoint
)
{
$query
=
'ROLLBACK TRANSACTION '
.
$savepoint
;
return
$this
->
_doQuery
(
$query
,
true
);
}
if
(
PEAR
::
isError
(
sqlsrv_rollback
(
$this
->
connection
)))
{
return
MDB2_ERROR
;
}
$this
->
in_transaction
=
false
;
return
MDB2_OK
;
}
// }}}
// {{{ _doConnect()
/**
* do the grunt work of the connect
*
* @return connection on success or MDB2 Error Object on failure
* @access protected
*/
function
_doConnect
(
$username
,
$password
,
$database
=
null
,
$persistent
=
false
)
{
if
(!
PEAR
::
loadExtension
(
$this
->
phptype
))
{
return
$this
->
raiseError
(
MDB2_ERROR_NOT_FOUND
,
null
,
null
,
'extension '
.
$this
->
phptype
.
' is not installed PHP'
,
__FUNCTION__
);
}
$host
=
$this
->
dsn
[
'hostspec'
]
?
$this
->
dsn
[
'hostspec'
]
:
'.
\\
SQLEXPRESS'
;
$params
=
array
(
'UID'
=>
$username
?
$username
:
null
,
'PWD'
=>
$password
?
$password
:
null
,
);
if
(
$database
)
{
$params
[
'Database'
]
=
$database
;
}
if
(
$this
->
dsn
[
'port'
]
&&
$this
->
dsn
[
'port'
]
!=
1433
)
{
$host
.=
','
.
$this
->
dsn
[
'port'
];
}
$connection
=
@
sqlsrv_connect
(
$host
,
$params
);
if
(!
$connection
)
{
return
$this
->
raiseError
(
MDB2_ERROR_CONNECT_FAILED
,
null
,
null
,
'unable to establish a connection'
,
__FUNCTION__
,
__FUNCTION__
);
}
if
(
null
!==
$database
)
{
$this
->
connected_database_name
=
$database
;
}
if
(!
empty
(
$this
->
dsn
[
'charset'
]))
{
$result
=
$this
->
setCharset
(
$this
->
dsn
[
'charset'
],
$connection
);
if
(
PEAR
::
isError
(
$result
))
{
return
$result
;
}
}
if
(
empty
(
$this
->
dsn
[
'disable_iso_date'
]))
{
@
sqlsrv_query
(
$connection
,
'SET DATEFORMAT ymd'
);
}
return
$connection
;
}
// }}}
// {{{ connect()
/**
* Connect to the database
*
* @return true on success, MDB2 Error Object on failure
*/
function
connect
()
{
if
(
is_resource
(
$this
->
connection
))
{
if
(
MDB2
::
areEquals
(
$this
->
connected_dsn
,
$this
->
dsn
))
{
return
MDB2_OK
;
}
$this
->
disconnect
(
false
);
}
$connection
=
$this
->
_doConnect
(
$this
->
dsn
[
'username'
],
$this
->
dsn
[
'password'
],
$this
->
database_name
,
$this
->
options
[
'persistent'
]
);
if
(
PEAR
::
isError
(
$connection
))
{
return
$connection
;
}
$this
->
connection
=
$connection
;
$this
->
connected_dsn
=
$this
->
dsn
;
$this
->
connected_database_name
=
$this
->
database_name
;
$this
->
opened_persistent
=
$this
->
options
[
'persistent'
];
$this
->
dbsyntax
=
$this
->
dsn
[
'dbsyntax'
]
?
$this
->
dsn
[
'dbsyntax'
]
:
$this
->
phptype
;
return
MDB2_OK
;
}
// }}}
// {{{ databaseExists()
/**
* check if given database name exists?
*
* @param string $name name of the database that should be checked
*
* @return mixed true/false on success, a MDB2 error on failure
* @access public
*/
function
databaseExists
(
$name
)
{
$connection
=
$this
->
_doConnect
(
$this
->
dsn
[
'username'
],
$this
->
dsn
[
'password'
]);
if
(
PEAR
::
isError
(
$connection
))
{
return
MDB2_ERROR_CONNECT_FAILED
;
}
$result
=
@
sqlsrv_query
(
$connection
,
'select name from master..sysdatabases where name =
\'
'
.
strtolower
(
$name
).
'
\'
'
);
if
(@
sqlsrv_fetch
(
$result
))
{
return
true
;
}
return
MDB2_ERROR_NOT_FOUND
;
}
// }}}
// {{{ disconnect()
/**
* Log out and disconnect from the database.
*
* @param boolean $force if the disconnect should be forced even if the
* connection is opened persistently
* @return mixed true on success, false if not connected and error
* object on error
* @access public
*/
function
disconnect
(
$force
=
true
)
{
if
(
is_resource
(
$this
->
connection
))
{
if
(
$this
->
in_transaction
)
{
$dsn
=
$this
->
dsn
;
$database_name
=
$this
->
database_name
;
$persistent
=
$this
->
options
[
'persistent'
];
$this
->
dsn
=
$this
->
connected_dsn
;
$this
->
database_name
=
$this
->
connected_database_name
;
$this
->
options
[
'persistent'
]
=
$this
->
opened_persistent
;
$this
->
rollback
();
$this
->
dsn
=
$dsn
;
$this
->
database_name
=
$database_name
;
$this
->
options
[
'persistent'
]
=
$persistent
;
}
@
sqlsrv_close
(
$this
->
connection
);
}
return
parent
::
disconnect
(
$force
);
}
// }}}
// {{{ standaloneQuery()
/**
* execute a query as DBA
*
* @param string $query the SQL query
* @param mixed $types array that contains the types of the columns in
* the result set
* @param boolean $is_manip if the query is a manipulation query
* @return mixed MDB2_OK on success, a MDB2 error on failure
* @access public
*/
function
&
standaloneQuery
(
$query
,
$types
=
null
,
$is_manip
=
false
)
{
$user
=
$this
->
options
[
'DBA_username'
]?
$this
->
options
[
'DBA_username'
]
:
$this
->
dsn
[
'username'
];
$pass
=
$this
->
options
[
'DBA_password'
]?
$this
->
options
[
'DBA_password'
]
:
$this
->
dsn
[
'password'
];
$connection
=
$this
->
_doConnect
(
$user
,
$pass
,
$this
->
database_name
,
$this
->
options
[
'persistent'
]);
if
(
PEAR
::
isError
(
$connection
))
{
return
$connection
;
}
$query
=
$this
->
_modifyQuery
(
$query
,
$is_manip
,
$this
->
limit
,
$this
->
offset
);
$this
->
offset
=
$this
->
limit
=
0
;
$result
=
$this
->
_doQuery
(
$query
,
$is_manip
,
$connection
);
if
(!
PEAR
::
isError
(
$result
))
{
$result
=
$this
->
_affectedRows
(
$connection
,
$result
);
}
@
sqlsrv_close
(
$connection
);
return
$result
;
}
// }}}
// {{{ _doQuery()
/**
* Execute a query
* @param string $query query
* @param boolean $is_manip if the query is a manipulation query
* @param resource $connection
* @param string $database_name
* @return result or error object
* @access protected
*/
function
_doQuery
(
$query
,
$is_manip
=
false
,
$connection
=
null
,
$database_name
=
null
)
{
$this
->
last_query
=
$query
;
$result
=
$this
->
debug
(
$query
,
'query'
,
array
(
'is_manip'
=>
$is_manip
,
'when'
=>
'pre'
));
if
(
$result
)
{
if
(
PEAR
::
isError
(
$result
))
{
return
$result
;
}
$query
=
$result
;
}
if
(
$this
->
options
[
'disable_query'
])
{
$result
=
$is_manip
?
0
:
null
;
return
$result
;
}
if
(
null
===
$connection
)
{
$connection
=
$this
->
getConnection
();
if
(
PEAR
::
isError
(
$connection
))
{
return
$connection
;
}
}
if
(
null
===
$database_name
)
{
$database_name
=
$this
->
database_name
;
}
if
(
$database_name
&&
$database_name
!=
$this
->
connected_database_name
)
{
$connection
=
$this
->
_doConnect
(
$this
->
dsn
[
'username'
],
$this
->
dsn
[
'password'
],
$database_name
);
if
(
PEAR
::
isError
(
$connection
))
{
$err
=
$this
->
raiseError
(
null
,
null
,
null
,
'Could not select the database: '
.
$database_name
,
__FUNCTION__
);
return
$err
;
}
$this
->
connected_database_name
=
$database_name
;
}
$query
=
preg_replace
(
'/DATE_FORMAT
\(
(MIN
\(
)?([
\w
|.]*)(
\)
)?
\\
Q,
\'
%Y-%m-%d
\'
)
\E
/i'
,
'CONVERT(varchar(10),$1$2$3,120)'
,
$query
);
$query
=
preg_replace
(
'/DATE_FORMAT
\(
([
\w
|.]*)
\,
\'\%
Y
\-\%
m
\-\%
d %H
\:
00
\:
00
\'\)
/i'
,
'CONVERT(varchar(13),$1,120)+
\'
:00:00
\'
'
,
$query
);
$result
=
@
sqlsrv_query
(
$connection
,
$query
);
if
(!
$result
)
{
$err
=
$this
->
raiseError
(
null
,
null
,
null
,
'Could not execute statement'
,
__FUNCTION__
);
return
$err
;
}
$this
->
result
=
$result
;
$this
->
debug
(
$query
,
'query'
,
array
(
'is_manip'
=>
$is_manip
,
'when'
=>
'post'
,
'result'
=>
$result
));
return
$result
;
}
// }}}
// {{{ _affectedRows()
/**
* Returns the number of rows affected
*
* @param resource $result
* @param resource $connection
* @return mixed MDB2 Error Object or the number of rows affected
* @access private
*/
function
_affectedRows
(
$connection
,
$result
=
null
)
{
if
(
null
===
$result
)
{
$result
=
$this
->
result
;
}
return
sqlsrv_rows_affected
(
$this
->
result
);
}
// }}}
// {{{ _modifyQuery()
/**
* Changes a query string for various DBMS specific reasons
*
* @param string $query query to modify
* @param boolean $is_manip if it is a DML query
* @param integer $limit limit the number of rows
* @param integer $offset start reading from given offset
* @return string modified query
* @access protected
*/
function
_modifyQuery
(
$query
,
$is_manip
,
$limit
,
$offset
)
{
if
(
$limit
>
0
)
{
$fetch
=
$offset
+
$limit
;
if
(!
$is_manip
)
{
return
preg_replace
(
'/^([
\s
(])*SELECT( DISTINCT)?(?!
\s
*TOP
\s
*
\(
)/i'
,
"
\\
1SELECT
\\
2 TOP $fetch"
,
$query
);
}
}
return
$query
;
}
// }}}
// {{{ getServerVersion()
/**
* return version information about the server
*
* @param bool $native determines if the raw version string should be returned
* @return mixed array/string with version information or MDB2 error object
* @access public
*/
function
getServerVersion
(
$native
=
false
)
{
if
(
$this
->
connected_server_info
)
{
$server_info
=
$this
->
connected_server_info
;
}
else
{
$server_info
=
sqlsrv_server_info
(
$this
->
connection
);
}
// cache server_info
$this
->
connected_server_info
=
$server_info
;
$version
=
$server_info
[
'SQLServerVersion'
];
if
(!
$native
)
{
if
(
preg_match
(
'/(
\d
+)
\.
(
\d
+)
\.
(
\d
+)/'
,
$version
,
$tmp
))
{
$version
=
array
(
'major'
=>
$tmp
[
1
],
'minor'
=>
$tmp
[
2
],
'patch'
=>
$tmp
[
3
],
'extra'
=>
null
,
'native'
=>
$version
,
);
}
else
{
$version
=
array
(
'major'
=>
null
,
'minor'
=>
null
,
'patch'
=>
null
,
'extra'
=>
null
,
'native'
=>
$version
,
);
}
}
return
$version
;
}
// }}}
// {{{ _checkSequence
/**
* Checks if there's a sequence that exists.
*
* @param string $seq_name The sequence name to verify.
* @return bool $tableExists The value if the table exists or not
* @access private
*/
function
_checkSequence
(
$seq_name
)
{
$query
=
"SELECT * FROM $seq_name"
;
$tableExists
=&
$this
->
_doQuery
(
$query
,
true
);
if
(
PEAR
::
isError
(
$tableExists
))
{
if
(
$tableExists
->
getCode
()
==
MDB2_ERROR_NOSUCHTABLE
)
{
return
false
;
}
return
false
;
}
if
(@
sqlsrv_fetch
(
$tableExits
))
{
return
true
;
}
return
false
;
}
// }}}
// {{{ nextID()
/**
* Returns the next free id of a sequence
*
* @param string $seq_name name of the sequence
* @param boolean $ondemand when true the sequence is
* automatic created, if it
* not exists
*
* @return mixed MDB2 Error Object or id
* @access public
*/
function
nextID
(
$seq_name
,
$ondemand
=
true
)
{
$sequence_name
=
$this
->
quoteIdentifier
(
$this
->
getSequenceName
(
$seq_name
),
true
);
$seqcol_name
=
$this
->
quoteIdentifier
(
$this
->
options
[
'seqcol_name'
],
true
);
$this
->
pushErrorHandling
(
PEAR_ERROR_RETURN
);
$this
->
expectError
(
MDB2_ERROR_NOSUCHTABLE
);
$seq_val
=
$this
->
_checkSequence
(
$sequence_name
);
if
(
$seq_val
)
{
$query
=
"SET IDENTITY_INSERT $sequence_name OFF "
.
"INSERT INTO $sequence_name DEFAULT VALUES"
;
}
else
{
$query
=
"INSERT INTO $sequence_name ($seqcol_name) VALUES (0)"
;
}
$result
=
$this
->
_doQuery
(
$query
,
true
);
$this
->
popExpect
();
$this
->
popErrorHandling
();
if
(
PEAR
::
isError
(
$result
))
{
if
(
$ondemand
&&
!
$this
->
_checkSequence
(
$sequence_name
))
{
$this
->
loadModule
(
'Manager'
,
null
,
true
);
$result
=
$this
->
manager
->
createSequence
(
$seq_name
);
if
(
PEAR
::
isError
(
$result
))
{
return
$this
->
raiseError
(
$result
,
null
,
null
,
'on demand sequence '
.
$seq_name
.
' could not be created'
,
__FUNCTION__
);
}
else
{
/**
* Little off-by-one problem with the sequence emulation
* here being fixed, that instead of re-calling nextID
* and forcing an increment by one, we simply check if it
* exists, then we get the last inserted id if it does.
*
* In theory, $seq_name should be created otherwise there would
* have been an error thrown somewhere up there..
*
* @todo confirm
*/
if
(
$this
->
_checkSequence
(
$seq_name
))
{
return
$this
->
lastInsertID
(
$seq_name
);
}
return
$this
->
nextID
(
$seq_name
,
false
);
}
}
return
$result
;
}
$value
=
$this
->
lastInsertID
(
$sequence_name
);
if
(
is_numeric
(
$value
))
{
$query
=
"DELETE FROM $sequence_name WHERE $seqcol_name < $value"
;
$result
=
$this
->
_doQuery
(
$query
,
true
);
if
(
PEAR
::
isError
(
$result
))
{
$this
->
warnings
[]
=
'nextID: could not delete previous sequence table values from '
.
$seq_name
;
}
}
return
$value
;
}
// }}}
// {{{ lastInsertID()
/**
* Returns the autoincrement ID if supported or $id or fetches the current
* ID in a sequence called: $table.(empty($field) ? '' : '_'.$field)
*
* @param string $table name of the table into which a new row was inserted
* @param string $field name of the field into which a new row was inserted
*
* @return mixed MDB2 Error Object or id
* @access public
*/
function
lastInsertID
(
$table
=
null
,
$field
=
null
)
{
return
$this
->
queryOne
(
"SELECT IDENT_CURRENT('$table')"
,
'integer'
);
}
// }}}
}
// }}}
// {{{ Class MDB2_Result_mssql
/**
* MDB2 MSSQL Server result driver
*
* @package MDB2
* @category Database
* @author Frank M. Kromann <frank@kromann.info>
*/
class
MDB2_Result_sqlsrv
extends
MDB2_Result_Common
{
// {{{ constructor: function __construct($db, $result, $limit = 0, $offset = 0)
/**
* Constructor
*/
function
__construct
(
$db
,
$result
,
$limit
=
0
,
$offset
=
0
)
{
$this
->
db
=
$db
;
$this
->
result
=
$result
;
$this
->
offset
=
$offset
;
$this
->
limit
=
max
(
0
,
$limit
-
1
);
$this
->
cursor
=
0
;
$this
->
rows
=
array
();
$this
->
numFields
=
sqlsrv_num_fields
(
$result
);
$this
->
fieldMeta
=
sqlsrv_field_metadata
(
$result
);
$this
->
numRowsAffected
=
sqlsrv_rows_affected
(
$result
);
while
(
$row
=
sqlsrv_fetch_array
(
$result
,
SQLSRV_FETCH_ASSOC
))
{
if
(
$row
!==
null
)
{
if
(
$this
->
offset
&&
$this
->
offset_count
<
$this
->
offset
)
{
$this
->
offset_count
++;
continue
;
}
foreach
(
$row
as
$k
=>
$v
)
{
if
(
is_object
(
$v
)
&&
method_exists
(
$v
,
'format'
))
{
//DateTime Object
$row
[
$k
]
=
$v
->
format
(
'Y-m-d H:i:s'
);
}
}
$this
->
rows
[]
=
$row
;
//read results into memory, cursors are not supported
}
}
$this
->
rowcnt
=
count
(
$this
->
rows
);
}
// }}}
// {{{ _skipLimitOffset()
/**
* Skip the first row of a result set.
*
* @param resource $result
* @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
* @access protected
*/
/* function _skipLimitOffset()
{
if ($this->limit) {
if ($this->rownum >= $this->limit) {
return false;
}
}
if ($this->offset) {
while ($this->offset_count < $this->offset) {
++$this->offset_count;
if (!is_array(@sqlsrv_fetch_array($this->result))) {
$this->offset_count = $this->limit;
return false;
}
}
}
return MDB2_OK;
}*/
// }}}
function
array_to_obj
(
$array
,
&
$obj
)
{
foreach
(
$array
as
$key
=>
$value
)
{
if
(
is_array
(
$value
))
{
$obj
->
$key
=
new
stdClass
();
array_to_obj
(
$value
,
$obj
->
$key
);
}
else
{
$obj
->
$key
=
$value
;
}
}
return
$obj
;
}
// {{{ fetchRow()
/**
* Fetch a row and insert the data into an existing array.
*
* @param int $fetchmode how the array data should be indexed
* @param int $rownum number of the row where the data can be found
* @return int data array on success, a MDB2 error on failure
* @access public
*/
function
fetchRow
(
$fetchmode
=
MDB2_FETCHMODE_DEFAULT
,
$rownum
=
null
)
{
if
(!
$this
->
result
)
{
return
$this
->
db
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'no valid statement given'
,
__FUNCTION__
);
}
if
((
$this
->
limit
&&
$this
->
rownum
>=
$this
->
limit
)
||
(
$this
->
cursor
>=
$this
->
rowcnt
||
$this
->
rowcnt
==
0
))
{
return
null
;
}
if
(
null
!==
$rownum
)
{
$seek
=
$this
->
seek
(
$rownum
);
if
(
PEAR
::
isError
(
$seek
))
{
return
$seek
;
}
}
$row
=
false
;
$arrNum
=
array
();
if
(
$fetchmode
==
MDB2_FETCHMODE_ORDERED
||
$fetchmode
==
MDB2_FETCHMODE_DEFAULT
)
{
foreach
(
$this
->
rows
[
$this
->
cursor
]
as
$key
=>
$value
)
{
$arrNum
[]
=
$value
;
}
}
switch
(
$fetchmode
)
{
case
MDB2_FETCHMODE_ASSOC
:
$row
=
$this
->
rows
[
$this
->
cursor
];
break
;
case
MDB2_FETCHMODE_ORDERED
:
$row
=
$arrNum
;
break
;
case
MDB2_FETCHMODE_OBJECT
:
$row
=
$this
->
array_to_obj
(
$this
->
rows
[
$this
->
cursor
],
$o
=
new
$this
->
db
->
options
[
'fetch_class'
]);
break
;
case
MDB2_FETCHMODE_DEFAULT
:
default
:
$row
=
$this
->
rows
[
$this
->
cursor
]
+
$arrNum
;
break
;
}
$this
->
cursor
++;
/*
if ($fetchmode == MDB2_FETCHMODE_OBJECT) {
$row = sqlsrv_fetch_object($this->result,$this->db->options['fetch_class']);
} else {
switch($fetchmode) {
case MDB2_FETCHMODE_ASSOC: $fetchmode = SQLSRV_FETCH_ASSOC; break;
case MDB2_FETCHMODE_ORDERED: $fetchmode = SQLSRV_FETCH_NUMERIC; break;
case MDB2_FETCHMODE_DEFAULT:
default:
$fetchmode = SQLSRV_FETCH_BOTH;
}
$row = sqlsrv_fetch_array($this->result,$fetchmode);
}
foreach ($row as $key=>$value) {
if (is_object($value) && method_exists($value, 'format')) {//is DateTime object
$row[$key] = $value->format("Y-m-d H:i:s");
}
}*/
/*if ($fetchmode == MDB2_FETCHMODE_DEFAULT) {
$fetchmode = $this->db->fetchmode;
}*/
if
(
$fetchmode
==
MDB2_FETCHMODE_ASSOC
&&
is_array
(
$row
)
&&
$this
->
db
->
options
[
'portability'
]
&
MDB2_PORTABILITY_FIX_CASE
)
{
$row
=
array_change_key_case
(
$row
,
$this
->
db
->
options
[
'field_case'
]);
}
if
(!
$row
)
{
if
(
false
===
$this
->
result
)
{
$err
=
$this
->
db
->
raiseError
(
MDB2_ERROR_NEED_MORE_DATA
,
null
,
null
,
'resultset has already been freed'
,
__FUNCTION__
);
return
$err
;
}
return
null
;
}
$mode
=
$this
->
db
->
options
[
'portability'
]
&
MDB2_PORTABILITY_EMPTY_TO_NULL
;
$rtrim
=
false
;
if
(
$this
->
db
->
options
[
'portability'
]
&
MDB2_PORTABILITY_RTRIM
)
{
if
(
empty
(
$this
->
types
))
{
$mode
+=
MDB2_PORTABILITY_RTRIM
;
}
else
{
$rtrim
=
true
;
}
}
if
(
$mode
)
{
$this
->
db
->
_fixResultArrayValues
(
$row
,
$mode
);
}
if
(!
empty
(
$this
->
types
))
{
$row
=
$this
->
db
->
datatype
->
convertResultRow
(
$this
->
types
,
$row
,
$rtrim
);
}
if
(!
empty
(
$this
->
values
))
{
$this
->
_assignBindColumns
(
$row
);
}
++
$this
->
rownum
;
return
$row
;
}
// }}}
// {{{ _getColumnNames()
/**
* Retrieve the names of columns returned by the DBMS in a query result.
*
* @return mixed Array variable that holds the names of columns as keys
* or an MDB2 error on failure.
* Some DBMS may not return any columns when the result set
* does not contain any rows.
* @access private
*/
function
_getColumnNames
()
{
if
(!
$this
->
result
)
{
return
$this
->
db
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'no valid statement given'
,
__FUNCTION__
);
}
$columns
=
array
();
foreach
(
$this
->
fieldMeta
as
$col
)
{
$columns
[
$col
[
'Name'
]]
=
$col
[
'Type'
];
}
if
(
$this
->
db
->
options
[
'portability'
]
&
MDB2_PORTABILITY_FIX_CASE
)
{
$columns
=
array_change_key_case
(
$columns
,
$this
->
db
->
options
[
'field_case'
]);
}
return
$columns
;
}
// }}}
// {{{ numCols()
/**
* Count the number of columns returned by the DBMS in a query result.
*
* @return mixed integer value with the number of columns, a MDB2 error
* on failure
* @access public
*/
function
numCols
()
{
if
(!
$this
->
result
)
{
return
$this
->
db
->
raiseError
(
MDB2_ERROR_INVALID
,
null
,
null
,
'no valid statement given'
,
__FUNCTION__
);
}
$cols
=
$this
->
numFields
;
if
(!
$cols
)
{
if
(
false
===
$this
->
result
)
{
return
$this
->
db
->
raiseError
(
MDB2_ERROR_NEED_MORE_DATA
,
null
,
null
,
'resultset has already been freed'
,
__FUNCTION__
);
}
if
(
null
===
$this
->
result
)
{
return
count
(
$this
->
types
);
}
return
$this
->
db
->
raiseError
(
null
,
null
,
null
,
'Could not get column count'
,
__FUNCTION__
);
}
return
$cols
;
}
// }}}
// {{{ nextResult()
/**
* Move the internal result pointer to the next available result
*
* @return true on success, false if there is no more result set or an error object on failure
* @access public
*/
function
nextResult
()
{
if
(
false
===
$this
->
result
)
{
return
$this
->
db
->
raiseError
(
MDB2_ERROR_NEED_MORE_DATA
,
null
,
null
,
'resultset has already been freed'
,
__FUNCTION__
);
}
if
(
null
===
$this
->
result
)
{
return
false
;
}
$ret
=
sqlsrv_next_result
(
$this
->
result
);
if
(
$ret
)
{
$this
->
cursor
=
0
;
$this
->
rows
=
array
();
$this
->
numFields
=
sqlsrv_num_fields
(
$this
->
result
);
$this
->
fieldMeta
=
sqlsrv_field_metadata
(
$this
->
result
);
$this
->
numRowsAffected
=
sqlsrv_rows_affected
(
$this
->
result
);
while
(
$row
=
sqlsrv_fetch_array
(
$this
->
result
,
SQLSRV_FETCH_ASSOC
))
{
if
(
$row
!==
null
)
{
if
(
$this
->
offset
&&
$this
->
offset_count
<
$this
->
offset
)
{
$this
->
offset_count
++;
continue
;
}
foreach
(
$row
as
$k
=>
$v
)
{
if
(
is_object
(
$v
)
&&
method_exists
(
$v
,
'format'
))
{
//DateTime Object
//$v->setTimezone(new DateTimeZone('GMT'));//TS_ISO_8601 with a trailing 'Z' is GMT
$row
[
$k
]
=
$v
->
format
(
"Y-m-d H:i:s"
);
}
}
$this
->
rows
[]
=
$row
;
//read results into memory, cursors are not supported
}
}
$this
->
rowcnt
=
count
(
$this
->
rows
);
}
return
$ret
;
}
// }}}
// {{{ free()
/**
* Free the internal resources associated with $result.
*
* @return boolean true on success, false if $result is invalid
* @access public
*/
function
free
()
{
if
(
is_resource
(
$this
->
result
)
&&
$this
->
db
->
connection
)
{
if
(!@
sqlsrv_free_stmt
(
$this
->
result
))
{
return
$this
->
db
->
raiseError
(
null
,
null
,
null
,
'Could not free result'
,
__FUNCTION__
);
}
}
$this
->
result
=
false
;
return
MDB2_OK
;
}
// }}}
// {{{ function rowCount()
/**
* Returns the actual row number that was last fetched (count from 0)
* @return int
*
* @access public
*/
function
rowCount
()
{
return
$this
->
cursor
;
}
// }}}
// {{{ function numRows()
/**
* Returns the number of rows in a result object
*
* @return mixed MDB2 Error Object or the number of rows
*
* @access public
*/
function
numRows
()
{
return
$this
->
rowcnt
;
}
// }}}
// {{{ function seek($rownum = 0)
/**
* Seek to a specific row in a result set
*
* @param int number of the row where the data can be found
*
* @return mixed MDB2_OK on success, a MDB2 error on failure
*
* @access public
*/
function
seek
(
$rownum
=
0
)
{
$this
->
cursor
=
min
(
$rownum
,
$this
->
rowcnt
);
return
MDB2_OK
;
}
// }}}
}
// }}}
// {{{ class MDB2_BufferedResult_mssql
/**
* MDB2 MSSQL Server buffered result driver
*
* @package MDB2
* @category Database
* @author Frank M. Kromann <frank@kromann.info>
*/
class
MDB2_BufferedResult_sqlsrv
extends
MDB2_Result_sqlsrv
{
// {{{ valid()
/**
* Check if the end of the result set has been reached
*
* @return mixed true or false on sucess, a MDB2 error on failure
* @access public
*/
function
valid
()
{
$numrows
=
$this
->
numRows
();
if
(
PEAR
::
isError
(
$numrows
))
{
return
$numrows
;
}
return
$this
->
rownum
<
(
$numrows
-
1
);
}
// }}}
}
// }}}
// {{{ MDB2_Statement_mssql
/**
* MDB2 MSSQL Server statement driver
*
* @package MDB2
* @category Database
* @author Frank M. Kromann <frank@kromann.info>
*/
class
MDB2_Statement_sqlsrv
extends
MDB2_Statement_Common
{
}
// }}}
?>
File Metadata
Details
Attached
Mime Type
text/x-php
Expires
Fri, Jun 12, 3:33 AM (1 d, 10 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
848479
Default Alt Text
sqlsrv.php (39 KB)
Attached To
Mode
R3 roundcubemail
Attached
Detach File
Event Timeline
Log In to Comment