DBD-Solid
view release on metacpan or search on metacpan
Everyone,
This is an update to our previous release of DBD::Solid. It now supports
Solid Embedded Engine v 3.52, complete with unicode and the latest odbc.
DBD::Solid is a DBD module originally written by Thomas Wenrich to access
he Solid Embedded Engine.
Tim Bunce's DBI module is *the* standard way to access a number of
different databases from perl. FYI, DBD::Solid is a driver code that enables
Perl 5.003 and 5.004 to access the Solid RDBMS via the DBI module
(you will need the code for the latest release of DBI and DBD::Solid).
Since there hasn't been much interest by anyone else in keeping it up to
Const/Const.pm view on Meta::CPAN
require AutoLoader;
$VERSION = '0.20a';
@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@DBD::Solid::Const::EXPORT = ();
# I added the three unicode types. --mms
%DBD::Solid::Const::EXPORT_TAGS =
(
sql_types => [ qw(SQL_CHAR
SQL_NUMERIC
SQL_DECIMAL
SQL_INTEGER
SQL_SMALLINT
SQL_FLOAT
SQL_REAL
SQL_DOUBLE
else if( rc == SQL_NO_DATA_FOUND )
{ return 0; }
return 1;
}
/*----------------------------------------
* running $sth->fetchrow()
*
* Note:
* There is a commented hack here used to allow for unicode chars to
* be rendered properly. If you use Solid 3.52, leave everything alone.
* If you use 3.51, uncomment the hack and re-build dbd-solid.
*
* Explanation of the hack:
* All unicode formats (UTF-8, -16, and -32) require at most
* four bytes per char. Since the Solid 3.51 libs (spec. SQLColAttribute)
* returned number of bytes (and not number of chars), then we
* had to divide the data length by four when we wanted the length of
* any of the three unicode types WCHAR, WVARCHAR, and WLONGVARCHAR.
* As of Solid 3.52, this is no longer necessary, but I'm leaving it
* here, in case things change (again?!). --mms
*---------------------------------------- */
AV* dbd_st_fetch( SV* sth )
{
D_imp_sth( sth );
int debug = dbis->debug;
int i;
AV* av;
RETCODE rc;
( run in 0.666 second using v1.01-cache-2.11-cpan-88abd93f124 )