-
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;
-
Ты действительно думаешь, что кто-то будет во в этом неоформленном коде разбираться?
-
и чево говорит?
-
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; А так?
-
> Правильный=Вася (29.05.08 13:45) [2] > > и чево говорит?
Не чего не говорит) В отчете нет данных из БД - почему?
-
> А так?
а так шо, текст ошибки перестал появляться?
-
> Правильный+Вася+ (29.05.08 13:53) [5]
Так вот что и обидно, не выдает ни какой ошибки!
-
> Так вот что и обидно, не выдает ни какой ошибки!
Так НД, поди, пустой...
-
> [3] Сергей (29.05.08 13:49) > Platezhi.SUM
А это случаем не зарезервированное слово?
-
> Sergey13 © (29.05.08 13:57) [8]
Если я использую по неопытности Зарезервированные слова в одном или нескольких Именах полей то запрос будет завершатся крахом?
-
> Ega23 © (29.05.08 13:56) [7]
НД???
-
> не выдает ни какой ошибки!
значит работает машина делает, что ты ей скажешь, а не то, что ты хочешь, чтоб она делала
-
> [9] Сергей (29.05.08 14:01)
Когда я писал ответ твоих постов про ошибки еще не было. Х.з. в принципе должна наверное быть ошибка, но видимо аксес кушает.
> [4] Сергей (29.05.08 13:53) > В отчете нет данных из БД - почему?
Значит их, данных, нет и в БД. Особенно с такими условиями.
-
> Значит их, данных, нет и в БД. Особенно с такими условиями.
В БД есть данные 100%
-
> [13] Сергей (29.05.08 14:07)
Грубо говоря ты запросил данные у которых 1=0. Естественно вернулось 0 записей, хотя записи там какие то есть.
Проверь свой Zabit.ClientDataSet1 на наличие записей. Если пустой - работай над запросом. Если есть - что-то в отчете напортачил.
-
> > НД??? >
Набор Данных. Поставь после Zabit.ClientDataSet1.Open; код if Zabit.ClientDataSet1.IsEmpty then
ShowMessage('Кина не будет!')
else
ShowMessage('Косяк не тут...') ;
-
Все на помойку.
-
В БД есть данные 100%
Но не те, которые ты запросил
-
> Ega23 © (29.05.08 14:41) [15]
Кина не будет! Что не так? Подскажите если не трудно! Где копать?
-
условие where копай. это оно причина того что кина не будет
|