¿Cómo utilizar el componente TFDMetaInfoQuery de FireDAC?

[drewdavis]

En tiempo de ejecución, necesito descubrir la estructura de una tabla MySQL (nombres de campos, tipos, tamaños y más). Se supone que el componente TFDMetaInfoQuery de FireDAC debe hacer eso, pero no funciona como se esperaba. Recibí este mensaje de error:

[FireDAC][Phys][MySQL]-339. Se debe especificar un valor de argumento de metadatos [nombre del tipo de tabla]. No me digas que use los campos creados automáticamente.

[Casimiro Noteví]

Estaría bien ver el código que has usado.
Hecha un vistazo a nuestra guía de estilo, gracias.

[drewdavis]

Empezado por Casimiro Notevi

Estaría bien ver el código que has usado.

Sólo una sola línea:

FDMetaInfoQuery1.Open;

TFDMetaInfoQuery se conecta en tiempo de diseño a una TFDConnection. La misma conexión se utiliza para varias TFDQuery y cada archivo de solicitud funciona.
Extracto del DFM:

object FDMetaInfoQuery1: TFDMetaInfoQuery
  Connection = FDConnection1
  MataInfoKind = mkTableTypeFields
  TableKinds = [tkTable]
  SchemaName = 'MySchema'
  Left = 328
  Top = 64
end

[drewdavis]

No te lo pierdas

[Casimiro Noteví]

Ejemplo:

Código Delphi [-]
procedure TForm1.GetTableStructure;
begin
  // Configura la conexión
  FDMInfoQuery.Connection := FDConnection1;
  
  // Configura las propiedades para obtener la información de los campos de una tabla
  FDMInfoQuery.MetaInfoKind := mkTableFields; 
  FDMInfoQuery.TableName := 'nombre_de_la_tabla'; // Aquí el nombre de tu tabla
  
  // Abre la consulta para obtener los datos
  FDMInfoQuery.Open;
  
  // Recorre los campos de la tabla
  while not FDMInfoQuery.Eof do
  begin
    ShowMessage('Campo: ' + FDMInfoQuery.FieldByName('COLUMN_NAME').AsString +
                ' Tipo: ' + FDMInfoQuery.FieldByName('COLUMN_DATATYPE').AsString +
                ' Tamaño: ' + FDMInfoQuery.FieldByName('COLUMN_LENGTH').AsString);
    FDMInfoQuery.Next;
  end;
  
  FDMInfoQuery.Close;
end;

[drewdavis]

Empezado por Casimiro Notevi

Ejemplo:

Código Delphi [-]
procedure TForm1.GetTableStructure;
begin
  // Configura la conexión
  FDMInfoQuery.Connection := FDConnection1;
  
  // Configura las propiedades para obtener la información de los campos de una tabla
  FDMInfoQuery.MetaInfoKind := mkTableFields; 
  FDMInfoQuery.TableName := 'nombre_de_la_tabla'; // Aquí el nombre de tu tabla
  
  // Abre la consulta para obtener los datos
  FDMInfoQuery.Open;
  
  // Recorre los campos de la tabla
  while not FDMInfoQuery.Eof do
  begin
    ShowMessage('Campo: ' + FDMInfoQuery.FieldByName('COLUMN_NAME').AsString +
                ' Tipo: ' + FDMInfoQuery.FieldByName('COLUMN_DATATYPE').AsString +
                ' Tamaño: ' + FDMInfoQuery.FieldByName('COLUMN_LENGTH').AsString);
    FDMInfoQuery.Next;
  end;
  
  FDMInfoQuery.Close;
end;

¡Gracias por dejarme revisar!

[drewdavis]

Empezado por Casimiro Notevi

Ejemplo:

Código Delphi [-]
procedure TForm1.GetTableStructure;
begin
  // Configura la conexión
  FDMInfoQuery.Connection := FDConnection1;
  
  // Configura las propiedades para obtener la información de los campos de una tabla
  FDMInfoQuery.MetaInfoKind := mkTableFields; 
  FDMInfoQuery.TableName := 'nombre_de_la_tabla'; // Aquí el nombre de tu tabla
  
  // Abre la consulta para obtener los datos
  FDMInfoQuery.Open;
  
  // Recorre los campos de la tabla
  while not FDMInfoQuery.Eof do
  begin
    ShowMessage('Campo: ' + FDMInfoQuery.FieldByName('COLUMN_NAME').AsString +
                ' Tipo: ' + FDMInfoQuery.FieldByName('COLUMN_DATATYPE').AsString +
                ' Tamaño: ' + FDMInfoQuery.FieldByName('COLUMN_LENGTH').AsString);
    FDMInfoQuery.Next;
  end;
  
  FDMInfoQuery.Close;
end;

Muchas gracias lo logré

[Casimiro Noteví]