Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Ошибка при подключении к SQL
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование управляемых форм 1С 8.2
kasya
Св = Новый COMОбъект("ADODB.Connection");
Св.CursorLocation     = 2;
Св.ConnectionTimeout=15;
СтрокаСвязи         = "Provider=SQLOLEDB.1;Password=pas;Persist Security Info=True;User ID=user;Initial Catalog=basecard;Data Source=cards;Connect timeout=10";
Попытка
    Св.Open(СтрокаСвязи);
Исключение
    Св = "";
    Предупреждение("Ошибка подключения к SQL Server.");
КонецПопытки;

CommEdit = Новый COMОбъект("ADODB.Command");
CommEdit.ActiveConnection = Св;
CommEdit.CommandText = "cards_activate";
CommEdit.CommandType = 4;

НомерКарты = Прав(СокрЛП(НомерКарты), СтрДлина(СокрЛП(НомерКарты))-9);

нКом =  Новый COMОбъект("ADODB.Recordset");
Попытка
    нКом.Open("Execute cards.dbo.cards_activate @card='"+НомерКарты+"'", Св);
Исключение
    Сообщить("Произошла ошибка передачи данных!", СтатусСообщения.ОченьВажное);
    Сообщить(ОписаниеОшибки());
КонецПопытки;

Пока нКом.EOF() = 0 Цикл
    рез = нКом.Fields.item(0).Value;
    нКом.MoveNext();        
КонецЦикла;


{Обработка.АктивацияКартЕ100.Форма.Форма.Форма(68)}: Ошибка при вызове метода контекста (EOF)
Пока нКом.EOF() = 0 Цикл
по причине:
Произошла исключительная ситуация (ADODB.Recordset): Операция не допускается, если объект закрыт.

Подскажите, плз, где косяк?
-=VJ=-
Пока НЕ нКом.Eof() Цикл

logist
необходимо зарегистрироваться для просмотра ссылки
Можно научиться программировать на 8-ке, но разучиться программировать на 7-ке невозможно.
kasya
Цитата(-=VJ=- @ 25.03.13, 12:54) необходимо зарегистрироваться для просмотра ссылки
Пока НЕ нКом.Eof() Цикл
ну сами же знаете, что на работоспособность это никак не влияет.
А по сабжу: тему можно закрывать. Косяк был в sql-е.


 ! 

Правила, п.1.
 
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.