Апостроф

collagen · 2018-03-26 19:47:18

collagen
Member
Offline

Registered: 2017-08-26
Posts: 42

Topic: Апостроф

Здравствуйте! Есть вопрос по апострофу:
1. Если в скрипте перед закрывающим апострофом находится буква я, то окрашивается синим весь последующий скрипт, причем, если букв я две или больше - последующий скрипт не синеет (например: посинеет - 'запрос ... я', не посинеет - 'запрос ... яяяя').
2. Имеем Edit с подключенным SQL-поиском по всем полям. Если у клиента фамилия' с апострофом получаем ошибку: near "'%'": syntax error. И соответственно ошибочний запрос с нашим "лишним" апострофом:

(CASE WHEN '{фамилия}' <> '' THEN klientprizvimja LIKE '%{фамилия'}%'  ELSE 1=1 END) OR

Очень хочется побороть ошибку.
Заранее благодарю.

iacovlogica · 2018-03-27 07:05:56

iacovlogica
Member
Offline

From: Краснодарский край Крымск
Registered: 2015-09-22
Posts: 121

Re: Апостроф

Проблема в стороннем компоненте , который Дмитрий полагаю в будущем заменит .
апостроф Вы зря вписали , уберите его а на то что скрипт синеет просто не обращайте внимания он полностью работоспособен .
Вид скрипта ,конечно, необычен но на работу не влияет . Как временное решение можете добавить пробел после буквы Я(или временно поставить другую букву) , а в окончательной версии его уберёте(замените букву) .(как я делал)

п.с. Не рекомендую использовать русские буквы в названиях компонентов ( ...правда это очень удобно )

collagen · 2018-03-27 20:21:41

collagen
Member
Offline

Registered: 2017-08-26
Posts: 42

Re: Апостроф

Все-таки надеемся на исправление, пока что вместо апострофа в фамилии используем двойные кавычки. В коде выше приведена выдержка из сообщения с ошибкой, а там имя компонента заменяется введенным текстом (как по мне так для компонентов нет лучше, чем стандартные имена:)). А синенькое решается дополнительным пробелом, просто, несколько, отвлекает.

DriveSoft · 2018-03-28 11:49:40

DriveSoft
Administrator
Offline

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

Re: Апостроф

collagen wrote:

2. Имеем Edit с подключенным SQL-поиском по всем полям. Если у клиента фамилия' с апострофом получаем ошибку: near "'%'": syntax error. И соответственно ошибочний запрос с нашим "лишним" апострофом:
(CASE WHEN '{фамилия}' <> '' THEN klientprizvimja LIKE '%{фамилия'}%'  ELSE 1=1 END) OR
Очень хочется побороть ошибку.
Заранее благодарю.

Спасибо за найденую ошибку, исправил, скачайте пожалуйста последнюю версию
https://www.dropbox.com/s/5x7vjreoju45z … a.zip?dl=0

Dmitry.

Evgeniy D · 2018-03-29 04:08:17

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

Чето половина таблиц стала ругаться после этого обновления, посыпались ошибки, где предыдущую версию можно скачать

iacovlogica · 2018-03-29 05:15:30

iacovlogica
Member
Offline

From: Краснодарский край Крымск
Registered: 2015-09-22
Posts: 121

Re: Апостроф

http://myvisualdatabase.com/download/myvisualdb.exe

Evgeniy D · 2018-03-29 05:56:35

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

При компилировании в последней версии стала выпадать ошибка (см. вложение).
(в предыдущей версии такой ошибки небыло)
скорее всего по другому стал определятся код в редакторе.

кодом формировал условие WHERE в текстовом поле и подствлял в SQL запросе по заполнению таблицы.
код такой

