Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 01.08.2017
Сообщений: 19

Не выполняется SQL-запрос

12.12.2017, 17:10. Показов 907. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите, не выполняется sql зарос по кнопке.
Delphi
1
2
3
4
5
6
7
8
9
procedure TMainForm.Button1Click(Sender: TObject);
begin
  
  ADOQuery1.SQL.Clear;
 
  ADOQuery1.SQL.Add('SELECT DISTINCT fl.fl_lname+" "+fl.fl_fname+" "+fl.fl_mname AS [Фамилия Имя Отчество], fl.fl_dr AS [Дата рождения], fl.fl_mrojd AS [Место рождения], fl.fl_pindex+", "+fl.fl_codereg+", "+fl.fl_kray+", "+fl.fl_rayon+" ,"+fl.fl_gorod+" ,"+fl.fl_ul+", "+fl.fl_dom+", "+fl.fl_kvar AS [Место жительства], doc.doc_name AS [Вид документа], fl.fl_docseria AS Серия, fl.fl_docsn AS Номер, fl.fl_inn AS ИНН, fl.fl_vydankogda AS [Когда выдан], fl.fl_vydankem AS [Кем выдан], fl.fl_mrab AS [Место работы], fl.fl_dolj AS Должность, fl.fl_rtel AS [Рабочий телефон], fl.fl_tel AS [Домашний телефон], reg.reg_regn AS [Регистрационный №], reg.reg_datzapkart AS [Дата регистрации], sud.sud_model AS [Модель судна], sud.sud_name AS [Название судна], sud.sud_godvyp AS [Год выпуска], tip.tip_name AS [Тип судна], reg.reg_mestostoy AS [Место стоянки], sb.sb_nom AS [Номер судового билета], sb.sb_datavyd AS [Дата выдачи судового билета], sb.sb_dolyasobstv AS [Доля собственности], pr.pr_nudost AS Удостоверение, pr.pr_datvid AS [Дата выдачи], tipprav.tipprav_name AS [Тип прав], fl.fl_lname+" "+fl.fl_fname+" "+fl.fl_mname AS ФИО, fl.fl_dr AS ДР FROM ((((((fl LEFT JOIN sb ON fl.fl_guid = sb.sb_fl_guid) LEFT JOIN reg ON (((sb.sb_reg_guid) = reg.reg_guid) and ((reg.reg_datasnsuchet)) is null) and ((reg.reg_regn)) is not null) LEFT JOIN sud ON reg.reg_sud_guid = sud.sud_guid) LEFT JOIN pr ON (((fl.fl_guid) = pr.pr_fl_guid) and ((pr.pr_dataactual)) is null) and ((pr.pr_nudost)) is not null) LEFT JOIN tipprav ON pr.pr_tipprav_id = tipprav.tipprav_id) LEFT JOIN tip ON sud.sud_tip = tip.tip_id) LEFT JOIN doc ON fl.fl_viddoc = doc.doc_id');
 
ADOQuery1.Open;
end;
Выдает ошибку [dcc32 Fatal Error] Main.pas(98): F2069 Line too long (more than 1023 characters)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.12.2017, 17:10
Ответы с готовыми решениями:

Не выполняется SQL-запрос в делфи
Доброе время суток! У меня возникла след ошибка:при нажатии на кнопку страница должен выполниться запрос и отобразиться список покупателей,...

SQL-запрос долго выполняется (INSERT)
ПРочитал много, так и не нашел вразумительного ответа... Может кто чем поможет. В общем, при добавлении в таблицу очень долго, порядка 3-х...

Не выполняется сложный SQL-запрос (возвращает пустую таблицу)
Всем доброго времени суток. Возникла проблема со сложным запросом (вложенный Select). Суть в том, что в Accesse он выполняется и...

6
4217 / 3059 / 583
Регистрация: 21.01.2011
Сообщений: 13,205
12.12.2017, 17:13
Цитата Сообщение от Bac911 Посмотреть сообщение
Line too long (more than 1023 characters)
Тебе надо перевести сообщение об ошибке?
0
0 / 0 / 0
Регистрация: 01.08.2017
Сообщений: 19
12.12.2017, 17:20  [ТС]
длина запроса превышена как обойти?
0
4217 / 3059 / 583
Регистрация: 21.01.2011
Сообщений: 13,205
12.12.2017, 17:25
Цитата Сообщение от Bac911 Посмотреть сообщение
как обойти
Попробуй разбить на несколько частей с несколькими ADOQuery1.SQL.Add.
1
0 / 0 / 0
Регистрация: 01.08.2017
Сообщений: 19
12.12.2017, 17:28  [ТС]
если использовать FD вместо ADO тоже будет выдавать превышение символов?
0
1075 / 988 / 340
Регистрация: 07.08.2012
Сообщений: 2,790
12.12.2017, 17:43
Bac911, Ну прав Grossmeister. Такая длинная строка Дельфи не нравиться.
Нет ничего проще разделить эту длинную строку на нужное количество строк. Чтобы, во-первых, текст запроса был более читабельным, во вторых, чтобы Дельфи не возникала.
В тексте, к тому же, есть повторения (один к одному с разными псевдонимами). А так же абсолютно не нужные псевдонимы.
Как обойти превышение длины строки? Просто:
Delphi
1
2
3
4
5
    ADOQuery1.SQL.Text := 'SELECT DISTINCT fl.fl_lname+" "+fl.fl_fname+" "+fl.fl_mname AS ФИО, fl.fl_dr, fl.fl_mrojd, '+
          'fl.fl_pindex+", "+fl.fl_codereg+", "+fl.fl_kray+", "+fl.fl_rayon+" ,"+fl.fl_gorod+" ," '+
          'fl.fl_ul+", "+fl.fl_dom+", "+fl.fl_kvar AS [Место жительства], '+
          'doc.doc_name AS [Вид документа], fl.fl_docseria, '+
          ... и т.д.
1
5647 / 4489 / 1089
Регистрация: 29.08.2013
Сообщений: 27,977
Записей в блоге: 3
12.12.2017, 20:38
Цитата Сообщение от Bac911 Посмотреть сообщение
если использовать FD вместо ADO
не "если", а обязательно
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.12.2017, 20:38
Помогаю со студенческими работами здесь

Не выполняется запрос
Здравствуйте, у меня не выполняется запрос на поиск в БД Access с помощью LIKE Запрос верный, т.к. если его выполнять в самой БД, то он...

Не выполняется запрос
здраствуйте, у меня база на акссе подключена через ADO. имееться такой фрагмент кода: procedure TForm1.Button1Click(Sender:...

Не правильно выполняется запрос
СУБД firebrid добавляю запись в базу S:='insert into dela '+' (delo)'+ 'values (:delo)'; with ibQuery1 do begin close;...

Не выполняется запрос на фильтрацию
Доброе время суток. Пишу приложение которое формирует отчет под данным с таблицы .dbf, работаю через bde. В таблице у каждой записи есть...

Не выполняется SQL запрос
Есть обработчик события нажатия кнопки, в котором выполняется следующий код: protected void btn_save_work_time_Click(object sender,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
JWT аутентификация в ASP.NET Core
UnmanagedCoder 18.06.2025
Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С#
aaLeXAA 18.06.2025
Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
С днём независимости России!
Hrethgir 13.06.2025
Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг.
kumehtar 13.06.2025
Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
OSZAR »