[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() Цикл

Сообщение отредактировал -=VJ=- - 25.03.13, 11:54

[logist]

Офф

Можно научиться программировать на 8-ке, но разучиться программировать на 7-ке невозможно.

[kasya]

Пока НЕ нКом.Eof() Цикл

ну сами же знаете, что на работоспособность это никак не влияет.
А по сабжу: тему можно закрывать. Косяк был в sql-е.

!

Правила, п.1.

Сообщение отредактировал logist - 25.03.13, 13:57