Конференция "Базы" » Почему не работает сей запрос? ADO + MsAccess
 
  • Сергей (29.05.08 13:38) [0]
    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 © (29.05.08 13:45) [1]
    Ты действительно думаешь, что кто-то будет во в этом неоформленном коде разбираться?
  • Правильный=Вася (29.05.08 13:45) [2]
    и чево говорит?
  • Сергей (29.05.08 13:49) [3]
     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:53) [4]

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


    Не чего не говорит) В отчете нет данных из БД - почему?
  • Правильный+Вася+ (29.05.08 13:53) [5]

    > А так?

    а так шо, текст ошибки перестал появляться?
  • Сергей (29.05.08 13:56) [6]

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


    Так вот что и обидно, не выдает ни какой ошибки!
  • Ega23 © (29.05.08 13:56) [7]

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


    Так НД, поди, пустой...
  • Sergey13 © (29.05.08 13:57) [8]
    > [3] Сергей   (29.05.08 13:49)
    > Platezhi.SUM

    А это случаем не зарезервированное слово?
  • Сергей (29.05.08 14:01) [9]

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


    Если я использую по неопытности Зарезервированные слова в одном или нескольких Именах полей то запрос будет завершатся крахом?
  • Сергей (29.05.08 14:02) [10]

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


    НД???
  • Правильный-Вася (29.05.08 14:03) [11]

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

    значит работает
    машина делает, что ты ей скажешь, а не то, что ты хочешь, чтоб она делала
  • Sergey13 © (29.05.08 14:05) [12]
    > [9] Сергей   (29.05.08 14:01)

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

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

    Значит их, данных, нет и в БД. Особенно с такими условиями.
  • Сергей (29.05.08 14:07) [13]

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


    В БД есть данные 100%
  • Sergey13 © (29.05.08 14:32) [14]
    > [13] Сергей   (29.05.08 14:07)

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

    Проверь свой Zabit.ClientDataSet1 на наличие записей. Если пустой - работай над запросом. Если есть - что-то в отчете напортачил.
  • Ega23 © (29.05.08 14:41) [15]

    >
    > НД???
    >


    Набор Данных.
    Поставь  после
    Zabit.ClientDataSet1.Open;


    код
     if Zabit.ClientDataSet1.IsEmpty then
      ShowMessage('Кина не будет!')
     else
      ShowMessage('Косяк не тут...')  ;

  • MsGuns © (29.05.08 14:44) [16]
    Все на помойку.
  • Reindeer Moss Eater © (29.05.08 14:45) [17]
    В БД есть данные 100%

    Но не те, которые ты запросил
  • Сергей (29.05.08 16:15) [18]

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


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



    Что не так? Подскажите если не трудно! Где копать?
  • Reindeer Moss Eater © (29.05.08 16:17) [19]
    условие where копай.
    это оно причина того что кина не будет
 
Конференция "Базы" » Почему не работает сей запрос? ADO + MsAccess
Есть новые Нет новых   [134470   +16][b:0][p:0.002]