Подключение к БД

nnazarov

Суть вопроса такова.
Есть Делфи приложение в котором есть компонент для подключения к СУБД (TfrxDBXDataBase)
Есть отчет в котором есть компонент TfrxDBXQuery со свойством DataBase

Каким образом я могу привязать (установить свойство DataBase) БазуДанных основного приложения к компонентам Query в отчете?

Пробовал делать таким образом:

MainDatabase := TfrxDBXDatabase.Create(nil);
dbxQuery := frxReport.FindComponent('mQuery1') as TfrxDBXQuery;
dbxQuery.Database := MainDatabase;

не работает
Заранее спасибо.

gpi

Установите TfrxDBXDatabase.DefaultDatabase

dron-s

разместить рядом с отчётом TfrxDBXComponents и указать у него свойство DefaulDatabase равный TDBXDatadase

nnazarov

Переделал как предлагали выше

MainDatabase := TfrxDBXDatabase.Create(nil);
frxDBXComponents1.DefaultDatabase := MainDatabase.Database;
//

---

frxReport.LoadFromFile('test.fr3');

не работает в режиме дизайнера видно что в компоненте Query свойство Database не установлено.

gpi

А если так: MainDatabase := TfrxDBXDatabase.Create(Form);

nnazarov

gpi написал: »

А если так: MainDatabase := TfrxDBXDatabase.Create(Form);

Попробовал как Вы написали
MainDatabase := TfrxDBXDatabase.Create(frmMain);
frxDBXComponents.DefaultDatabase := MainDatabase.Database;
//

---

frxReport.LoadFromFile('test.fr3');

не работает

dron-s

nnazarov
интересно, а почему так как я посоветовал не попробовали?
и какие ошибки выдаёт компилятор?

nnazarov

DRON написал: »

nnazarov
интересно, а почему так как я посоветовал не попробовали?
и какие ошибки выдаёт компилятор?

в принципе я так и делаю. У меня на форме лежит компонент типа TfrxDBXComponents.
свойство DefaultDatabase я устанавливаю из кода программы, так как у меня нигде на форме нет компонента TfrxDBXDatabase и я не знаю как его туда добавить.

Компилятор никак не ругается. Просто когда я открываю из программы отчет в режиме дизайнера, то вижу что свойство Database в компоненте Query не установлено.

gpi

Вам нужно выполнить
frxDBXComponents1.DefaultDatabase := SQLConnection1
вместо
frxDBXComponents.DefaultDatabase := MainDatabase.Database;

gpi

Вам нужно выполнить
frxDBXComponents1.DefaultDatabase := SQLConnection1
вместо
frxDBXComponents.DefaultDatabase := MainDatabase.Database;

nnazarov

gpi написал: »

Вам нужно выполнить
frxDBXComponents1.DefaultDatabase := SQLConnection1
вместо
frxDBXComponents.DefaultDatabase := MainDatabase.Database;

Большое спасибо. Чет я сразу не допер что DBX - это DBExpress.