Процедура по очистке SQL по запросу SELECT от ошибок синтаксиса.

Очистка SQL от ошибок синтаксиса.

procedure SQLCleaner;
var
newSql:string;
begin
newSql:=Query1.SQL.CommaText;
while (pos('WHERE AND',newSQL))0 do begin
delete(newSQL,pos('WHERE AND',newSQL)+6,3);
end;
while (pos('WHERE Order by',newSQL))0 do begin
delete(newSQL,pos('WHERE Order by',newSQL),5);
end;{ASD}
while (pos('WHERE AND',newSQL))0 do begin
delete(newSQL,pos('WHERE AND',newSQL)+6,3);
end;
while (pos('Order by ,',newSQL))0 do begin
delete(newSQL,pos('Order by ,',newSQL)+9,1);
end;
if (pos('WHERE',newSQL)+8)>(length(newSQL)) then delete(newSQL,pos('WHERE',newSQL),5);
if (pos('Order by',newSQL)+11)>(length(newSQL)) then delete(newSQL,pos('Order by',newSQL),8);
Query1.Clear;
Query1.SQl.Add(newSql);
end;

Базы данных   Теги:



Редакция портала:

Благодарим за просмотр этой информации на нашем компьютерном портале. Надеемся, что обзор Очистка SQL от ошибок синтаксиса., в разделе Базы данных вам понравился. Есть небольшая рекомендация, если вы хотите быть в курсе всех событий сферы информационных технологий, то рекомендуем зарегистрироваться на портале www.stfw.ru.


Живая лента

•  Рецензия на фильм «Счастливый день смерти 2» / Happy Death Day 2U - 17.02.2019: STFW.Ru: «Счастливый день смерти 2» вместо ожидаемого и слишком предсказуемого


•  Эрдоган подтвердил, что Турция не намерена отказываться от покупки С-400 (По словам турецкого президента, Анкара "также интересуется новыми комплексами С-500") - 17.02.2019: STFW.Ru: Президент Турции Тайип Эрдоган подтвердил, что Анкара не намерена


•  Тест-драйв Subaru Forester 2019: большие надежды, но и спрос высок! - 17.02.2019: STFW.Ru: Признаться, мое отношение к Subaru Forester особенное: предшественник удивил в тех


•  Опубликован рейтинг украинских интернет-провайдеров по скорости и качеству доступа к сети, лидируют «Ланет», «Триолан» и «O3» - 17.02.2019: STFW.Ru: Французская компания nPerf, которая специализируется на измерении скорости и


•  General Motors представил пару электровелосипедов ARIV Meld и Merge, их продажи стартуют в Европе по цене €2,8 тыс. и €3,4 тыс. соответственно - 17.02.2019: STFW.Ru: В ноябре прошлого года американский автопроизводитель General Motors объявил


•  Украинские фашисты сорвали показ блокбастера "Т-34" в пригороде Бостона - 17.02.2019: STFW.Ru: В кинотеатре в пригороде Бостона отменили показ российского блокбастера