is not CLS-compliant?

[Чудик]

Объясните, что это такое?

Return type of function 'OpenConnect' is not CLS-compliant.

Код следующий:

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

Public Class clsDBRecord
    Public Function OpenConnect() As ADODB.Connection
        Dim com As Object
        com = New ADODB.Command
        cnConnection = New ADODB.Connection
        With cnConnection
            .Open(TypeDB)
        End With
    End Function
End Class


Ясно, что это CLS-несовместимый код, но как уйти от этой ошибки? Пока не порлучается!!! Знаю о CLSCompliantAttribute, но не знаю как его использовать. Хотя - просто не догоняю.
P.S.
VB.NET 2005

[Viper]

Если тебе нужна CLS-совместимость, то такое возвращаемое значение действительно недопустимо. Если же тебе эта совместимость до лампочки, то не обращать внимание на это предупреждение. Ошибкой это кстати не является.

[Чудик]

Прикольно!
А что про CLSCompliantAttribute?

[Viper]

Про него все ясно из названия. Этот атрибут, при его установке в True, указывает, что програмный элемент для которого он установлен должен быть совместим с CLS (т.е. с Common Language Specification). Если же атрибут установлен в False или вовсе отстутствует, то такой совместимости от програмного элемента не требуется

[Чудик]

Благодарю!

[Kulip@tor]

А что функция у тебя возвращает???? чето Return я не вижу.

[Viper]

видимо он забыл вернуть cnConnection

[Kulip@tor]

nu navernoe potomu i owibku daet

[Чудик]

Даже если добавить "Return OpenConnect" ничего в корне не меняется - возвращаемый тип функции по прежнему остается несовместим с CLS.