8.х ОБМЕН Подключение к firebird 1.5 из 1С

Тема в разделе "Обмен данными в "1С:Предприятие 8"", создана пользователем AGOR, 20 ноя 2009.

  1. TopicStarter Overlay
    AGOR
    Offline

    AGOR

    Регистрация:
    20 ноя 2009
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    Проблемы выполении запроса к базе firebird 1.5. (СуперОкна)
    Соединение и запрос отрабатывают нормально.

    Как только кто-нибудь из пользователей откроет эту таблицу(СуперОкна)
    то запрос зависает на методе Execute(); и висит пока пользователь не закроет форму просмотра таблицы.
    Драйвер ODBCfirebird 2.0.148 (последний).
    В то же время SQL-запрос из IBExpert отрабатывает.

    Поскажите пож. в чем проблема.


    Код:
    COMСоединение = Новый COMОбъект("ADODB.Connection");
    COMСоединение.ConnectionString = "driver={Firebird/InterBase® driver};server="+ПутьКФайлуГДБ+";uid=XXXX;pwd=XXXX;database="+ПутьКФайлуГДБ+";";
    
    COMСоединение.ConnectionTimeOut =1200; 
    COMСоединение.CursorLocation = 3; 
    Попытка 
    COMСоединение.Open(COMСоединение.ConnectionString); 
    //Сообщить("Соединение успешно уставнолено !!!");
    
    Исключение 
    Предупреждение("Невозможно установить соединение -" ); 
    Возврат;
    КонецПопытки;
    
    Cmd = Новый COMОбъект("ADODB.Command");
    Cmd.ActiveConnection = COMСоединение;
    Cmd.CommandText = "SELECT
    | SF.SYSNO
    | FROM SYSPROF"; 
    RS1 = Новый COMОбъект("ADODB.Recordset");
    RS1 = Cmd.Execute();
    
  2. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Код:
    RS1 = Новый COMОбъект("ADODB.Recordset");
    RS1 = Cmd.Execute();
    
    Сомнения вызывают у меня эти строчки :)

Поделиться этой страницей