Enumerar filas de un select

[roman]

Así probé yo y funciona:

Código PHP:

<?php
mysql_query('set @fila = 0');
$filas = mysql_query('select @fila := @fila + 1 as fila, clave, nombre from cliente')
?>
<table>
<tr>
    <th>Fila</th>
    <th>Clave</th>
    <th>Nombre</th>
</tr>
<?php while ($fila = mysql_fetch_assoc($filas)): ?>
<tr>
    <td><?php echo $fila['fila'] ?></td>
    <td><?php echo $fila['clave'] ?></td>
    <td><?php echo $fila['nombre'] ?></td>
</tr>
<?php endwhile ?>
</table>

// Saludos

[[enecumene]]

Yo siempre lo he logrado hacerlo en php, más no he podido hacerlo en delphi con Zeos.

Saludos.

[roman]

Código Delphi [-]
ZQuery1.SQL.Text := 'set @fila = 0';
ZQuery1.ExecSQL;

ZQuery1.SQL.Text :=
  'select @fila := @fila + 1 as fila, clave, nombre from solicitante';
ZQuery1.Open;

// Saludos

[[enecumene]]

Vale, no sabía que se puede hacer dos sentencias con el mismo TZQuery y me ha funcionado bien. Gracias.

Saludos

[roman]

Empezado por enecumene

no sabía que se puede hacer dos sentencias con el mismo TZQuery

Estee.. Más bien es lo que no se puede hacer. A ver, hasta donde yo sé, MySQL no acepta sentencias múltiples en una misma consulta, por ello no se puede poner

Código Delphi [-]
ZQuery1.SQL.Add('set @fila = 0');
ZQuery1.SQL.Add('select @fila := @fila + 1 as fila, clave, nombre from solicitante');

y ejecutar la consulta. Hay que hacerlo por separado. No es que se hagan dos consultas, sólo estás reusando el ZQuery. Lo mismo podría hacerse con dos ZQuery

Código Delphi [-]
ZQuery1.SQL.Text := 'set @fila = 0';
ZQuery1.ExecSQL;

ZQuery2.SQL.Text :=
  'select @fila := @fila + 1 as fila, clave, nombre from solicitante';
ZQuery2.Open;

// Saludos

[[enecumene]]

Ahh ok, ya entendí, ahora lo tengo más claro, de nuevo gracias Roman.

Saludos.

[tcp_ip_es]

ahora que he visto lo de la ejecución de dos sentencias como bien ha comentado Roman, me gustaría saber si con un TAdoQuery + ODBC + MySQL funcionaría también....