Cita:
Empezado por elturu15
... cuando ejecuto la prueba delistar se me cualge. El codigo que uso es este y esta en un button
Código Delphi [-]begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT * FROM Ciudades';
ADOQuery1.Open;
While not ADOQuery1.EOF do
QRDBText1.DataField:= ADOQuery1.Fields[1].AsString;
end;
Si no pongo el While me lista el primer reg y si lo pongo se me cuelga,
YO QUIERO LISTAR TODA LA TABLE...AUXULIO!
|
Se cuelga porque dentro del bucle while no le dices que pase al siguiente registro con
ADOQuery1.Next;
Por lo demás, en QR no hace falta asignar nada en ejecución para que te muestr todos los registros: Basta con que en el informe le pongas su propiedad "Dataset" apuntando al "ADOQuery1" y la propiedad "DataField" de QRDBText1 al campo que deseas mostrar. ¿Como estás llamando al informe? ¿Está el formulario que lo contiene en modo "Autocreate" o lo creas cuando sea necesario? A lo mejor necesitas asignar los campos en algún evento antes de mostrar el QR, como BeforePrint o alguno parecido
Un saludo