procedure All_koresp_Button10_OnClick (Sender: string; var Cancel: boolean);  // В зависимости от введенных данных в поиске формируем условие WHERE в SQL запросе
begin
     All_koresp.Edit11.Text := '';
     if All_koresp.ComboBox1.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'kan_grup.id_kan_tip= {ComboBox1} AND ';
     if All_koresp.ComboBox2.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.id_kan_grup= {ComboBox2} AND ';
     if All_koresp.ComboBox3.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.id_organization={ComboBox3} AND ';
     if All_koresp.Edit6.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.god_docum LIKE ''{Edit6}'' AND '; 
     if All_koresp.Edit8.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';
     if All_koresp.Edit7.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.kr_soder LIKE ''%{Edit7}%'' AND ';
     if All_koresp.Edit9.Text <> '' Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.Reg_nom_otprav LIKE ''%{Edit9}%'' AND ';

     if All_koresp.CheckBox1.State = cbChecked Then
     begin
     All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.Ob_prosm=1'
     end;

     if All_koresp.CheckBox1.State = cbUnchecked Then
     begin
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text <> '') Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + '((documentiki.DP1 LIKE ''{Edit3}'' AND documentiki.DP2 LIKE ''{Edit4}'') OR (documentiki.PP1 LIKE ''{Edit3}'' AND documentiki.PP2 LIKE ''{Edit4}''))';
     if (All_koresp.Edit3.Text = '') and (All_koresp.Edit4.Text = '') Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + '1=1';
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text = '') Then All_koresp.Edit11.Text := All_koresp.Edit11.Text + '(documentiki.DP1 LIKE ''{Edit3}'' OR documentiki.PP1 LIKE ''{Edit3}'')';
     end;
end;

Ругается скорее всего по текстовым полям кавычки стоят, может теперь по другому надо использовать

Post's attachments

er2.rar 80.73 kb, 315 downloads since 2018-03-29

DriveSoft · 2018-03-29 10:34:22

DriveSoft
Administrator
Offline

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

Re: Апостроф

Evgeniy D
Не смог найти ошибку, приложите пожалуйста ваш проект, протестирую.

Dmitry.

Evgeniy D · 2018-03-29 11:44:31

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

DriveSoft wrote:

Evgeniy D
Не смог найти ошибку, приложите пожалуйста ваш проект, протестирую.

ссылка на проект https://yadi.sk/d/jmAVXvO-3TsiDE
Вряд ли поможет, проект большой, база на MySQL.
Форма - All_koresp
Кнопка формирования условия - Button10
Кнопка SQL запроса - Button9

Можно ли раннюю версию программы еще раз выложить которую здесь давали http://myvisualdatabase.com/forum/viewtopic.php?id=4155

Evgeniy D · 2018-03-30 11:23:12

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

С апострофом заметил следующее
допустим условие WHERE для SQL запроса формируется у меня так:

All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.god_docum LIKE ''{Edit6}'' AND ';

Потом в SQL запросе подставляю сформированное условие:

WHERE {Edit11}

после SQL условие выглядит так:

WHERE documentiki.god_docum LIKE ''2018''

Тоже самое сделал с кнопкой поиск и посмотрел каким SQL запросом сформирована таблица показало такое условие

WHERE `documentiki`.`god_docum` LIKE '2018'

т.е. разница в двух кавычках, это после обновления программы так стало. Может это и является проблемой? Подскажите как поправить можно в моем формировании условия:

All_koresp.Edit11.Text := All_koresp.Edit11.Text + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';

DriveSoft · 2018-04-02 13:36:46

DriveSoft
Administrator
Offline

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

Re: Апостроф

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

procedure All_koresp_Button10_OnClick (Sender: string; var Cancel: boolean);  // В зависимости от введенных данных в поиске формируем условие WHERE в SQL запросе
var
    s, sWhere: string;
