AConnection is a reference to the connected database (it's connected, don't worry!).
Code: Select all
AMetadata := TZSQLMetadata.Create(nil);
AMetadata.Connection := AConnection;
AMetadata.MetadataType := mdTables;
AMetadata.Open;
while not AMetadata.Eof do
begin
lMyList.Add(AMetadata.TableName);
AMetadata.Next;
end;
AMetadata.Close;
AMetadata.Free
¿It's a bug? ¿can you help me?
Leonardo.