TIBQuery, TDBChart y un error con la Database

[papulo]

Creo un datamodule, con su DB y su transacción, todo correctamente funcionando y tal y tal.
En el form pongo un TBQuery con la consulta que deseo, un Datasource y un TDBChart para poner un gráfico de pastelito.

Lo monto todo para que se vea bien y bonito, cuando al ejecutar me da el siguiente mensaje de error:

"Exception EIBClientError in module Elecgraph5.exe at 00077218. Database is not assigned"

Elecgraph es como he llamado a mi programita en pruebas.

El caso es que ayer lo hice funcionar y me fue sin problemas, pero hoy no se porque me está fallando.


Una simple palabra H-E-L-P-! (vale, y un signo de exclamación también)

Asias gente, un saludete.

[JCarlosas]

Hola.
Por lo que planteas parece ser un problema con los componetes que usas para conectarte a la BD y que posiblemente muy poco tenga que ver con el techart.
Que componentes estas usando para conectarte a la BD.???

Saludos
Juan Carlos

[papulo]

La base de datos esta en Firebird. Uso los componentes de Interbase, que son los que uso habitualmente.

Creo un Datamodule con un IBDataSet (correctamente configurado, con la ruta a la DB, el user y el pass en Params y LoginPrompt = False), un IBTransaction vinculado a esa DB.

Luego en el Formulario, añado el Datamodule a los Uses, para que pueda usar la DB que he creado. Pongo un TIBQuery con la consulta que quiero en SQL, la vinculo a la DB, también pongo un Datasource y le pongo en Dataset la TIBQuery. Por último pongo un TDBchart, hago doble click encima, add, selecciono el gráfico de paste y configuro como datasource el TIBQuery.
Por último, voy al TIBQuery y cambio Active a true, me aparece el gráfico que quiero mostrar ya dibujado con los valores correctos y demas, pero cuando le doy al F9, compila sin problemas y en tiempo de ejecución me da el error que he comentado en mi primer post.

No hago nada mas.

Saludos,
Papulo.

PD: Ahora me doy cuenta de que me ha salido un primer post algo parco en detalles, jejejeje. Espero que este ayude mas a ver.

[papulo]

Bueno, niños del mundo, os daré la solución a mi problema.
Era realmente sencillo, estaba bien construido todo, correctamente configurado, ¿entonces por que fallaba?, porque al crear el formulario intentaba conectarse ya con la base de datos y está todabia no había sido definida en tiempo de ejecución.

Solución:
La propiedad Active del IBQuery la he puesto en false.
Agrego un boton debajo del Chart y en su evento onClick le pongo el siguiente código.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.Active := True;
end;

Y al ejecutar, le damos al boton agraciado y ya funcionará perfectamente.

Saludos de un novato en Delphi al 89%.

PD: Ahora me cambio esa parte del nick, jejeje.