Подскажите плиз в чем ошибка в БД D7 при SQL запросе

[pu4koff]

Сообщение от TitAn

Нет что-то типа
______________________
RegNum | Type | Status
_______________________
а в теле полученой таблицы выборка по where

Или я что-то путаю, или так нельзя сделать. Мне известен только вариант слить все нужные записи во временную таблицу и ее открывать...

[TitAn]

Можешь подсказать как это сделать просто попадаю я с дипломом.

[pu4koff]

неа. тут я не советчик. я бы изначально сделал доп. поле с типом записи. Ну а так в голову пиходит только:
1) создаем таблицу нужной структуры
2) делаем запрос на выборку из таблицы Wire
3) пока not WireTable.Eof копируем запись во временную таблицу
4) WireTable.Next
5) конец_пока
6) на шаг 2 для следующей таблицы

[TitAn]

А может что-нибудь подскажешь по-поводу экспорта в Excel

[TitAn]

Я попробовал сделать раздельные запросы по каждой таблице свой, с отображением данных из 10(всего) - 4 поля, ему тоже что-то не нравится. Когда эти запросы вгоняю в Query prop.SQL всё работает как надо. Возможно какая-то синтаксическая ошибка.

procedure TForm1.N50Click(Sender: TObject);
begin
Query1.Active:=False;
Query1.sql.Clear;
Query1.sql.Add('select RegNum,Designation,Type,Status * from BCK where Status="В ремонте"');
Query1.Active:=True;
end;

[pu4koff]

че там за звездочка такая затесалась в запросе?
по поводу ъкспорта в эксель смотри в нете дофига инфы.
Когда мне надо было в ворд экспорт делать, то макрос записал и потом просто на синтаксис делфи перегнал. В принципе там все легко и просто.
Кстати, эксель кажеца умеет дбф открывать...
и по моему лечше всеже не свойство Active менять, а Open/Close, но это так...

[TitAn]

Я похоже нашел ошибку, не подскажете как при запросе открыть таблицу Repair и добавить в неё новые данные, согласно этого листинга.

procedure TForm1.N50Click(Sender: TObject);
begin
Query1.Active:=False;
Query1.sql.Clear;
Query1.sql.Add('select RegNum,Designation,Type,Status *
from BCK,Trans,Wire
where Status="В ремонте"');
Query1.Active:=True;
end;