| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / 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;

---

Правильный-Вася   (2008-05-29 14:03:00) [21]

> не выдает ни какой ошибки!

значит работает
машина делает, что ты ей скажешь, а не то, что ты хочешь, чтоб она делала

---

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

> Ega23 ©   (29.05.08 13:56) [7]


НД???

---

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

> Sergey13 ©   (29.05.08 13:57) [8]


Если я использую по неопытности Зарезервированные слова в одном или нескольких Именах полей то запрос будет завершатся крахом?

---

Sergey13   (2008-05-29 13:57:00) [24]

> [3] Сергей   (29.05.08 13:49)
> Platezhi. SUM

А это случаем не зарезервированное слово?

---

Ega23   (2008-05-29 13:56:00) [25]

> Так вот что и обидно, не выдает ни какой ошибки!


Так НД, поди, пустой...

---

Сергей   (2008-05-29 13:56:00) [26]

> Правильный+Вася+   (29.05.08 13:53) [5]


Так вот что и обидно, не выдает ни какой ошибки!

---

Правильный+Вася+   (2008-05-29 13:53:00) [27]

> А так?

а так шо, текст ошибки перестал появляться?

---

Сергей   (2008-05-29 13:53:00) [28]

> Правильный=Вася   (29.05.08 13:45) [2]
>
> и чево говорит?


Не чего не говорит) В отчете нет данных из БД - почему?

---

Сергей   (2008-05-29 13:49:00) [29]

 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;

А так?

---

Ega23   (2008-05-29 13:45:00) [30]

Ты действительно думаешь, что кто-то будет во в этом неоформленном коде разбираться?

---

Правильный=Вася   (2008-05-29 13:45:00) [31]

и чево говорит?

---

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

Наверх