Devart Forums

Code: Select all

  List := TSringList.Create;
  try
    Conn.Server := 'Server';
    Conn.Port := 3306;
    Conn.Username := 'root';
    Conn.Password := '****';
    Conn.Database := 'DBName';
    Conn.Open;
    Conn.GetTableNames(List);
    // In the List views are available.
    // How can i get views ?? Conn.GetViewNames not available
  finally
    List.Free;
  end;

Code: Select all

var
  MyMetaData: TMyMetaData;
  List: TStringList;
begin
  MyMetaData := TMyMetaData.Create(nil);
  try
    MyMetaData.Connection := MyConnection1;
    MyMetaData.MetaDataKind := 'Tables';
    MyMetaData.Restrictions.Values['TABLE_TYPE'] := 'VIEW';

    List := TStringList.Create;
    try
      MyMetaData.Open;
      while not MyMetaData.eof do
      begin
        List.Add(MyMetaData.FieldByName('TABLE_NAME').AsString);
        MyMetaData.next;
      end;
    finally
      List.Free;
    end;
  finally
    MyMetaData.Free;
  end;

Code: Select all

MyMetaData.Restrictions.Values['TABLE_TYPE'] := 'VIEW'; <- only views are selected
MyMetaData.Restrictions.Values['TABLE_TYPE'] := 'BASE TABLE'; <- only tables are selected