[ASP3] Impossible de trouver l'objet dans la collection corr

**beegees** · 24/01/2006, 16h24

Bonjour le forum,

J'ai créé un formulaire HTML qui demande un numéro de matricule, un login et un mot de passe.

Quand ces trois éléments sont introduit, une page asp en relation avec une base de donnée Access doit authentifier le visiteur.

Lorsque le visiteur n'est pas autorisé, il reçoit un message lui disant qu'il ne peut pas accéder au contenu du site (ce qui est normal).

Par contre, quand les 3 éléments sont bon, j'obtiens ce message :

ADODB.Recordset erreur '800a0cc1'

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.

/delibes/authentification.asp, ligne 22

Remarque importante : quand je met en ligne 22

[b]Response.Write "Bienvenue :"

ça fonctionne, il refuse donc mon rst(nomduchamps)

Voici mon code asp, la ligne 22 est en gras :

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
<%
	dim cnn
	dim rst
 
	Set cnn = Server.CreateObject("ADODB.Connection")
	Set rst = Server.CreateObject("ADODB.Recordset")
	cnn.Open "DSN=delibes"
 
	' Construction de la chaîne SQL
	strSQL = "SELECT [matricule] FROM [tblauthentification]"
 
	' Filtre sur les valeurs fournies par le visiteur
	strSQL = strSQL & " WHERE matricule='" & Request.Form("txtmatricule") & "'"
	strSQL = strSQL & " AND [login]='" & Request.Form("txtlogin") & "'"
	strSQL = strSQL & " AND [mdp]='" & Request.Form("txtmdp") & "'"
	rst.Open strSQL, cnn
 
	' A-t-on trouvé un adhérent ?
	If rst.EOF Then
		Response.Write "Accès non autorisé. Vérifiez votre identifiant et votre mot de passe."
	Else	
		[b]Response.Write "Bienvenue :" & rst("nomcomplet")[/b]
 
	End If
 
	rst.Close
	Set rst = Nothing
	Set cnn = Nothing
%>

Ma base de donnée est composée d'une table (pour le moment) les champs sont login, mdp, matricule et nomcomplet.

Est-ce que vous voyez quelque chose qui ne fonctionne pas ?

Merci d'avance.

bgs

**pc75** · 24/01/2006, 16h38

Bonjour,

Quand tu fais :

Code :

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

1
2
 
[b]Response.Write "Bienvenue :" & rst("nomcomplet")[/b]

nomcomplet vient d'où ? Il n'est pas dans ton select !

**beegees** · 24/01/2006, 16h40

Envoyé par pc75

Bonjour,

Quand tu fais :

Code :

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

1
2
 
[b]Response.Write "Bienvenue :" & rst("nomcomplet")[/b]

nomcomplet vient d'où ? Il n'est pas dans ton select !

Bonjour

Merci pour ta réponse.

"nomcomplet" est un champ de ma table.

J'ai le même problème si je met "matricule" ou "login".

Qu'en penses-tu ?

Ne devrais-je pas mettre quelque chose dans le genre :

Code :

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

rst.open select * from [tblauthentification];

:

Merci encore.

bgs[/code]

**pc75** · 25/01/2006, 08h21

Re,

Peux-tu essayer avec ça ?

Code :

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

1
2
 
Response.Write "Bienvenue :" & rst(0)

**beegees** · 25/01/2006, 09h07

Salut,

En mettant

Code :

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

Response.Write "Bienvenue :" & rst(0)

J'obtiens le même message d'erreur.

Merci pour ton aide.

Je continue à chercher.

bgs

**pc75** · 25/01/2006, 09h26

Re,

Fais un response.write de strSQL et essaie de l'éxécuter directement dans Access, et donne nous le résultat.

**beegees** · 25/01/2006, 09h52

Envoyé par pc75

Re,

Fais un response.write de strSQL et essaie de l'éxécuter directement dans Access, et donne nous le résultat.

Salut pc75,

Merci beaucoup pour ton aide et tes nombreuses réponses.

Quand tu me dis :

Fais un response.write de strSQL

Je fais ça dans ma page asp ?

et essaie de l'éxécuter directement dans Access

Comment ?

Vraiment désolé mais je suis débutant en asp 3.

Merci encore.

bgs

**Cpas2latarte** · 25/01/2006, 10h32

