Search options (Page 4 of 10)

Дмитрий,
А как можно получить множество всех компонентов на форме, которые являются датами?
Тогда можно для всех них поменять формат, а не писать код для каждой даты.

Функцию OnSQLException отключил.
По прежнему иногда приложение просто закрывается без выдачи каких-либо сообщений в момент когда идет обращение к базе (открытие формы с данными).
.
Кстати, если просто выдернуть шнур сетевой карты, то появляется такая ошибка:

Application can not reconnect to MySQL server.
Error message:
Lost connection to MySQL server during query
Error on data reading from the connection:
������� ���������� ���������� ���� �����������, �.�. �� ������� ���������� �� ��������� ����� �� ������� ������ ������, ��� ���� ��������� ��� ������������� ���������� ��-�� ��������� ������� ��� ������������� ����������.

Socket Error Code: 10060($274C)

Т.е. программа нормально обрабатывает общение с mysql сервером, если он не доступен.
Но, в чем же тогда может быть причина  закрывания без выдачи каких-либо сообщений в момент когда идет обращение к серверу?

Этот код ищет в реестре программу с названием "Excel.Application".
Все ProgID должны располагаться в ветке реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes\
Но, в этой ветке на моем ПК нет строки "Excel.Application" (проверил вручную)
Зато есть в какой то другой ветке и без параметра CLSID
Может быть Ваш код  не учитывает отсутствие этой строки в данной ветке реестра или отсутствие у него CLSID?
И поэтому возникает ошибка.

У меня есть в скрипте функция
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
в ней кроме обработки возможных известных ошибок есть и такой " универсальный" код:
        result := True; // предотвращает показ системной ошибки
        MessageBox(Msg, 'Необработанная ошибка базы данных! Модуль OnSQLException', MB_OK+MB_ICONWARNING);
        ShowMessage(SQL);
Должен ли он приводить к выводу сообщения об ошибке связанную с вылетанием программы?
Может программа не успевает вывести сообщение до вылета?

На этом ПК у меня  Excel не стоял никогда.
Но, стоял WPS Office 2016.
И в него экспорт производился нормально при установке кнопки в auto.
В мое отсутствие на работе эту программу по ошибке деинсталлировали с ПК.
Возможно, сделали что-то неправильно.
Я уже поставил ее обратно, но в нее экспорт теперь уже не производится.
Т.е. возможно это проблема конкретного ПК, но надо бы добавить перехват и обработку этой ошибки.
А вообще, правильно было бы проверять ассоциацию  расширения файла и запускать привязанное по умолчанию приложение

Получается такая картина:
1. Если на ПК установлен Excel и Libre Office, то экспорт нормально срабатывает в любое приложение (если в кнопке явно указать конкретное приложение - Excel или OpenOffice(Calc) )
Однако, при указании в кнопке значения "auto", открывается Excel, а не то приложение, с которым ассоциировано расширение файла xls.
Т.е. настройка "auto" - 'это не  "auto", а "Excel".
2. Если на ПК установлен только Excel, то экспорт в него работает корректно, а при попытке послать экспорт в OpenOffice(Calc), сообщает, что эта программа не установлена.
Т.е. все ОК.
3. Если на ПК Excel не установлен, а только Libre Office, то экспорт в него делается нормально, а экспорт в "Excel" или "auto" подвешивает программу где-то на минуту, а затем появляется сообщение об ошибке:  Ошибка при выполнении приложения-сервера, ProgID: "Excel.Application".
Проверить, как это работает на других ПК без установленного Excel пока не могу.
...
Очевидно, ошибка возникает в момент создания объекта Excel.Application, поскольку его на ПК нет.
...
Таким образом, во-первых, кнопка экспорта в режиме auto должна открывать то приложение, с которым ассоциировано расширение xls.
И второе - если Excel не установлен (или ошибка создания объекта), то сообщать, что Excel не установлен.

У меня есть одна особенность: я использую SQL запрос с инструкцией CASE, чтобы выводить проекты со всеми статусами, если комбобокс статусов в журнале проектов стоит невыбранный.
Полный запрос в секции WHERE такой:
...
(CASE WHEN ({ComboBox_Project_Status} < 0) THEN 1=1 ELSE ( Tbl_Projects.id_Tbl_Project_Statuses = '{Edit_StatusForSQL}' ) END)
...
Но,оказывается, если у комбобокса включено свойство MultiSelect, то независимо от выбора значения комбобокса, он возвращает -1.
Т.е. надо в скрипте обязательно перебирать весь список значений комбобокса и находить выбранные пользователем.
...
А есть ли попроще способ получить значение прямо в SQL окне , обозначающее, что в комбобоксе ничего не выбрано?
Т.е. типа  "WHEN ({ComboBox_Project_Status} < 0)"  но для случая с мультиселект?

Приложить проект не могу. Он на MySql. Да и свои ошибки предпочитаю находить самостоятельно.
Вопрос то был про другое - что обозначает цифра в сообщении об ошибке и можно ли получить информацию о месте возникновения ошибки.
У меня очень большой проект и ошибка может оказаться в нескольких местах. Чтобы ускорить поиск было бы неплохо в сообщении об ошибке выводить номер строки в коде или компонент, который выдает ошибку.