Tengo un problema de obtención de datos con el módulo DBI, lo que me está pasando es que al obtener el valor e imprimirlo solo me imprime 255 caracteres, al realizar yo la consulta desde SQL Server sí me trae todo el asunto correcto, lo que estoy viendo es que cuando yo obtengo el valor con bind_col obtiene solamente 255. ¿Cómo obtengo todo el asunto completo?
Using perl Syntax Highlighting
$consultasql = "select folio,asunto fom asuntos";
$dbh = DBI->connect("dbi:Sybase:server=XXXXX",'XXX','XXX') or MiError($DBI::errstr);
$sth = $dbh->do("use SECPAT") or MiError("DBI::errstr");
$sth = $dbh->prepare($consultasql) or MiError($DBI::errstr);
$sth->execute or MiError($DBI::errstr);
my ($folio,$asunto);
$sth->bind_col( 1, \$folio );
$sth->bind_col( 2, \$asunto );
while ($sth->fetch){
print "$asunto";
}
$dbh = DBI->connect("dbi:Sybase:server=XXXXX",'XXX','XXX') or MiError($DBI::errstr);
$sth = $dbh->do("use SECPAT") or MiError("DBI::errstr");
$sth = $dbh->prepare($consultasql) or MiError($DBI::errstr);
$sth->execute or MiError($DBI::errstr);
my ($folio,$asunto);
$sth->bind_col( 1, \$folio );
$sth->bind_col( 2, \$asunto );
while ($sth->fetch){
print "$asunto";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
