Devart Forums

Code: Select all

procedure GetIndexNames(uc: TUniConnection; TableName: String; SList: TStringList);
var
  meta: TDAMetaData;
  iPunct: Integer;
  OnlyTableName: String;
  DBName, Schema: String;
begin
  SList.CaseSensitive := False;
  SList.Clear;
  meta := uc.CreateMetaData;
  try
    meta.MetaDataKind := 'Indexes';

    //here I play a little with restriction for SQLite, PostgreSQL, SQL Server and MySQL
    //but this is specifically for my application and I deleted sources  
    //meta.Restrictions.Values['TABLE_CATALOG'] := DBName;
    //meta.Restrictions.Values['TABLE_SCHEMA'] := Schema;

    meta.Restrictions.Values['TABLE_NAME'] := TableName;
    meta.Open;
    meta.First;
    while not meta.Eof do begin
      SList.Add(meta.FieldByName('INDEX_NAME').AsString);
      meta.Next;
    end;
  finally
    meta.Free;
  end;
end;

Code: Select all

  UniMetaData1.MetaDataKind:='Indexes';
  UniMetaData1.Restrictions.Values['TABLE_NAME'] := 'YourTableName';
  UniMetaData1.Restrictions.Values['INDEX_NAME'] := 'YourIndexName';
  UniMetaData1.Open;
  if not UniMetaData1.IsEmpty then begin
    // index exists;
  end;