Passer un objet user en parametre
Bonjours,
Je programme habituellement en vbscript sous asp. Mais pour mon présent projet j'ai choisi Vb6 pour cause de rapidité(Programme qui scrute des site web d'annonce 24h/24).
Donc jai transfere mon code asp sous vb6.
Tout allais bien jusqu'a ce que je tombe sous un objet(type) que je veux passer en paramettre dans une procedure.
Lors de la compilation il me donne l'erreur suivante:
Erreur de compilation:
Type défini par l'utilisateur non défini
Voici ma procedure :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| '********************************************************************************************
' Procedure qui update l'annonce avec les nouveau élement
'********************************************************************************************
Sub UpdateAnnonceKijiji(objAnnonce As AnnonceAuto)
Dim objConn As ADODB.Connection
Dim strSqlUpdateAnnonceKijiji As String
strSqlUpdateAnnonceKijiji = "UPDATE dbo.tblAnnonce SET strTitreAnnonce = '" + FixQuote(objAnnonce.strTitre) + "', strDetailAnnonce = '" + FixQuote(Trim(objAnnonce.strDetail)) + "', bActiveAnnonce = 1 WHERE ((FK_Site = 2) OR (FK_Site = 3)) AND (iNumberAnnonce = " + CStr(objAnnonce.iNumber) + ")"
Response "strSqlUpdateAnnonceKijiji |" + strSqlUpdateAnnonceKijiji + "|"
'cree la connection
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = strConn
objConn.Open
objConn.Execute strSqlUpdateAnnonceKijiji
'fermer la connection
objConn.Close
Set objConn = Nothing
End Sub |
Voici ma procedure qui appele ce procedure
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Private Sub Command1_Click()
Dim objAds As Module1.AnnonceAuto
Dim astrListeAnnonceVide() As Long
Dim iBoucleRempliANnonce As Long
Const ciNbDetailAnnonceAlaFois As Integer = 11
'trouve les X annonce vide
astrListeAnnonceVide = astrRempliListeAnnonceVide(ciNbDetailAnnonceAlaFois)
'boucle de remplissage d'annonce
For iBoucleRempliANnonce = 0 To UBound(astrListeAnnonceVide)
'rechercher les info de l'annonce sur la page web
Set objAds = RempliKijiji(astrListeAnnonceVide(iBoucleRempliANnonce))
'verifier si pas effacer
If objAds.bDeleted = 0 Then
UpdateAnnonceKijiji objAds
End If
ResponseHr
'Fin de boucle de remplissage d'annonce
Next
Response.write "<hr><hr><hr><h1>ON RECOMMENCE</h1><hr><hr><hr>"
'metre le timer a on
Timer1.Enabled = True
End Sub |
et pour fini voici ma class
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| '********************************************************************************************
' CLASSE ANNONCE AUTO
'********************************************************************************************
Type AnnonceAuto
bAuto As Boolean
bVendu As Boolean
bDeleted As Boolean
iNumber As Long
strTitre As String
strDetail As String
curPrice As Currency
strMake As String
strModel As String
iAnnee As Integer
strVille As String
iKm As Long
iNbDoor As Integer
iNbCyl As Integer
bAutomatique As Boolean
bAc As Boolean
iPhone1 As Long
iPhone2 As Long
strUrl As String
strImage As String
End Type |
Je veux aussi dire que tout est fait dans la page de code dur form1
