Проблемы с синтаксисом.

Andrei · 2019-08-06 05:57:08

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Topic: Проблемы с синтаксисом.

Здравствуйте.
Подскажите как правильно написать

procedure Form1_Button11_OnClick (Sender: TObject; var Cancel: boolean);
begin
   formOth.Button6.dbSQL :=  ' if (not isAdmin)  '+
                                           ' then '+
                                           ' SELECT id_mod_print, mod_print.name, count(*) '+
                                           ' FROM print '+
                                           ' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
                                           ' WHERE id_departament='+IntToStr(idDepartament) +
                                           ' group by id_mod_print '+
                                           ' ELSE '+
                                           ' SELECT id_mod_print, mod_print.name, count(*) '+
                                           ' FROM print '+
                                           ' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
                                           ' group by id_mod_print ';

                       formOth.Button6.Click;
end;

По отдельности SELECTы работают, как только добавляю IF, THEN, ELSE - ошибка синтаксиса

DriveSoft · 2019-08-06 08:06:14

DriveSoft
Administrator
Offline

Registered: 2014-02-14
Posts: 10,294

Re: Проблемы с синтаксисом.

В SQL запросах нельзя использовать скрипты.

попробуйте так

procedure Form1_Button11_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if not isAdmin then 
        formOth.Button6.dbSQL :=           ' SELECT id_mod_print, mod_print.name, count(*) '+
                                           ' FROM print '+
                                           ' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
                                           ' WHERE id_departament='+IntToStr(idDepartament) +
                                           ' group by id_mod_print'
    else     
        formOth.Button6.dbSQL :=           ' SELECT id_mod_print, mod_print.name, count(*) '+
                                           ' FROM print '+
                                           ' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
                                           ' group by id_mod_print ';

    formOth.Button6.Click;
end;

Dmitry.

Andrei · 2019-08-07 05:59:54

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Как правильно написать оператор StrToInt ?

if (id_priznzam = '1')  then SQLExecute ('INSERT INTO res (res_max, id_mod_print)  VALUES(' + IntToStr(pok_max)+', ' + StrToInt(idmodprint)+')')

sibprogsistem · 2019-08-07 07:25:07

sibprogsistem
Member
Offline

From: Нефтеюганск
Registered: 2018-04-11
Posts: 1,775

Re: Проблемы с синтаксисом.

Andrei wrote:

Как правильно написать оператор StrToInt ?
if (id_priznzam = '1')  then SQLExecute ('INSERT INTO res (res_max, id_mod_print)  VALUES(' + IntToStr(pok_max)+', ' + StrToInt(idmodprint)+')')

+ IntToStr()+ - Тут Вы переводите из числового в строковое

+ StrToInt()+ Тут Вы переводите из строкового в числовое

Integer - целые числа

String - строковая переменная

Andrei · 2019-08-07 07:40:21

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

+ IntToStr()+ - Тут Вы переводите из числового в строковое
+ StrToInt()+ Тут Вы переводите из строкового в числовое

Integer - целые числа
String - строковая переменная

Спасибо. Вкурил в чем проблема.
Вопрос закрыт. Правильное написание

