TUniMetadata and database structure.

TUniMetadata and database structure.

Hi!

Now I can get tables, columns, columns types and indexes.

tables
  2. procedure
  3. var
  4.   FUniMetaData: TUniMetaData;
  5. begin
  6.   FUniMetaData := TUniMetaData.Create(nil);
  7.   try
  8.     FUniMetaData.Connection := FConnection;
  9.     FUniMetaData.MetaDataKind := 'Tables';
  10.     FUniMetaData.Open;
  11.     while not FUniMetaData.Eof do
  12.     begin
  13.       ... := FUniMetaData.FieldByName('TABLE_NAME').AsString;
  14.       FMetaQuery.Next;
  15.     end;
  16.   finally
  17.     FMetaQuery.DisposeOf;
  18.   end;
  19. end;

columns, types
  2. procedure 
  3. var
  4.   FUniMetaData: TUniMetaData;
  5. begin
  6.   FUniMetaData:= TUniMetaData.Create(nil);
  7.   try
  8.     FUniMetaData.Connection := FConnection;
  9.     FUniMetaData.Restrictions.Values['TABLE_NAME'] := FTable;
  10.     FUniMetaData.MetaDataKind := 'Columns';
  11.     FUniMetaData.Open;
  12.   while not FUniMetaData.Eof do
  13.   begin
  15.   ... := FUniMetaData.FieldByName('COLUMN_NAME').AsString;
  16.   ... := FUniMetaData.FieldByName('DATA_TYPE').AsString;
  17.   ... := FUniMetaData.FieldByName('DATA_LENGTH').AsInteger;
  18.     FUniMetaData.Next;
  19.   end;
  20.   finally
  21.     FUniMetaData.DisposeOf;
  22.   end;
  23. end;

indexes
  2. procedure
  3. var
  4.   FUniMetaData: TUniMetaData;
  5. begin
  6.   FUniMetaData:= TUniMetaData.Create(nil);
  7.   try
  8.     FUniMetaData.Connection := FConnection;
  9.     FUniMetaData.Restrictions.Values['TABLE_NAME'] := FTable;
  10.     FUniMetaData.MetaDataKind := 'Indexes';
  11.     FUniMetaData.Open;
  12.   while not FUniMetaData.Eof do
  13.   begin
  14.     ... := FUniMetaData.FieldByName('INDEX_NAME').AsString;
  15.     FUniMetaData.Next;
  16.   end;

  18.   finally
  19.     FUniMetaData.DisposeOf;
  20.   end;
  21. end;

IndexColumns
  2. procedure 
  3. var
  4.   FUniMetaData: TUniMetaData;
  5.   index: TUIndex;
  6.   s: string;
  7. begin
  8.   FUniMetaData:= TUniMetaData.Create(nil);
  9.   try
  10.     FUniMetaData.Connection := AConnection;
  11.     FUniMetaData.Restrictions.Values['TABLE_NAME'] := ATable;
  12.     FUniMetaData.Restrictions.Values['INDEX_NAME'] := AIndex;
  13.     FUniMetaData.MetaDataKind := 'IndexColumns';
  14.     FUniMetaData.Open;
  15.     while not FUniMetaData.Eof do
  16.     begin
  17.       ... := FUniMetaData.FieldByName('COLUMN_NAME').AsString;
  18.       FUniMetaData.Next;
  19.     end;
  20.   finally
  21.     FUniMetaData.DisposeOf;
  22.   end;
  23. end;

But I need to get also foreign keys and their composition.

How can I do this for MySql and MS Access?