ZQuery.FieldCount 
...
ZQuery.Fields[i].FieldName

procedure GetTableNames(Connection: TZConnection; List: TStrings);
var
  Metadata: IZDatabaseMetadata;
  ResultSet: IZResultSet;
  Types: TStringDynArray;
  TBName: string;
begin
  List.Clear;
  Metadata := Connection.DbcConnection.GetMetadata;
  SetLength(Types, 2);
  Types[0]:= 'TABLE';
  Types[1]:= 'VIEW';
  ResultSet := Metadata.GetTables('', '', '', Types);
  try
    while ResultSet.Next do
    begin
      TBName:= ResultSet.GetStringByName('TABLE_NAME');
      if List.IndexOf(TBName) < 0 then
        List.Add(TBName);
    end;
  finally
    ResultSet.Close;
  end;
end;

ZQuery.TableCount 
... ZQuery.Tables[i].TableName

@manz_delphi: :mrgreen: Tank-Q master Delphi ... Tapi kalo langsung ada gak yach ???

ZQuery.TableCount 
... ZQuery.Tables[i].TableName

:mrgreen: