none
Utilização de Componente VB6 por VB.Net RRS feed

  • Pergunta

  • Boa Tarde,

     

    Pessoal tenho um sistema que esta desenvolvido em vb 60 que roda em COM+

    neste sistema tem uma classe de autenticação de usuario.

    Estou desenvolvendo outro sistema em vb.net e gostaria de utilizar a mesma classe que esta no COM+ para autenticação de usuario alguem sabe como fazer

    estou tentando usar Imports Microsoft.VisualBasic.Interaction Mais não funciona.

     

    Public Function ConsultarLogin(ByVal retorno As Object, ByVal Nome As Object, ByVal senha As Object) As Boolean

    Dim m_cadastroUsuario As Object

    Dim idenUsuario As Object

    Dim acesso As Boolean

    'm_cadastroUsuario = CreateObject("Acad_Classe.clsCadastroUsuarioNG", "\\safira\Academico\Classes\Acad_Classe.dll")

    m_cadastroUsuario = CreateObject("Acad_Classe.clsCadastroUsuarioNG")

    acesso = m_cadastroUsuario.ConsultarLogin(CStr(retorno), CLng(idenUsuario), CStr(Nome), CStr(senha))

    If acesso = True Then

    m_usuario.Codg = Nome

    m_usuario.Iden = idenUsuario

    m_usuario.Stat = "A"

    Else

    m_usuario = Nothing

    End If

    Return acesso

    End Function

    quinta-feira, 5 de julho de 2007 18:34

Respostas

  • Natan,

     

    Você tem duas opções:

     

    1 - Fazer uma referência direta ao objeto COM.

    2 - Criar um RCW (Runtime Callable Wrapper) para o seu objeto COM.

    3 - Usar a ferramenta Type Library Importer, que é o mesmo efeito do item 1.

     

    Att.

     

    Ari C. Raimundo

     

    segunda-feira, 18 de agosto de 2008 03:38