[ASP][Sql Server 2005] Problème de select *

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:

---

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:

Citation:

---

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:

---

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:ccool:

Bonjour,

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

Code:

---

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

---

++

Merci pour la réponse

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

http://hattabisamyr.free.fr/Photos/requete_sql.JPG

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

- CvFichCp
- CvFichId
- CvFichVille
- CvFichSousHebTypId
- CvFichHebTypId

++

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:

---

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

---

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:

---

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:

---

1 2	dim objConection,rstSQL

---