Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde,
CODE
'xxxxxxxxxxxxxxxxxxxxxxx clsCurso.cls xxxxxxxxxxxxxxxxxxxxxxx
Private Conn
Private strSql As String
Private Sub Class_Initialize()
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dados\Locatario.mdb"
End Sub
Private Sub Class_Terminate()
If Conn.State <> 0 Then
Conn.Close
Set Conn = Nothing
End If
End Sub
Private Sub listCurso()
Dim rst As String
Set strSql = "SELECT * FROM CURSO"
Set rst = Conn.Execute(strSql)
Set listCurso = rst
Set rst = Nothing
End Sub
CODE
'xxxxxxxxxxxxxxxxxxxxxxx frmCurso.frm xxxxxxxxxxxxxxxxxxxxxxx
Dim Curso As clsCurso
Set Curso = New clsCurso
Set rstRetorno = CreateObject("ADODB.Recordset")
Set rstRetorno = Curso.listCurso
Quando executo o projeto sempre recebo a mensagem que o método não suportado (Curso.listCurso).
O que estou fazendo errado?
Obrigado, David.
Carregando comentários...