Вылет при <TSQLQuery>.Locate() [РЕШЕНО]

[sign]

Сломал голову, в полном тупике.

Вот тут

Код: Выделить всё

if qSponsor.Locate('NNPCTO', k, []) then begin

если k таково, что записи с таким значением поля в базе нет, то

Код: Выделить всё

Проект вызвал класс исключений 'External: SIGSEGV'

Куда копать и где рыть?
Причём, на других запросах такого безобразия нет, Locate отвечает «да» или «нет», по успеху или неуспеху запроса.

Сам запрос:

Код: Выделить всё

qSponsor: TSQLQuery;  (TmySQL50Connection)

SELECT L.Un, R.NNPCTO, R.NNPCTO_Sponsor, R.CIINS, R.CIINS_Sponsor,
       M0.SNNPCTO as SN0, M0.SVirta as SV0, M0.SCIINS as SC0, L.FIO
FROM list L
  LEFT JOIN reg R ON L.Un = R.Un
  LEFT JOIN (SELECT  Un, EXTRACT(YEAR FROM DateOp) AS Yr0,
      EXTRACT(Month FROM DateOp) AS Mn0,  SUM(BallNNPCTO*CountBuy) As SNNPCTO,
      SUM(BallVirta*CountBuy) As Svirta, SUM(BallCIINS*CountBuy) As SCIINS
      FROM move0
      WHERE EXTRACT(YEAR FROM DateOp)= :Yr and EXTRACT(Month FROM DateOp) = :Mn
      GROUP BY Un, Yr0, Mn0
      ORDER BY Un) M0 ON L.Un = M0.Un
ORDER BY R.NNPCTO


База - MySQL

Лазарус #: 0.9.31
FPC: 2.4.4
SVN: 31775
i386-win32
Windows XP

[Ism]

Похоже на очевидный баг. Попробуйте задать опции TLocateOptions, например loPartialKey.

Попробуйте if (qSponsor.Locate('NNPCTO', k, [])) then begin скобки чисто в качестве бубна, но иногда срабатывает

возможно qSponsor.Locate('NNPCTO', k, []) возвращает null вместо false, надо посмотреть документацию.

А вообще странно. Может какие то непечатные символы в базе мистику наводят.

[sign]

Похоже на очевидный баг. Попробуйте задать опции TLocateOptions, например loPartialKey.

Завтра на работе попробую. Хотя, к числам оно как-то..., ну всё равно, проверю.

Попробуйте if (qSponsor.Locate('NNPCTO', k, [])) then begin скобки чисто в качестве бубна, но иногда срабатывает

И это попробую.

возможно qSponsor.Locate('NNPCTO', k, []) возвращает null вместо false, надо посмотреть документацию.

Хм. В других запросах всё ОК.

А вообще странно. Может какие то непечатные символы в базе мистику наводят.

Попробую перегнать базу.

Спасибо за советы.

Добавлено спустя 23 часа 55 минут 45 секунд:
Записал один из файлов (list) в форме SQL, очистил таблицу (truncate), выполнил SQL.
Всё, ошибки нет.