'Oi,
'Erro em teste de componente!?
'O que tem de errado no teste abaixo, pois sempre dá run time error 91(Object variable
'or With block variable not set. Vejam:
Private Sub Form_Load()
Dim obj As Recursos
'Dim RS As ADODB.Recordset 'com rs dá erro 91
Set obj = New Recursos
'Set RS = New ADODB.Recordset
'Set RS = obj.RetornaUsuarioRandomico("Provider=SQLOLEDB;SERVER=xx;DATABASE=BD1;UID=sa;PWD=", 1, "HomePage", "192.168.0.254", "Usuário Teste", "
testemail@netcallcenter.com.br", "", "")
MsgBox obj.RetornaUsuarioRandomico("Provider=SQLOLEDB;SERVER=xx;DATABASE=BD1;UID=sa;PWD=;UID=sa;PWD=moh", 1, "HomePage", "192.168.0.254", "Usuário Teste", "
testemail@netcallcenter.com.br", "", "")
'com msgbox dá erro 91
'obs.: RetornaUsuarioRandomico é uma função que retorna um recordset.
'Este componente é para ser usado em pág. asp e eu quero testar antes de ficar dando shutdown
'em MTS(component services).
End Sub
vejam como está a function:
Function RetornaUsuarioRandomico(ConnectionString, IDArea, PaginaInicial, IP, Apelido, Email, ReceberEmail, IDVisitante) As ADODB.Recordset
'--------------------------------------------------------------------------------
'Autor: Vilmar Brazão de Oliveira
'Criação: 10/06/2005
'Descrição: Traz foto de usuário randomicamente.
'--------------------------------------------------------------------------------
Dim strConn As String
strConn = Decrypt(ConnectionString, DecryptPassword)
On Error GoTo ErrorLog
Dim strSQL As String 'Comando SQL
strSQL = "sp_Chat_067_RetornaUsuarioRandomico '" & ToStr(IDArea) & "', '" & ToStr(PaginaInicial) & "', '" & ToStr(IP) & "', '" & ToStr(Apelido) & "', '" & ToStr(Email) & "', '" & ToStr(ReceberEmail) & "', '" & ToStr(IDVisitante) & "'"
Set RetornaUsuarioRandomico = SPExecuteRS(strConn, strSQL)
GetObjectContext.SetComplete
Exit Function
ErrorLog:
GetObjectContext.SetAbort
Call ErrorLog("Recursos.RetornaUsuarioRandomico", Err.Number, Err.Source, Err.Description)
End Function
'grato,
