Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему не работает сей запрос? ADO + MsAccess

Страницы: 1 2 >
Сергей © (2008-05-29 13:38:00)
begin
Zabit.ClientDataSet1.Close;
Zabit.ClientDataSet1.CommandText:=' SELECT Platezhi.N as [Num], Platezhi.POrg as [Ben], Org.OrgIIK as [IIK], Org.OrgRNN as [BenRNN], Platezhi.PBank as [BenBank], Bank.BankBIK as [BIK], Platezhi.PKBK as [KBK], Platezhi.PNaz as [Naz],'+
' Naz.NazKod as [Kodnaz], Platezhi.DATEPL as DATA, Platezhi.SUM AS [SUM]'+
'FROM ((Platezhi INNER JOIN Org ON Platezhi.POrg = Org.OrgName) INNER JOIN Bank ON Platezhi.PBank = Bank.BankName) INNER JOIN Naz ON Platezhi.PNaz = Naz.NazName '+
'WHERE Platezhi.N='+Edit1.Text;
Zabit.ClientDataSet1.Open;
with Form1 do begin
QRDBText1.DataSet:=Zabit.ClientDataSet1; QRDBText1.DataField:='NUM';
QRDBText11.DataSet:=Zabit.ClientDataSet1; QRDBText11.DataField:='BEN';
QRDBText12.DataSet:=Zabit.ClientDataSet1; QRDBText12.DataField:='BENRNN';
QRDBText9.DataSet:=Zabit.ClientDataSet1; QRDBText9.DataField:='IIK';
QRDBText13.DataSet:=Zabit.ClientDataSet1; QRDBText13.DataField:='BENBANK';
QRDBText14.DataSet:=Zabit.ClientDataSet1; QRDBText14.DataField:='BIK';
S911.DataSet:=Zabit.ClientDataSet1; S911.DataField:='KODNAZ';
KBK.DataSet:=Zabit.ClientDataSet1; KBK.DataField:='KBK';
QRDBText2.DataSet:=Zabit.ClientDataSet1; QRDBText2.DataField:='DATA';
SDate.DataSet:=Zabit.ClientDataSet1; SDate.DataField:='DATA';
QRDBText15.DataSet:=Zabit.ClientDataSet1; QRDBText15.DataField:='SUM';
QRDBText8.DataSet:=Zabit.ClientDataSet1; QRDBText8.DataField:='SUM';
QRDBText10.DataSet:=Zabit.ClientDataSet1; QRDBText10.DataField:='NAZ';
QRLabel48.Caption:=DateToStr(Date);
QuickRep1.Preview;
end;

Kolan (2008-07-02 14:45:00) [1]

> Почему не работает...
> Zabit.

Забилось может где-то? Или забылось...

umbra (2008-07-02 11:38:00) [2]

> Х.з. в принципе должна наверное быть ошибка, но видимо аксес
> кушает.
>

не, на зарезервированные слова аксес не ругается :) сам долго искал в чем дело, пока не понял что поле называется counter (это тип такой в аксесе)

AnnNet (2008-07-02 08:57:00) [3]
Удалено модератором

AnnNet (2008-07-02 08:57:00) [4]

> Sergey13 © (01.07.08 15:53) [27]

Добрые вы здесь ...

Sergey13 (2008-07-01 15:53:00) [5]
> [25] AnnNet (01.07.08 15:43)

Надеюсь ты ограничишься майскими ветками. 8-)

AnnNet (2008-07-01 15:50:00) [6]
Я конечно не профи, но попробуй использовать АDOQuery для запроса и DBGrid для вывода результата.так мне кажется проще и кода меньше

AnnNet (2008-07-01 15:43:00) [7]
Я конечно не профи, но попробуй использовать АDOQuery для запроса и DBGrid для вывода результата.так мне кажется проще и кода меньше

Sergey13 (2008-05-29 16:47:00) [8]
> [21] Сергей (29.05.08 16:41)
> Таблицы между собой не связаны!

Во первых это само по себе плохо ибо со временем практически гарантирует белиберду в данных.
Во вторых я говорил про связь в ЗАПРОСЕ, а не в таблице - чувствуешь разницу.

MsGuns (2008-05-29 16:46:00) [9]
>Сергей (29.05.08 16:41) [21]
>Таблицы между собой не связаны!

Повторяю еще раз: ВЫКИНЬ ВСЕ НАФИГ !
И перепиши нормально. Если надо перекроить базу, то перекрои.
И нечего гнать на бедный акцес, падающий (зависающий) от таких запросов.

ЗЫ. За код, подобный сабжевому, надо отрывать руки, волосы, уши, ноздри и вообще все что висит (торчит)

MsGuns (2008-05-29 16:42:00) [10]
>Sergey13 © (29.05.08 16:20) [20]
> Platezhi.POrg = Org.OrgName) INNER JOIN Bank ON Platezhi.PBank = Bank.BankName
>У тебя связь по наименованию?

Это уродище меркнет перед вот этим шедевром:

'WHERE Platezhi.N='+Edit1.Text;

Я б на месте сервера послал бы этого Сергея куда Макар телят не гонял ;)))

Сергей (2008-05-29 16:41:00) [11]

> Sergey13 © (29.05.08 16:20) [20]

Дана База: baza.mdb
В ней таблицы:
Platezhi
Bank
Org
и т д

Таблицы между собой не связаны!

Sergey13 (2008-05-29 16:20:00) [12]
> [3] Сергей (29.05.08 13:49)
> Platezhi.POrg = Org.OrgName) INNER JOIN Bank ON Platezhi.PBank = Bank.BankName

У тебя связь по наименованию?

Reindeer Moss Eater (2008-05-29 16:17:00) [13]
условие where копай.
это оно причина того что кина не будет

Сергей (2008-05-29 16:15:00) [14]

> Ega23 © (29.05.08 14:41) [15]

Кина не будет!

Что не так? Подскажите если не трудно! Где копать?

Reindeer Moss Eater (2008-05-29 14:45:00) [15]
В БД есть данные 100%

Но не те, которые ты запросил

MsGuns (2008-05-29 14:44:00) [16]
Все на помойку.

Ega23 (2008-05-29 14:41:00) [17]

>
> НД???
>

Набор Данных.
Поставь после
Zabit.ClientDataSet1.Open;
код
if Zabit.ClientDataSet1.IsEmpty then ShowMessage('Кина не будет!') else ShowMessage('Косяк не тут...') ;

Sergey13 (2008-05-29 14:32:00) [18]
> [13] Сергей (29.05.08 14:07)

Грубо говоря ты запросил данные у которых 1=0. Естественно вернулось 0 записей, хотя записи там какие то есть.

Проверь свой Zabit.ClientDataSet1 на наличие записей. Если пустой - работай над запросом. Если есть - что-то в отчете напортачил.

Сергей (2008-05-29 14:07:00) [19]

> Значит их, данных, нет и в БД. Особенно с такими условиями.

В БД есть данные 100%

Sergey13 (2008-05-29 14:05:00) [20]
> [9] Сергей (29.05.08 14:01)

Когда я писал ответ твоих постов про ошибки еще не было.
Х.з. в принципе должна наверное быть ошибка, но видимо аксес кушает.

> [4] Сергей (29.05.08 13:53)
> В отчете нет данных из БД - почему?

Значит их, данных, нет и в БД. Особенно с такими условиями.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »