O seguinte passo retorna linhas com valor zero:
with Qy1Aux do
begin
Close;
Sql.Clear;
Sql.Add('Show Databases');
Open;
First;
for i:=0 to recordcount -1 do begin
Memo1.Lines.Add(Qy1Aux.Fields[0].AsVariant);
Next;
end;
end;
Como listar nomes das bases ?
[ ]sss
----------
----------
Nenhum vírus encontrado nessa mensagem enviada.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.278 / Banco de dados de vírus: 270.12.61/2167 - Data de Lançamento:
06/10/09 05:52:00
[As partes desta mensagem que não continham texto foram removidas]
