Discussion :

[Myrza]

Bonjour,

Cela fait une bonne heure que je me tire le reste de cheveux que j'ai avec ce problème.

Je fais une requête SQL pour lister une partie de mes fiches:

Code :

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

SELECT TOP(1) PERCENT WITH TIES * FROM CvFich WHERE CvFichOnLine=1  ORDER BY CvFichId

Ensuite je construit une fichier Xml pour l'envoi vers un web-service, or j'ai ce message d'erreur bidon de la part de Sql Server:

ADODB.Recordset erreur '800a0cc1'

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

/test/test.asp, ligne 107

Donc voici la ligne 107 (avec ce qui faut pour vous donner une idée du 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
32
33
34
35
36
37
 
dim objConection
	Set objConnection = Server.CreateObject("ADODB.Connection")
	objConnection.Open Application("MPM_strConnection")
	dim strSql
	strSql="SELECT TOP(1) PERCENT WITH TIES * FROM CvFich WHERE CvFichOnLine=1  ORDER BY CvFichId"
 
	set rstSQL = objConnection.execute (strSql)
 
(...)
 
Do Until rstSQL.EOF
 
		'item
		set soapReq=soapReq.NewChild("item","")
		soapReq.FirstChild2 
		soapReq.AddAttribute "xsi:type","ns1:Hebergement"
 
			dim codep
				codep=rstSQL("CvFichCp")
			'reference
			set current=soapReq.NewChild("reference",rstSQL("CvFichId"))
			current.AddAttribute "xsi:type","xsd:string"
 
(...)
 
                        'ville
ligne	107 -->  	set current=soapReq.NewChild("ville",rstSQL("CvFichVille"))
			current.AddAttribute "xsi:type","xsd:string"
			'stype
		        set current=soapReq.NewChild("stype",convertSType(rstSQL("CvFichSousHebTypId"),rstSQL("CvFichHebTypId")))
			current.AddAttribute "xsi:type","xsd:string"
(...)
                        soapReq.GetParent2()
 
	                rstSQL.MoveNext
	Loop

Or je suis sur et certain de l'orthographe du champs, et le je vois pas d'autres solutions que de me tourner vers vous !

Merci d'avance pour votre aide

[mikedavem]

Bonjour,

Pouvez nous nous mettre le résultat de votre requête avec les noms de colonnes :

Code :

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

SELECT TOP(1) PERCENT WITH TIES * FROM CvFich WHERE CvFichOnLine=1  ORDER BY CvFichId

++

[Myrza]

Merci pour la réponse

Je pense que c'est ce que tu veux voir...

[mikedavem]

Est ce que toutes les colonnes suivantes qui sont dans votre code ont la bonne orthographe et / ou existent :

- CvFichCp
- CvFichId
- CvFichVille
- CvFichSousHebTypId
- CvFichHebTypId

++

[Myrza]

Bonjour ami lyonnais !

Merci de me répondre, oui tous les champs existent et sont bien orthographiés car je copie-colle directement pour être sur de l'orthographe.

PS: Même cette requête me donne la même erreur ... ça me soule un peu ce bug la.

Code :

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

SELECT TOP(1) PERCENT WITH TIES CvFichId,CvFichHebTypId,CvFichCp,CvFichVille,CvFichSousHebTypId,CvFichCodeinsee FROM CvFich WHERE CvFichOnLine=1  ORDER BY CvFichId

[Myrza]

Ca y'est je viens de comprendre le bug !!!

En fait les fonctions "convert..." sont dans un autre fichier et dans ces fonctions j'ai besoin d'accéder de nouveau à la base de données du coup je faisais comme ç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
function convertReg(codepostale,ordre)
	dim dpt
	dim objConection
	Set objConnection = Server.CreateObject("ADODB.Connection")
		objConnection.Open Application("MPM_strConnection")
	dim strSql
 
	dpt=Left(codepostale,2)
 
	if ordre="num" then
		strSql="SELECT KbGeoLocalRegionId FROM dbo.KbGeoLocalDept WHERE KbGeoLocalDeptNum='"&dpt&"' "		
		set rstSQL = objConnection.execute (strSql)
		convertReg=rstSQL("KbGeoLocalRegionId")
	else
		strSql="SELECT reg.KbGeoLocalRegionLib FROM   dbo.KbGeoLocalRegion AS reg INNER JOIN dbo.KbGeoLocalDept AS dptm ON dptm.KbGeoLocalRegionId = reg.KbGeoLocalRegionId WHERE dptm.KbGeoLocalDeptNum= '"&dpt&"'"		
		set rstSQL = objConnection.execute (strSql)
 
		convertReg= rstSQL("KbGeoLocalRegionLib")
	end if
 
end function

Or dans le script princpal mon resultset s'appelle aussi rstSQL, du coup quand j'arrivais à la fonction le rstSQL ecrasait la rstSQL principal et forcement plus moyen d'accès aux données que je voulais...
2 soirées sur ce blême "bidon".

Solution pensez bien à declarer vos variables, on ne sait jamais...

Code :

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

1
2
 
	dim objConection,rstSQL