begin
     sWhere := '';
     if All_koresp.ComboBox1.Text <> '' Then sWhere := sWhere + 'kan_grup.id_kan_tip= {ComboBox1} AND ';
     if All_koresp.ComboBox2.Text <> '' Then sWhere := sWhere + 'documentiki.id_kan_grup= {ComboBox2} AND ';
     if All_koresp.ComboBox3.Text <> '' Then sWhere := All_koresp.Edit11.Text + 'documentiki.id_organization={ComboBox3} AND ';
     if All_koresp.Edit6.Text <> '' Then sWhere := sWhere + 'documentiki.god_docum LIKE ''{Edit6}'' AND ';
     if All_koresp.Edit8.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';
     if All_koresp.Edit7.Text <> '' Then sWhere := sWhere + 'documentiki.kr_soder LIKE ''%{Edit7}%'' AND ';
     if All_koresp.Edit9.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom_otprav LIKE ''%{Edit9}%'' AND ';

     if All_koresp.CheckBox1.State = cbChecked Then
     begin
         sWhere := sWhere + 'documentiki.Ob_prosm=1'
     end;

     if All_koresp.CheckBox1.State = cbUnchecked Then
     begin
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text <> '') Then sWhere := sWhere + '((documentiki.DP1 LIKE ''{Edit3}'' AND documentiki.DP2 LIKE ''{Edit4}'') OR (documentiki.PP1 LIKE ''{Edit3}'' AND documentiki.PP2 LIKE ''{Edit4}''))';
     if (All_koresp.Edit3.Text = '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '1=1';
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '(documentiki.DP1 LIKE ''{Edit3}'' OR documentiki.PP1 LIKE ''{Edit3}'')';
     end;

     s := All_koresp.Button9.dbSQL;
     s := ReplaceStr(s, '{Edit11}', sWhere);
     All_koresp.Button9.dbSQL := s;
end;

Dmitry.

Evgeniy D · 2018-04-03 10:00:49

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

DriveSoft wrote:

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

procedure All_koresp_Button10_OnClick (Sender: string; var Cancel: boolean);  // В зависимости от введенных данных в поиске формируем условие WHERE в SQL запросе
var
    s, sWhere: string;
begin
     sWhere := '';
     if All_koresp.ComboBox1.Text <> '' Then sWhere := sWhere + 'kan_grup.id_kan_tip= {ComboBox1} AND ';
     if All_koresp.ComboBox2.Text <> '' Then sWhere := sWhere + 'documentiki.id_kan_grup= {ComboBox2} AND ';
     if All_koresp.ComboBox3.Text <> '' Then sWhere := All_koresp.Edit11.Text + 'documentiki.id_organization={ComboBox3} AND ';
     if All_koresp.Edit6.Text <> '' Then sWhere := sWhere + 'documentiki.god_docum LIKE ''{Edit6}'' AND ';
     if All_koresp.Edit8.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';
     if All_koresp.Edit7.Text <> '' Then sWhere := sWhere + 'documentiki.kr_soder LIKE ''%{Edit7}%'' AND ';
     if All_koresp.Edit9.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom_otprav LIKE ''%{Edit9}%'' AND ';

     if All_koresp.CheckBox1.State = cbChecked Then
     begin
         sWhere := sWhere + 'documentiki.Ob_prosm=1'
     end;

     if All_koresp.CheckBox1.State = cbUnchecked Then
     begin
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text <> '') Then sWhere := sWhere + '((documentiki.DP1 LIKE ''{Edit3}'' AND documentiki.DP2 LIKE ''{Edit4}'') OR (documentiki.PP1 LIKE ''{Edit3}'' AND documentiki.PP2 LIKE ''{Edit4}''))';
     if (All_koresp.Edit3.Text = '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '1=1';
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '(documentiki.DP1 LIKE ''{Edit3}'' OR documentiki.PP1 LIKE ''{Edit3}'')';
     end;

     s := All_koresp.Button9.dbSQL;
     s := ReplaceStr(s, '{Edit11}', sWhere);
     All_koresp.Button9.dbSQL := s;
end;

Помогло для первой сортировки, при дальнейшем выборе критериев сортировки в коде

s := All_koresp.Button9.dbSQL;
     s := ReplaceStr(s, '{Edit11}', sWhere);
     All_koresp.Button9.dbSQL := s;

'{Edit11}' уже нет в тексте полученным

s := All_koresp.Button9.dbSQL;

а содержит уже предыдущее значение s

DriveSoft · 2018-04-03 10:04:46

DriveSoft
Administrator
Offline

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

Re: Апостроф

Точно. Можно запомнить SQL запрос, затем восстановить его первоначальный вид после исполнения запроса

procedure All_koresp_Button10_OnClick (Sender: string; var Cancel: boolean);  // В зависимости от введенных данных в поиске формируем условие WHERE в SQL запросе
var
    s, sWhere: string;
    sSQL: string;
begin
     sSQL := All_koresp.Button9.dbSQL;
     sWhere := '';
     if All_koresp.ComboBox1.Text <> '' Then sWhere := sWhere + 'kan_grup.id_kan_tip= {ComboBox1} AND ';
     if All_koresp.ComboBox2.Text <> '' Then sWhere := sWhere + 'documentiki.id_kan_grup= {ComboBox2} AND ';
     if All_koresp.ComboBox3.Text <> '' Then sWhere := All_koresp.Edit11.Text + 'documentiki.id_organization={ComboBox3} AND ';
     if All_koresp.Edit6.Text <> '' Then sWhere := sWhere + 'documentiki.god_docum LIKE ''{Edit6}'' AND ';
     if All_koresp.Edit8.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';
     if All_koresp.Edit7.Text <> '' Then sWhere := sWhere + 'documentiki.kr_soder LIKE ''%{Edit7}%'' AND ';
     if All_koresp.Edit9.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom_otprav LIKE ''%{Edit9}%'' AND ';

     if All_koresp.CheckBox1.State = cbChecked Then
     begin
         sWhere := sWhere + 'documentiki.Ob_prosm=1'
     end;

     if All_koresp.CheckBox1.State = cbUnchecked Then
     begin
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text <> '') Then sWhere := sWhere + '((documentiki.DP1 LIKE ''{Edit3}'' AND documentiki.DP2 LIKE ''{Edit4}'') OR (documentiki.PP1 LIKE ''{Edit3}'' AND documentiki.PP2 LIKE ''{Edit4}''))';
     if (All_koresp.Edit3.Text = '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '1=1';
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '(documentiki.DP1 LIKE ''{Edit3}'' OR documentiki.PP1 LIKE ''{Edit3}'')';
     end;

     s := All_koresp.Button9.dbSQL;
     s := ReplaceStr(s, '{Edit11}', sWhere);
     All_koresp.Button9.dbSQL := s;
     All_koresp.Button9.Click;
     All_koresp.Button9.dbSQL := sSQL;
end;

Dmitry.

Evgeniy D · 2018-04-03 10:46:38

Evgeniy D
Member
Offline

Registered: 2015-10-09
Posts: 115

Re: Апостроф

ОК, Сенкс заработало. Немного комбобоксы по другому стали отрабатывать, но вполне нормально.

Апостроф

Posts: 14

1 Topic by collagen 2018-03-26 19:47:18

Topic: Апостроф

2 Reply by iacovlogica 2018-03-27 07:05:56 (edited by iacovlogica 2018-03-27 07:10:33)

Re: Апостроф

3 Reply by collagen 2018-03-27 20:21:41

Re: Апостроф

4 Reply by DriveSoft 2018-03-28 11:49:40

Re: Апостроф

5 Reply by Evgeniy D 2018-03-29 04:08:17

Re: Апостроф

6 Reply by iacovlogica 2018-03-29 05:15:30

Re: Апостроф

7 Reply by Evgeniy D 2018-03-29 05:56:35

Re: Апостроф

8 Reply by DriveSoft 2018-03-29 10:34:22

Re: Апостроф

9 Reply by Evgeniy D 2018-03-29 11:44:31

Re: Апостроф

10 Reply by Evgeniy D 2018-03-30 11:23:12

Re: Апостроф

11 Reply by DriveSoft 2018-04-02 13:36:46

Re: Апостроф

12 Reply by Evgeniy D 2018-04-03 10:00:49

Re: Апостроф

13 Reply by DriveSoft 2018-04-03 10:04:46

Re: Апостроф

14 Reply by Evgeniy D 2018-04-03 10:46:38

Re: Апостроф

Posts: 14