Obtener estrucura de una BD
 

Busco una funcion (en delphi) que apartir de una base de datos te devuelva su estructura, en SQL. Me refiero a los "CREATE TABLE ...." de las tablas, con las claves primarias, y las relaciones entre las tablas.

De tal forma que ejecutando el resultado pueda rehacer la base da datos. (la estructura, sin el contenido)

¿Qué Base de Datos estás utilizando? :confused:

Hoy en la mañana hice una prueba con el TIBExtract con una base de datos FireBird y me salio todo muy bien...

Utilizo Access.

pero busco una función que sea lo mas independiente de la base de datos posible.

Me explico:
Con un objeto TTable:
- Puedo obtener el nombre de las tablas
- Puedo obtener los campos

¿Como puedo obtener las claves ajenas?

Esta claro que es un campo de la tabla, me refiero a ¿cual de los campos es clave ajena? y ¿A que tabla hace referencia?