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;
while not AMetadata.Eof do
The while loop iterates aproximately the number of database objects, I think it's correct, the problem is AMetadata.TableName is equal to '' (empty) for all tables, also when I look for AMetadata.ProcedureName is empty and all AMetadata properties.
¿It's a bug? ¿can you help me?