Problème d'Instanciation d'une Classe (VB6 DLL pour ASP3) dans une autre classe

Question

Bonjour est-ce que quelqu'un peut m'aider &#224; comrendre ce qui ne gaze pas dans mon code ?

J'a ecrit une petite DLL en VB6 pour ASP3 qui comporte plusieurs classes. Lorque j'instancie chaque classes individuellement &#224; partir de mes pages ASP &#231;a marche tr&#232;s bien mais je n'arrive &#224; utiliser les objets des classes dont j'ai besoin &#224; partir d'une de ces classes dans mon code vb6. Rermarquez c'est peut-&#234;tre pas possible pour ce type de composant mais j'aimerais qu'un "expert" puisse me le confirmer (je gal&#232;re un max et j'ai mal &#224; la t&#234;te !!!) 
Merci par avance
Jluc

Pour comprendre ais&#233;ment mon probl&#232;me "NouvelleInstance de UneClasseDeMaDLL" est &#224; regarder dans le code ci-dessous

Option Explicit

Dim DataConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Session As Session
Dim Application As Application
Dim Request As Request
Dim Response As Response
Dim Server As Server
Dim NouvelleInstance As New UneClasseDeMaDLL

Private Sub OnStartPage(sc As ScriptingContext)
    Set Session = sc.Session
    Set Application = sc.Application
    Set Request = sc.Request
    Set Response = sc.Response
    Set Server = sc.Server
    Set DataConn = Server.CreateObject("ADODB.Connection")
        
    DataConn.Open Application("MaBaseDeDonnees")

End Sub

Private Sub OnEndPage()
   Set Session = Nothing
   Set Application = Nothing
   Set Request = Nothing
   Set Response = Nothing
   Set Server = Nothing
   DataConn.Close
   Set DataConn = Nothing
End Sub

Public Sub Execution()
 Response.Write "bla bla" & MonCodeVB & "etc. etc."
        Set rs = DataConn.Execute("select MonChamp from Matable")
            Do While Not rs.EOF
                Response.Write rs("MonChamp") & "
" & vbCrLf
            rs.MoveNext
            Loop
            rs.Close
        Set rs = Nothing
 If blablaCode Then
 NouvelleInstance.Execution
 End If
End Sub

cs_jl75 · Answer

J'ai oubli&#233; de mentionner  l'erreur retourn&#233;e, la voici:

(0x800A005B)
Object variable or With block variable not set

Jluc

cs_rt15 · Answer

Une classe dans une classe ?
Ca devrait pas poser de problème...

Je connais pas ta syntaxe de création d'objet, mais il en existe beaucoup. La meilleur que je connaisse, c'est de pas en mettre !

Pour tout ce qu'il faut savoir sur les dlls :
http://vbfrance.com/code.aspx?ID=32111

Sinon, si tu as deux classes dans la même dll, tu peut sûrement appeler diectement les méthodes d'une classe à partir de l'autre, sans création d'objet.

cs_jl75 · Answer

Merci de ta r&#233;ponse, je sais bien. j'y arrive sans probl&#232;me dans d'autres applications les classes de ma dll ressemblent &#233;trangement &#224; des "webclass" et je me demande si c'est bien possible de les imbriquer !

cs_rt15 · Answer

bah c'est vrai que VB pour la prog orientée objet, c'est un peu pas bien du tout, mais je vais essayer ton truc (Une classe qui appel une classe dans une dll, si j'ai compris)

Tu as mis les classes en vbmultiuse ?

cs_jl75 · Answer

Oui pour les dll specifiques &#224; l'asp je ne crois pas qu'il y ait d'autre choix possible que le vbmultiuse

jluc

cs_rt15 · Answer

J'ai testé ce code avec succès :

Le code de l'exe ou est référencée la dll :

Private Sub Command1_Click()
Call appel
End Sub

Le code de la classe EX_1 de la dll EX_2Classes :

Public Sub Appel()
Dim obj As New EX_2
Call obj.allo
End Sub

Le code de la classe EX_2 de la dll EX_2Classes :

Public Sub allo()
MsgBox "allo"
End Sub

Problème d'Instanciation d'une Classe (VB6 DLL pour ASP3) dans une autre classe

6 réponses

Discussions similaires