qwerty07's Content

There have been 2 items by qwerty07 (Search limited from 26/04/2023)

Tipos

See this member's

Ordernar por

Order

#998887 Microsoft Vbscript Runtime Error '800A000D'

Posted by qwerty07 on 03/05/2010, 08:51 in ASP

Patrique, embora eu não tenha entendido o porque de fazer isto (SET UNIDADES = Server.CreateObject("ADODB.recordset"), eu até tentei, mas continuou dando o mesmo erro.

Esta dll acessa o Banco de Dados sim, mas UNIDADES é um método dentro da classe (Set Objger=Server.CreateObject("PADAdabas.clsRHUP97")).

De qualquer forma obrigada por sua ajuda! Um abraço.

#998833 Microsoft Vbscript Runtime Error '800A000D'

Posted by qwerty07 on 30/04/2010, 10:55 in ASP

Amigos

Recebi uma dll cuja a descrição é a seguinte:

Codigos_Lot Vetor Variant S
Siglas_Lot Vetor Variant S
Nomes_Lot Vetor Variant S
Codigo_Lot variant E
Erro_cod variant S
Erros_desc variant S

Estou tentando executá-la da seguinte forma:

Set Objger=Server.CreateObject("XXXDDDDD.clsRHxxxx")

if (Objger.UNIDADES(codigos_lotacao, siglas_lotacao, nomes_lotacao, Codigo_Lotacao, vCodErr, VDscErr) = true) then
response.write("############################ Retorno OK da UNIDADES" & " ")
response.write("Codigos_Lotacao = " & Codigos_Lotacao & " ")
response.write("Siglas_Lotacao = " & Siglas_Lotacao & " ")
response.write("Nomes_Lotacao = " & Nomes_Lotacao & " ")
else
response.write("Retorno com ERRO da UNIDADES" & " ")
response.write("Código de Erro = " & vCodErr & " ")
response.write("Descrição do Erro = " & VDscErr & " ")
end if

Recebo sempre esta mensagem de erro:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UNIDADES'

A linha em que dá este erro é a linha da chamada da dll.

Será que alguém pode me ajudar?