problemas con PHP y ADODB

[nemasx]

Iniciado por mogurbon

Hola no manches hace siglos que no veia codigo asp 3 , que cosa tan horripilante la verdad si me dio hasta ñañaras , te dejo aqui algo de pseudocodigo que podria funcionarte , es cosa de debugearlo , te dejo tambien el manual en español de adodb, basicamente ahi viene todo

[url]http://www.lacorona.com.mx/fortiz/adodb/docs-adodb-es.htm#fieldcount[/url]

aunque es una buena practica en php no es necesario inicializar variables , por que se pueden inicializar al vuelo , ni tampoco destruirlas por que al terminar de interpretar desaparecen , ojo el codigo no esta probado es pa darte una idea del uso de adodb y de algunas cosillas que hace php , pero debugearlo y saber mas de php se te queda de tarea

Código PHP:

  <?php  
include ("conn.php"); * # INCLUIR CLASE DE CONEXION  
* 
@header('Content-type: text/xml'); 
echo("<?xml version='1.0' encoding='iso-8859-1'?>"); 
* 
# DEFINICION DE VARIABLES , valdria la pena nomas el post pero checando seguridad 
* 
$i* * * * * * * = ""; 
$RS * * * * * * = ""; 
$fld* * * * * * = ""; 
$num_columns* * = ""; 
$NroSuministro *= $_POST['suministro']; 
#$consul= * * * =""; 
$SysEmpresa * * = 1; * 
* 
* 
* 
 
$SQL ="SELECT cor_documento correlativo,   
nro_documento nro_documento,   
tip_documento tipo_documento,   
 TO_CHAR (fec_documento, 'dd/mm/yyyy') fecha_emision,   
 TO_CHAR (fec_vencimiento, 'dd/mm/yyyy') fecha_vencimiento,   
 tot_documento total,   
 usuario_aprobador aprobador,   
 fec_documento fec   
 FROM nucssb0030 nuc30  
WHERE cod_empresa = $SysEmpresa 
AND nro_suministro = $NroSuministro  
 AND tip_documento = 'ON'   
 UNION   
 SELECT * cor_documento correlativo,   
 nro_documento nro_documento,   
 tip_documento tipo_documento,   
 TO_CHAR (fec_documento, 'dd/mm/yyyy') fecha_emision,   
 TO_CHAR (fec_vencimiento, 'dd/mm/yyyy') fecha_vencimiento,   
 tot_documento total,   
 usuario_aprobador aprobador,   
 fec_documento fec   
 FROM hisssb0004   
 WHERE cod_empresa = $SysEmpresa.   
 AND nro_suministro = $NroSuministro 
 AND tip_documento = 'ON'   
 ORDER BY fec DESC ";  
 
* 
# EJECUTA LA CONSULTA 
* 
$RS = $DB->Execute($SQL); 
* 
* 
#CUENTA CUANTOS REGISTROS TE TRAJO LA CONSULTA Y LOS GUARDA EN UNA VARIABLE 
* 
$num_rows = $RS->RecordCount(); /* contamos el total de registros de resultado */  
$num_cols = $RS->FieldCount();/*numero de columnas */ 
* 
echo ("SE OBTUVIERON ".$num_rows. "CAMPOS<br>"); *#MUESTRA LA CANTIDAD DE REGISTROS EN UN MENSAJE  
* 
 
# ESCRIBE EN EL DOCUMENTO XML 
* 
echo "<registro>"; 
* 
 
 
while (!$RS->EOF) { 
     
    echo "<tr>";  
    for ($i=0; $i < $num_cols; $i++) { 
        echo "<td>" . $RS-> fields[$i]. "</td>"; 
    } 
    echo "</tr>";  
    $RS->MoveNext(); 
} 
 
 
 
* 
#SE CIERRA LA CONEXION  
* 
$conn->close(); 
* 
 
* 
?>   

Muchas gracias por tomarte el tiempo y ayudarme :)

Ahora voy a probar el codigo aver si funciona pq me esta dando mas problemas de lo que esperaba, cualquier novedad volvere a postear, gracias