Ver Mensaje Individual
  #5  
Antiguo 06-09-2024
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.670
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
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;
Responder Con Cita