ใช้แบบนี้ครับ
uses
ZAbstractRODataset,zdbcintfs;
var
ResultSet: IZResultSet;
begin
ResultSet := zConnection1.DbcConnection.GetMetadata.GetTables('', '', '', Nil);
while ResultSet.Next do
begin
if ResultSet.GetString(4) = 'TABLE' then
fList.Add(ResultSet.GetString(3));
end;
end;