Ampliar una tabla

[jafera]

Buenos dias a todos.

He creado una consulta con los parametros que me indica guillotmarc para buscar las tablas que tengo en mi base de datos y recibo un mensaje de "Database not assigned" caundo hago consulta.close, consulta.open.

Alguna idea?

Gracias

Josep

[guillotmarc]

Hola Josep.

El mensaje ya te debería haber dado una pista, parece ser que tu consulta no la has enlazado a la base de datos. Tienes que añadir un objecto Database o Connection (depende de los componentes que uses) apuntando a tu base de datos.

Salut.

[jafera]

Tengo un componente IBQuery enlazado con la base de datos y un Data Source con este IBQuery.

No se si es el componente idoneo, si ejecuto la consulta en IBConsole me devuelve una tabla con los datos correctos.

Josep

[guillotmarc]

Si utilizas IBX, te faltan el IBDatabase y el IBTransaction (o bien los tienes, pero no están enlazados entre ellos con las propiedades Database y Transaction del Query).

Salutacions.

[jafera]

El IBDatabase y el IBTransaction están en el Modulo de Datos

En la consulta pongo la ruta de acceso al database.

Estoy encallado.

Josep

[jafera]

Ya no me da error, el error estaba en que creaba antes el Form Inici que el Modulo de datos y claro...

Incorrecto

Código Delphi [-]
 
Application.CreateForm(TF_Inici, F_Inici);
Application.CreateForm(TF_ModulDades, F_ModulDades);

Correcto

Código Delphi [-]
 
Application.CreateForm(TF_ModulDades, F_ModulDades);
Application.CreateForm(TF_Inici, F_Inici);

Ahora que ya no falla es cuando debo comprobar si la tabla o campos existen y si no existen los cree y si existen no haga nada.

El titulo de la columna, me sirve para esta comprobación?

Josep

[jafera]

Quisiera conservar en un Dataset las tablas y en otro las tablas y los campos pero no lo consigo.

Con el código enviado por guillotmarc en IBConsole funciona pero en Delphi , cuando quiero crear los campos en la tabla me dice que error Token unknow, line 2 char 1 from.

Josep