perfecto monoswim mil gracias, ahora la busqueda la realiza perfecto en navegador poniendo la liga y un parametro de busqueda ahora un cuestion que sucede , no se si te ha pasado es que hago una consulta por 10 concidencias de ese parametro pero solo me arroja 9 , el primer renglon no me lo muestra por que ya cale la consulta en un visualizador sql server y si me da bien los registro, pienso que tengo un detalle ahi con las funciones con el DBI que utilizo
mi codigo es el siguiente haber si por ahi es donde este el detalle
Usando Coloreado de perl
#!/usr/bin/perl
use DBI;
use CGI qw(:standard );
use CGI::Carp qw(fatalsToBrowser);
$query= new CGI;
$nombrex= $query->param('input');
$dbh = DBI->connect('dbi:Sybase:server=192.1.1.8:1433','usr_dts','usr_dts') or MiError($DBI::errstr);
$sth = $dbh->do("use colonias") or MiError($DBI::errstr);
$sth = $dbh->prepare("SELECT top 11 A.express AS express,A.nomfno AS nombre, A.tipfno AS tipo, B.descripcion AS descrip FROM USR_DTS.COLONIAS_AS400 A LEFT JOIN USR_DTS.TIPFNO B ON(A.tipfno=B.tipo) WHERE A.tipfno != 508 and A.tipfno !=509 and A.nomfno LIKE '$nombrex%' order by A.nomfno asc");
$sth->execute or MiError($DBI::errstr);
print "content-type: text/xml\n\n";
print "<?xml version='1.0' encoding='iso-8859-15' ?>";
print "<content>";
$label.="<labels>";
$i =0;
while ($sth->fetch){
$i++;
$sth->bind_col(2,\$nombre);
$label.="\n<label>$i.- $nombre</label>\n";
}
$label.="</labels>";
print "$label</content>";
}
y me arroja el siguiente resultado y no me aparece dato alguno en el registro 1:
<?xml version="1.0" encoding="iso-8859-15" ?>
- <content>
- <labels>
<label>1.-</label>
<label>2.-LOMAS DE ARBIDE</label>
<label>3.-LOMAS DE COMANJILLA</label>
<label>4.-LOMAS DE CHAPULTEPEC, MEXICO</label>
<label>5.-LOMAS DE ECHEVESTE</label>
<label>6.-LOMAS DE GRAN JARDIN</label>
<label>7.-LOMAS DE GUADALUPE</label>
<label>8.-LOMAS DE IBARRILLA</label>
<label>9.-LOMAS DE JEREZ</label>
<label>10.-LOMAS DE LA PISCINA</label>
</labels>
</content>
espero me puedan ayudar, explorer , monoswim. gracias !!
Mar Jun 30, 2009 2:04 pm
