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
É esse comando ai mesmo.
Tente assim:
Qy1Aux.Fields[0].AsString
Se não funcionar, verifique sua conexão com o banco de dados, para ver
se está OK mesmo.
2009/6/12 Bollasette bollase...@yahoo.com.br:
O seguinte passo retorna linhas com valor zero:
with Qy1Aux do
begin
Close;
Sql.Clear;
tente assim:
with Qy1Aux do begin
Close;
Sql.Text := 'Show Databases';
Open;
while not Eof do begin
Memo1.Lines.Add( Fields[ 0 ].AsString );
Next;
end;
end;
na dúvida conecte um dataSource e um DbGrid a query e veja o retorno dos
dados.
2009/6/12 Bollasette
3 matches
Mail list logo