Devart Forum

qwertehok

спасибо, но мне нужно немного не это
нужно сократить время, которое затрачивает SDAC на понимание того что сервер не доступен.

мне в обще не нужно знать причину - нужно как можно быстрее определить работает ли сервер.
сейчас проходит порядка 20-40 секунд. а так как у нас более 200 точек, то на опрос всех уходит порядка 10-15 минут.

qwertehok

У нас удаленные точки подключены через ВПН, и на каждой стоит MS SQL
я подключаюсь по IP к каждой базе и делаю бэкапы, проверяю данные.

Если на точке нет интернета, то при

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

MSConnection1.Connected:=True;

программа висит около минуты. (на onError я вписываю в таблицу с точками строку e.Message)

Подскажите пожалуйста как обработать подключение (вернее отсутствие такового)?

qwertehok

спасибо огромное за помощь

ошибку нашли - это оказались огромные комментарии вот такого вида --********
разработчики вписали туда очень много звездочек и, видимо, скрипт обрезал строку и на новой оказывали незакоментированные ****.

еще раз спасибо.

ЗЫ а если можно добавить возможность отлавливать print в unidac - было бы вообще замечательно.
удалите пожалуйста мои сообщения.

qwertehok

вот этот файл нужно выполнить и вывести на форму команду print которая идет в конце
в Студии выводится

как делаю я

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

MSScript1.SQL:=RzMemo1.Lines;
  MSConnection1.Connected:=True;
  MSScript1.Execute;

  MSConnection1.Connected:=False;

В свойствах MSScript стоит DataSet=MSQuery1. И к этому MSQuery1 ваш обработчик с E.Message

PS файл это не ZIP

qwertehok

спасибо, все работает

но теперь появился другой вопрос

команда

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

print '123'
go
print '321'

выдает

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

123
321

но если делать в рабочем коде

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

print CONVERT(nvarchar,GETDATE(),103) + ' : Начинаю обновление патчем от разработчика.'

GO
ALTER PROCEDURE [dbo].[i_imp_FrontolAtol_DataType_Article] (@DriverID AS INT, @SectionID AS INT, @LIVersion AS BIGINT)
AS
BEGIN
SET NOCOUNT ON
...
print ''

Начинает ругаться встроенный редактор кода так как теряется контекст БД.
Начали добавлять

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

MSScript1.SQL.Insert(0,'Use sms_tech');

Ругаться перестало, но теперь код

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

print '123'
go
print '321'

выдает только

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

Подскажите пожалуйста (если поняли)

qwertehok

Alexp писал(а):Cобытие onInfoMessage реализовано в компоненте TMSConnection.
Пример получения сообщения приведен в предыдущем посте

У меня Delphi XE и UniDac.
У меня нет TMSConnection.

Можно реализовать вывод без этого компонента?

qwertehok

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

Может я что-то не понимаю?
Мне нужно выполнить скрипт на 6000 строк. Для отладки я добавляю в код

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

print 'Ошибка Номер ХХХ'

в дельфи это вот так

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

UniQuery1.SQL.Text:='print ''Ошибка Номер ХХХ''';

Как вывести эту строку на форму?

ЗЫ скрипт запихиваю в UniScript

qwertehok

А подскажите как этот же результат получить для MS SQL?

Devart Forum

Найдено 8 результатов

Re: Проверка доступности сервера

Проверка доступности сервера

Re: Получение всех принтов из запроса

Re: Получение всех принтов из запроса

Re: Получение всех принтов из запроса

Re: Получение всех принтов из запроса

Re: Получение всех принтов из запроса

Re: Получение всех принтов из запроса