Listar la estructura de una DB

[ElDuc]

Gracias a ambos por ayudarme,

Ahora aún no sé con qué trabajaré, SQL Server, NySql, ...,

De todas forma la sugerencia de Cero me parece muy interesante porque, según entiendo, esto es independente del tipo de base de datos que se utilice.

Lo probaré esta noche y os comento.

Gracias y hasta luego.

[ElDuc]

CONSEGUIDO.

Buenos chicos, esto ya está. aunque más tarde de lo que os dije.

Además de lo que me propuso Cero, que funciona perfectamente, he encontrado lo siguiente:
ADOConnection1.Fields[i].DataType, nos ofrece el tipo de dato definido en la base de datos.
AdoConnection1.Fields[i].Size, nos ofrece el tamaño definido en la base de datos.

Saludos.

[afunez2007]

Empezado por ElDuc

CONSEGUIDO.

Buenos chicos, esto ya está. aunque más tarde de lo que os dije.

Además de lo que me propuso Cero, que funciona perfectamente, he encontrado lo siguiente:
ADOConnection1.Fields[i].DataType, nos ofrece el tipo de dato definido en la base de datos.
AdoConnection1.Fields[i].Size, nos ofrece el tamaño definido en la base de datos.

Saludos.

Esto esta interesante, estuve probandolo

Aunque la ultima parte de saber el tipo de datos y el tamaño, no lo he podido conseguir, se podra hacer con TTable?

Digame algo al respecto.

Saludos

[*Caro*]

Empezado por afunez2007

Aunque la ultima parte de saber el tipo de datos y el tamaño, no lo he podido conseguir, se podra hacer con TTable?

Hola afunez2007, si tiene que ser sobre el DataSet (TTable, TQuery.....) :

Código Delphi [-]
var
 tipo : TFieldType;
 TipoDato : String;
 Size : Integer;
begin
 ...............................................................
 tipo := Query1.Fields[IndiceDelCampo].DataType;
 Case tipo Of
  ftString : TipoDato := 'Character or string field';
  ftInteger : TipoDato := '32-bit integer field';
  ftBoolean : TipoDato := 'Boolean field';
  ftFloat : TipoDato := 'Floating-point numeric field';
  ftCurrency : TipoDato := 'Floating-point numeric field';
  ftDate : TipoDato := 'Date field';
  ftTime : TipoDato := 'Time field';
  ftDateTime : TipoDato := 'Date and time field';
  ftAutoInc : TipoDato := 'Auto-incrementing 32-bit integer counter field';
  ftBlob : TipoDato := 'Binary Large OBject field';
  ................................................................ 
  // Y hay muchos mas
 end;
 Size := Query1.Fields[IndiceDelCampo].DataSize;
 ....................................................

Saluditos

[afunez2007]

Hola pues al final he logrado hacer lo que estaba intentando con las ideas que Dio Caro.
Le agregue algunas cosillas, adjunto el proyecto para que lo vean.

Saludos