Objet, classe, comment ?

**eltamatrox** · 19/02/2009, 10h44

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 ?

**roro06** · 19/02/2009, 10h58

Bonjour

Tu peux déjà commencer par lire ce post qui te donnera de très bonnes bases

**eltamatrox** · 19/02/2009, 11h10

merci je vais regarder ça de prêt, le truc que je comprend moyennement c'est qu'on parle de simplifier le code alors que pour moi ça complique clairement tout !

**Immobilis** · 19/02/2009, 12h49

Salut,

C'est parce que tu ne sais pas encore de quoi tu parles.

A+

**eltamatrox** · 20/02/2009, 09h56

certainement

Bon j'ai commencé a modifier mon projet selon le modèle que tu proposais.
ça donne ça :

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
<!-- #include file="DBFactory.asp" -->
<%
Dim db, rs, CompteurColonne, num, feuille
    feuille = "[Base$]"
Set db = new DBFactory
 
    db.Provider = Application("DBQ=" & Server.MapPath("test") & ";DRIVER={Microsoft Excel Driver (*.xls)};")
	response.write(db.Provider)
	Set rs = db.ExecuteQuery("SELECT * FROM " & feuille & ";")
 
       For CompteurColonne = 0 To (rs.Fields.Count - 1)%>
	   		<%=rs.Fields.Item(CompteurColonne).Name%>
	 <%Next%>
	 		<%num = 1%>
 
	 		<%Do While Not rs.EOF%>
				<br><b> <%=num%> </b></br>
				<%For CompteurColonne = 0 To (rs.Fields.Count - 1)%>
					<%=rs.Fields.Item(CompteurColonne).Value%>
				<%Next
				num = num+1%>
 
				<%rs.MoveNext
			  Loop%>
 
    <%Set rs = Nothing
Set db = Nothing
%>

le DBFactory.asp étant le même que celui du lien ci dessus (fallait rien modifier... si ? )

l'erreur obtenue est la suivante :

Microsoft OLE DB Provider for ODBC Drivers erreur '80004005'

[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

/.../.../.../DBFactory.asp, ligne 39

et la ligne 39 c'est ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

m_oCn.Open()

Qu'est ce que j'ai encore mal fait ?

le problème vient très certainement de la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db.Provider = Application("DBQ=" & Server.MapPath("test") & ";DRIVER={Microsoft Excel Driver (*.xls)};")

problème de guillemets, mais je ne sais pas comment y remédier ..

**roro06** · 20/02/2009, 11h44

Bonjour

Server.MapPath("test")

Comme c'est un fichier excel, c'est surement plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Server.MapPath("test.xls")

(Enfin, il faut lui mettre le nom réèl de ton fichier).

Objet, classe, comment ?

ASP

Vue hybride

Discussions similaires

Partager

Partager