Bonjour,

Je suis actuellement en stage et mon maitre de stage m'a conseillé de 'coder objet' , en utilisant des classes...

Mais je comprend pas du tout ce qu'il faut que je fasse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<%@ Language=VBScript %>
<%Option Explicit%>
<html>
	<title>Enregistrer contenu du fichier Excel dans la BDD Oracle</title>
	<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
	<%Dim FichierExcel, MaConn, MonObjRs, MonSQL, CompteurColonne, nomf, SqlQuery, szSiteLocation, OBJdbConn, id
		'Nom du fichier Xls
		FichierExcel = "..."%>
	 <%If FichierExcel <> "" Then%>
	 	<%'FichierExcel = "....xls"
        'Nom de la feuille  obligatoire
	 	nomf = "[Base$]"
	 	'Création de la connexion
	 	Set MaConn = Server.CreateObject("ADODB.Connection")
 	 		MaConn.Open "DBQ=" & Server.MapPath(FichierExcel) & ";DRIVER={Microsoft Excel Driver (*.xls)};" 
	    Set MonObjRs = Server.CreateObject("ADODB.Recordset")%>
	   <%If nomf <> "" Then  
        'Requete sur le fichier excel
        'ATTENTION, c'est le nom d'une feuille, 
        'La Zone s'appel "Base", la requete ne se fait pas sur 
        'le fichier mais sur la feuille
        MonSQL = "SELECT * FROM " & nomf & ";"
        'response.write(MonSQL)
		'Exécution de la requête
        MonObjRs.Open MonSQL, MaConn%>       
            <!--#include virtual="Tools/Oracle/Connexion.inc"-->
			<!--Enregistrer dans la base de données-->
		</b>
			<!--tant que pas Fin de fichier-->
			<%id = 1%>
			<%Do While Not MonObjRs.EOF%>
		<%SqlQuery = "INSERT INTO (...) ([...]) VALUES ([...])"%>
		<%MonObjRs.MoveNext%>
		<%id = id+1%>
		<!--response.write(SqlQuery)-->
		<%OBJdbConn.Execute(SqlQuery)
			      loop%>
		<%'On vide tous les objets 
		MonObjRs.close
		Set MonObjRs = Nothing
		MaConn.close
		Set MaConn = Nothing
		Set MonSQL = Nothing
		response.write("Travail effectué")%>
 <%Else%>
		Zone non saisie
	 <%End If%>
	   <%Else%>
		Nom du fichier absent
	   <%End If%>

Voici un exemple de page que j'ai créée, comment utiliser des classes dans cette page ? Quelqu'un pourrait m'éclairer ?