la requête "SELECT [matricule]"
indique que la projection (l'ensemble des champs renvoyé par la requête) ne contient que le champs matricule
par concéquant le résultat le contient que le champs "matricule", tu ne peut utiliser autre chose que le champ ""matricule!
il faut rajouter dans la projection de la requête la totalité des champs utilisés.
2 maniére :
Select monChamp1, monChamp2, ...., monChampn From MaTable
Ou encore
Select * From MaTable
Ceci renvoi la totalité des champs

**pc75** · 25/01/2006, 10h39

Re,

Dans ta page ASP, juste après ça :

Code :

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

1
2
3
4
5
 
   ' Filtre sur les valeurs fournies par le visiteur 
   strSQL = strSQL & " WHERE matricule='" & Request.Form("txtmatricule") & "'" 
   strSQL = strSQL & " AND [login]='" & Request.Form("txtlogin") & "'" 
   strSQL = strSQL & " AND [mdp]='" & Request.Form("txtmdp") & "'"

Tu mets :

Code :

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

1
2
 
response.write strSQL

Ton navigateur affichera le texte de la requête. Tu la sélectionnes et tu fais un copier.

Tu ouvres Access, tu choisis l'onglet "Requêtes", puis l'option "Créer une requête en mode création".
Dans la fenêtre "Ajouter une table", tu choisis "Fermer".
Dans la barre d'outils, tu cliques sur le bouton "SQL" et tu colles la requête que tu as copiée précédemment.
Exécute la et dis nous le résultat.

**beegees** · 25/01/2006, 11h41

Salut pc75,

Merci beaucoup pour ta réponse et ta patience.

J'ai fais ce que tu m'as dis, voici déjà le résultat de

response.write strSQL :

Code :

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

SELECT [matricule] FROM [tblauthentification] WHERE matricule='123456' AND [login]='mvd' AND [mdp]='mvd'

et voici le résultat en Access :

123456

Qu'en penses-tu ?

Merci encore.

bgs

**Cpas2latarte** · 25/01/2006, 11h47

C'est bien ce que j'expliquais dans mon poste.
La projection de ta requête ne contient qu'un seule champ
Il faut remplacer
strSQL = "SELECT [matricule] FROM [tblauthentification]"
par par exemple
strSQL = "SELECT * FROM [tblauthentification]"

ainsi on rajoute l'ensembles des champs de la table tblauthentification dans la projection

Cordialement

**beegees** · 25/01/2006, 11h50

Envoyé par Cpas2latarte

C'est bien ce que j'expliquais dans mon poste.
La projection de ta requête ne contient qu'un seule champ
Il faut remplacer
strSQL = "SELECT [matricule] FROM [tblauthentification]"
par par exemple
strSQL = "SELECT * FROM [tblauthentification]"

ainsi on rajoute l'ensembles des champs de la table tblauthentification dans la projection

Cordialement

Bonjour Cpas2latarte,

Désolé, je n'avais pas vu que tu avais posté une réponse.

Je vais essayer comme tu dis et je vous dis quoi.

Merci beaucoup !

bgs

**pc75** · 25/01/2006, 11h53

Re,

C'est louche !
Tu veux tenter comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set rst = Server.CreateObject("ADODB.Recordset")
   ' Construction de la chaîne SQL 
   strSQL = "SELECT matricule FROM tblauthentification" 
   ' Filtre sur les valeurs fournies par le visiteur 
   strSQL = strSQL & " WHERE matricule='" & Request.Form("txtmatricule") & "'" 
   strSQL = strSQL & " AND [login]='" & Request.Form("txtlogin") & "'" 
   strSQL = strSQL & " AND [mdp]='" & Request.Form("txtmdp") & "'" 
rst.open strSQL, "delibes"
response.write "*** " & rst("matricule") & " ***"
rst.close
set rst = Nothing

**beegees** · 25/01/2006, 12h02

Re-bonjour pc75 et Cpas2latarte,

Avec ce code :

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
<%
	dim cnn
	dim rst
 
	Set cnn = Server.CreateObject("ADODB.Connection")
	Set rst = Server.CreateObject("ADODB.Recordset")
	cnn.Open "DSN=delibes"
 
	' Construction de la chaîne SQL
	strSQL = "SELECT * FROM [tblauthentification]" 
 
 
	' Filtre sur les valeurs fournies par le visiteur
	strSQL = strSQL & " WHERE matricule='" & Request.Form("txtmatricule") & "'"
	strSQL = strSQL & " AND [login]='" & Request.Form("txtlogin") & "'"
	strSQL = strSQL & " AND [mdp]='" & Request.Form("txtmdp") & "'"
 
	rst.Open strSQL, cnn
 
	' A-t-on trouvé un adhérent ?
	If rst.EOF Then
		Response.Write "Accès non autorisé. Vérifiez votre identifiant et votre mot de passe."
	Else	
		Response.Write "Bienvenue :" & rst("nomcomplet")
 
	End If
 
	rst.Close
	Set rst = Nothing
	Set cnn = Nothing
%>

ça fonctionne !!!

Un super grand merci à vous deux !

Ce n'est malheureusement que le début de mon projet, vous me reverrez sans doute sur ce forum.

Une très bonne journée à vous tous.

bgs

[ASP3] Impossible de trouver l'objet dans la collection corr

ASP

Discussions similaires

Partager

Partager