Ver Mensaje Individual
  #7  
Antiguo 06-09-2024
drewdavis drewdavis is offline
Registrado
 
Registrado: sep 2024
Posts: 5
Reputación: 0
drewdavis Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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é
Responder Con Cita