Dll Registration

[Cyllwah 0]

Boa Tarde, Pessoal!

 

Estou tentando criar esta dll pelo VBasic, porem me ocorre este erro na linha do obj.ADODB.Connection e RecordSet.

 

Alguem saberia porque e como me ajudar a solucionar o mesmo?

 

Atenciosamente

 

Cyllwah

 

PS.1 Este script é feito pela impacta no curso de ASP I e gostaria de testa-lo!

 

<< Script >>

 

Option Explicit

 

 

Public Function gCheck(invntIP, outvntNome, outvntUsuario_ID, outvntMsg_ret)

 

 

gCheck = 10

 

On Error GoTo Error1

 

Dim odb As ADODB.Connection

Dim ors As ADODB.Recordset

Dim strSQL As String

 

strSQL = "Select nome_dos_campos from nome_da_tabela"

strSQL = strSQL & " where ip='" & invntIP & "'"

 

Set odb = New ADODB.Connection

odb.open "string de conexão"

Set ors = New ADODB.Recordset

ors.CursorLocation = adUseClient

ors.open strSQL, odb

 

If ors.EOF Then

gCheck_IP = 0

outvntNome = Empty

Set ors = Nothing

Else

gCheck_IP = 0

outvntNome = ors!nome

outvntUsuario_ID = ors!user_ID

ors.Close

Set ors = Nothing

odb.Close

Set odb = Nothing

End If

 

1 Exit Function

 

Erro1:

outMSG_ret = Err.Number & " - " & Err.Description

 

Resume 1

 

End Function

[assuncao.jr 0]

Ola!você deve registrala no windows.Na caixa de comando executar digite o seguinte: REGSVR32.EXE C:\DLL\nomeDaDllaRegistrar.dllAté mais.