Вниз
Скачать: CL | DM;

не отрабатывается запрос в TQuery   Найти похожие ветки 

 
Nikkkkk   (2003-08-20 15:10) [0]

!!!Уважаемые мастера!!!
У меня вот какая проблема. Необходимо сделать выборку из двух таблиц. Пример запроса:
select ttprod."nomttn",ttnakl."nomrec" from ttnakl,ttprod
where ttprod."nomttn"=ttnakl."nomrec"

В результате выполнения запроса не найдено ни одной записи,
хотя когда пишу этот же код в DB Explorer, все ищется и работает. Почему так ???
Заранее спасибо.


 
Nikkkkk   (2003-08-20 15:11) [1]

использую тип таблиц FoxPRO(другие использовать нельзя.)


 
Desdechado ©   (2003-08-20 15:18) [2]

делаешь qry.Open или qry.ExecSQL
ExecSQL не возвращает набора данных


 
Nikkkkk   (2003-08-20 15:21) [3]


> Desdechado © (20.08.03 15:18) [2]
> делаешь qry.Open или qry.ExecSQL
> ExecSQL не возвращает набора данных

я стественно делаю Query1.open, но картина не меняется.


 
Desdechado ©   (2003-08-20 15:25) [4]

try-except блок есть? может, подавляешь исключение, в котором оно тебе говорит, что не найдена таблица?


 
Nikkkkk   (2003-08-20 15:28) [5]

После отработки, и закрытия приложения выдает ошибку:
Runtim error 216 at 004036AE


 
Соловьев ©   (2003-08-20 15:31) [6]

А так?

select t2."nomttn", t1."nomrec"
from ttnakl t1
left join ttprod t2 on t1."nomrec" = t2."nomttn"


 
Nikkkkk   (2003-08-20 15:35) [7]


> Соловьев © (20.08.03 15:31) [6]
> А так?
>
> select t2."nomttn", t1."nomrec"
> from ttnakl t1
> left join ttprod t2 on t1."nomrec" = t2."nomttn"

отрабатывает безрезультатно, хотя ошибки уже не выдает...


 
Johnmen ©   (2003-08-20 15:36) [8]

Приводи код, формирующий и выполняющий указанный запрос...


 
Nikkkkk   (2003-08-20 15:40) [9]

select ttprod."nomttn",ttnakl."nomrec" from ttnakl,ttprod
where ttprod."nomttn"=ttnakl."nomrec" and ttnakl."datotg">"01.07.03" and ttnakl."datotg"<"30.07.03"

Вышеописанное прописываю при создании компонента TQuery (вручную). А далее по событию формы OnActivate делаю TQuery1.open;
Вот собственно и все, без всяких заморочек.


 
Соловьев ©   (2003-08-20 15:42) [10]

>отрабатывает безрезультатно
а как ты это проверяешь?


 
Жук ©   (2003-08-20 15:44) [11]

Nikkkkk = Nik5 ~ Nik8 :-)))
ЗЫ. Сорри за оффтоп.


 
Nikkkkk   (2003-08-20 15:47) [12]


> Соловьев © (20.08.03 15:42) [10]
> >отрабатывает безрезультатно
> а как ты это проверяешь?

Вижу в DBgrid-e


 
Johnmen ©   (2003-08-20 15:50) [13]

Ещё раз. Если ожидаешь реальной помощи, приводи код ! Целиком !


 
Nikkkkk   (2003-08-20 15:53) [14]

в TQuery.SQL-пишу:
select ttprod."nomttn",ttnakl."nomrec" from ttnakl,ttprod
where ttprod."nomttn"=ttnakl."nomrec" and ttnakl."datotg">"01.07.03" and ttnakl."datotg"<"30.07.03"

затем:
procedure TForm1.FormActivate(Sender: TObject);
begin
query1.open;
end;

Вот собственно и весь код.


 
Nikkkkk   (2003-08-20 16:00) [15]

почему в DBExlorer работает а в программе нет ???


 
Соловьев ©   (2003-08-20 16:06) [16]

select ttprod."nomttn",ttnakl."nomrec" from ttnakl,ttprod
where ttprod."nomttn"=ttnakl."nomrec" and ttnakl."datotg" between cast("01.07.03" as date) and cast("30.07.03" as date)


 
Johnmen ©   (2003-08-20 16:08) [17]

Возьми даты в одиночные кавычки, а имена полей оставь без них...


 
Nikkkkk   (2003-08-20 16:16) [18]

!!! СПАСИБО ВСЕМ ОГРОМНЕЙШЕЕ !!! РАБОТАЕТ !!!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c
3-33451
Ден
2003-08-22 10:01
2003.09.11
Программное создание псевдонима SQL


14-33792
Шерлок Холмс
2003-08-21 00:59
2003.09.11
Спать охота.


1-33566
Chlavik
2003-08-28 20:39
2003.09.11
Debugger и GetLastError


14-33735
Knight
2003-08-21 09:30
2003.09.11
Клиент форума


1-33584
Igel
2003-08-28 10:03
2003.09.11
Минимизировать Модальное окно!




   Наверх