if (id_priznzam = '1')  then SQLExecute ('INSERT INTO res (res_max, id_mod_print)  VALUES(' + IntToStr(pok_max)+', ''' +idmodprint+ ''')')

Andrei · 2019-08-08 06:43:42

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Здравствуйте.
Вылетает при выполнении скрипта

procedure formOth_printDisplay_Button7_OnClick (Sender: TObject; Action: string);
 begin

        formOth_printDisplay.Button7.dbSQL :=   ' SELECT id_mod_print, count(*) '+
                                                   ' FROM res '+
                                                   ' LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print '+
                                                   ' group by id_mod_print ';

              formOth_printDisplay.Button7.Click;
end;

В тоже время SQL запрос в этой кнопке отрабатывает

SELECT id_mod_print, count(*) 
FROM res 
LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print 
group by id_mod_print

DriveSoft · 2019-08-08 10:18:13

DriveSoft
Administrator
Offline

Registered: 2014-02-14
Posts: 10,294

Re: Проблемы с синтаксисом.

Зачем то в событии кнопки OnClick вы вызываете метод Click, это приводит к бесконечному циклу, просто уберите эту строку

formOth_printDisplay.Button7.Click;

Dmitry.

Andrei · 2019-08-23 11:39:24

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Добрый день.

procedure FrmOth1_Button11_OnClick (Sender: TObject; var Cancel: boolean);
begin
       if (not isAdmin) and (not isAdminFKU) and (idDepartament<>0)then
       frmOth1.Button11.dbSQL :=   ' SELECT mod_print.name, '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 2 where t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 3 where t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 4 where t1.id_departament= '+ IntToStr(idDepartament) +') '+
                                    ' FROM res LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print '+
                                    ' group BY id_mod_print  ORDER by id_Priznzam '+
   ELSE
        frmOth1.Button11.dbSQL := ' SELECT mod_print.name, '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 2), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 3), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 4) '+
                                    ' FROM res LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print '+
                                    ' group BY id_mod_print  ORDER by id_Priznzam ';

    end;

вторая часть скрипта после ELSE отрабатывает.
Первая часть дает ошибку синтаксиса

  frmOth1.Button11.dbSQL :=   ' SELECT mod_print.name, '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 2 where t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 3 where t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 4 where t1.id_departament= '+ IntToStr(idDepartament) +') '+
                                    ' FROM res LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print '+
                                    ' group BY id_mod_print  ORDER by id_Priznzam '+

sibprogsistem · 2019-08-23 16:03:30

sibprogsistem
Member
Offline

From: Нефтеюганск
Registered: 2018-04-11
Posts: 1,775

Re: Проблемы с синтаксисом.

нужен проект, так не понятно

Andrei · 2019-08-26 12:49:18

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Спасибо.
Нашел ошибку.

frmOth1.Button11.dbSQL :=   ' SELECT mod_print.name, '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 2 AND t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 3 AND t1.id_departament= '+ IntToStr(idDepartament) +'), '+
                                    ' (SELECT COUNT(*) FROM res t1 WHERE t1.id_mod_print = res.id_mod_print AND t1.id_Priznzam = 4 AND t1.id_departament= '+ IntToStr(idDepartament) +') '+
                                    ' FROM res LEFT OUTER JOIN mod_print ON mod_print.id=res.id_mod_print '+
                                    ' group BY id_mod_print  ORDER by id_Priznzam '+

Andrei · 2020-05-14 07:23:06

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Здравствуйте.
Не могу понять в чем дело. Программа ругается именно на синтаксис...
Action Sql запрос Button2

select distinct b.vhod_data, c.sprav_zapros, a.data, a.numer
from sprav a
join zapros b on a.id_zapros=b.id
join sprav_zapros c on a.id_sprav_zapros=c.id
where b.id = '+ intToStr(idzapr)

Ругается на '+ intToStr(idzapr)
idzapr: integer; глобальная
на форме по другой кнопке Button1 запись проходит (переменная в памяти) рабочий скрипт
SQLExecute('INSERT INTO sprav (id_zapros) VALUES (''' +IntToStr(idzapr)+''')');

CDB · 2020-05-14 09:49:16

CDB
Member
Offline

Registered: 2019-12-16
Posts: 370

Re: Проблемы с синтаксисом.

Try the amended code below.

('select distinct b.vhod_data, c.sprav_zapros, a.data, a.numer' + 'from sprav a join zapros b on a.id_zapros=b.id join sprav_zapros c on a.id_sprav_zapros=c.id where b.id ="'+ intToStr(idzapr)+'"')

On a clear disk you can seek forever

Andrei · 2020-05-14 10:26:48

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Спасибо. Код отработал.

Andrei · 2020-05-18 14:27:46

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Здравствуйте.
Как правильно прописать запись значения DateTimePicker4?

 procedure Form_Main_1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
   begin
   SQLExecute('INSERT INTO zapros (otvet_data, otvet_numer) VALUES ('''+Form_Main_1.DateTimePicker4.sqldate+''', '''+form_Main_1.Edit3.Text+''') WHERE ('''+IntToStr(idZapr)+''')');
end;

Ошибка в SQL запросе
SQLExecute('INSERT INTO zapros (otvet_data, otvet_numer) VALUES (''2020-05-17 00:00:00.000'', '28/0569') WHERE ('20')

sibprogsistem · 2020-05-18 16:56:53

sibprogsistem
Member
Offline

From: Нефтеюганск
Registered: 2018-04-11
Posts: 1,775

Re: Проблемы с синтаксисом.

попробуйте так

procedure Form_Main_1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
tDate : string = FormatDateTime('yyyy-mm-dd',Form_Main_1.DateTimePicker4.DateTime);
begin
   SQLExecute('INSERT INTO zapros (otvet_data, otvet_numer) VALUES ('''+tDate+''', '''+form_Main_1.Edit3.Text+''') WHERE ('''+IntToStr(idZapr)+''')');
end;

Andrei · 2020-05-21 13:02:21

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Здравствуйте.
Ругается на a.otvet_data = is Null.
Пробовал a.otvet_data = '' так же выходит ошибка

procedure Form_oth_Button6_OnClick (Sender: TObject; var Cancel: boolean);
     begin
           if (not isAdmin) then
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null and  a.id_departament = '+ inttostr (iddepartament) +
                                else
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null ';

end;

Скрипт в MySQL проходит без ошибок.

select distinct a.id, b.name, a.otvet_data, a.otvet_numer  
from zapros a            
join departament b on a.id_departament=b.id
where a.otvet_data IS NULL

adiziktdy · 2020-05-22 09:38:15

adiziktdy
Member
Offline

Registered: 2018-02-02
Posts: 134

Re: Проблемы с синтаксисом.

Andrei wrote:

Здравствуйте.
Ругается на a.otvet_data = is Null.
Пробовал a.otvet_data = '' так же выходит ошибка

procedure Form_oth_Button6_OnClick (Sender: TObject; var Cancel: boolean);
     begin
           if (not isAdmin) then
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null and  a.id_departament = '+ inttostr (iddepartament) +
                                else
         Form_oth.Button6.dbSQL :=   'distinct a.id, b.name,  a.vhod_numer, a.vhod_data, a.otvet_data, a.otvet_numer '+
                                'from zapros a '+
                                'join departament b on a.id_departament=b.id '+
                                 'where a.otvet_data = is Null ';

end;

Скрипт в MySQL проходит без ошибок.

select distinct a.id, b.name, a.otvet_data, a.otvet_numer  
from zapros a            
join departament b on a.id_departament=b.id
where a.otvet_data IS NULL

знак равенства нужно убрать
where a.otvet_data = is Null

Yana

Andrei · 2020-05-25 10:30:01

Andrei
Member
Offline

From: Волгоград
Registered: 2017-10-04
Posts: 166

Re: Проблемы с синтаксисом.

Все намного проще.
я select пропустил.

Проблемы с синтаксисом.

Posts: 18

1 Topic by Andrei 2019-08-06 05:57:08

Topic: Проблемы с синтаксисом.

2 Reply by DriveSoft 2019-08-06 08:06:14

Re: Проблемы с синтаксисом.

3 Reply by Andrei 2019-08-07 05:59:54

Re: Проблемы с синтаксисом.

4 Reply by sibprogsistem 2019-08-07 07:25:07

Re: Проблемы с синтаксисом.

5 Reply by Andrei 2019-08-07 07:40:21

Re: Проблемы с синтаксисом.

6 Reply by Andrei 2019-08-08 06:43:42 (edited by Andrei 2019-08-08 06:44:46)

Re: Проблемы с синтаксисом.

7 Reply by DriveSoft 2019-08-08 10:18:13

Re: Проблемы с синтаксисом.

8 Reply by Andrei 2019-08-23 11:39:24

Re: Проблемы с синтаксисом.

9 Reply by sibprogsistem 2019-08-23 16:03:30

Re: Проблемы с синтаксисом.

10 Reply by Andrei 2019-08-26 12:49:18

Re: Проблемы с синтаксисом.

11 Reply by Andrei 2020-05-14 07:23:06

Re: Проблемы с синтаксисом.

12 Reply by CDB 2020-05-14 09:49:16

Re: Проблемы с синтаксисом.

13 Reply by Andrei 2020-05-14 10:26:48

Re: Проблемы с синтаксисом.

14 Reply by Andrei 2020-05-18 14:27:46

Re: Проблемы с синтаксисом.

15 Reply by sibprogsistem 2020-05-18 16:56:53 (edited by sibprogsistem 2020-05-18 16:57:27)

Re: Проблемы с синтаксисом.

16 Reply by Andrei 2020-05-21 13:02:21

Re: Проблемы с синтаксисом.

17 Reply by adiziktdy 2020-05-22 09:38:15

Re: Проблемы с синтаксисом.

18 Reply by Andrei 2020-05-25 10:30:01

Re: Проблемы с синтаксисом.

Posts: 18