Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: Besoin aide sur ASP/SQL

Envoyé: 26 octobre 2004, 4h15 par loicremy


J'ai été un peu flou, voilà pour préciser mon problème :

1) Je crée un jeu d'enregistrement sur une table A qui me retourne un certain nombre d'adresse d'hotels.

2) Je parcours tous les hôtels 1 par 1

3) A chaque hôtel, je prends son numéro identifiant unique

4) Je souhaiterai utiliser ce numéro pour rechercher dans une table B s'il existe ou pas un enregistremnt correspondant à l'identifiant de l'hôtel


Mon problème, c'est dans certain cas, il n'existe pas d'enregistrement correspondant dans la table B et si je fait tout en une seule requete,la jointure ne me renvoie plus d'enregistrement du tout.

De plus , en 'mode' unique, la requete ne permet pas de récuperer des champs textes.

Pour finir, dans certains cas, je doit récuperer plusieurs enregistrements dans la table B et les stocker dans une autre table. Ca serait plus simple de traiter ca à part.




Voici mon code qui pose problème.

J'ai précédement compilé les hôtel choisis et le recordset LISTE_PRODUITS correspond donc à A et NB_CHAMB à B


L'erreur qui survient est :


**********************
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

/SP1/02_hebergement_locatif_enrichissement.asp, line 47
*******************


La ligne 47 est celle ou je veu afficher le nb_chambre, cette erreur arrive au deuxième parcours de la boucle.


*****VVVVVVVVVVVVVVVV CODE SOURCE VVVVVVVVVVVVVVVVVV*****

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/SP1.asp" -->
<!--#include file="../../Connections/OT_PTI_SQL.asp" -->
<%
Dim LISTE_PRODUITS
Dim LISTE_PRODUITS_numRows

Set LISTE_PRODUITS = Server.CreateObject("ADODB.Recordset")
LISTE_PRODUITS.ActiveConnection = MM_SP1_STRING
LISTE_PRODUITS.Source = "SELECT * FROM provisoire"
LISTE_PRODUITS.CursorType = 0
LISTE_PRODUITS.CursorLocation = 2
LISTE_PRODUITS.LockType = 1
LISTE_PRODUITS.Open()

LISTE_PRODUITS_numRows = 0
%>

<%
do until LISTE_PRODUITS.EOF
%>

<%
Dim NB_CHAMB__la_reference
NB_CHAMB__la_reference = "0"
If ((LISTE_PRODUITS.Fields.Item("id_offre").Value) <> "") Then
NB_CHAMB__la_reference = (LISTE_PRODUITS.Fields.Item("id_offre").Value)
End If
%>


<%
Dim NB_CHAMB
Dim NB_CHAMB_numRows

Set NB_CHAMB = Server.CreateObject("ADODB.Recordset")
NB_CHAMB.ActiveConnection = MM_OT_SAUMUR_SQL_STRING
NB_CHAMB.Source = "SELECT DISTINCT NBCHAMBRES.VALEUR FROM dbo.CRITPROD AS NBCHAMBRES INNER JOIN dbo.MODALITE AS MODA_NBCHAMBRES ON (NBCHAMBRES.CRITERE = MODA_NBCHAMBRES.CRITERE) AND (NBCHAMBRES.MODALITE = MODA_NBCHAMBRES.MODALITE) WHERE (((MODA_NBCHAMBRES.MODALITE)=8) AND ((MODA_NBCHAMBRES.CRITERE)=856000143) AND ((NBCHAMBRES.PRODUIT) Like '" + Replace(NB_CHAMB__la_reference, "'", "''") + "') AND ((NBCHAMBRES.MARQUAGE)<>1) AND ((NBCHAMBRES.MARQUAGE)<>1));"
NB_CHAMB.CursorType = 1
NB_CHAMB.CursorLocation = 2
NB_CHAMB.LockType = 1
NB_CHAMB.Open()

NB_CHAMB_numRows = 0
%>
<%
Response.Write(la_reference & (NB_CHAMB.Fields.Item("VALEUR").Value) & "<br>") '***** Ceci est la ligne 47
%>

<%
NB_CHAMB.Close()
Set NB_CHAMB = Nothing
%>

<%
LISTE_PRODUITS.MoveNext
loop
%>

<html>
<p>02 - Hébergement locatif - Enrichissement OK </p>
</html>
<%
LISTE_PRODUITS.Close()
Set LISTE_PRODUITS = Nothing
%>



VVVVVVVVVVVVVVV Fin du code sorce VVVVVVVVVVVV

Voila, j'ai été bavard, mais j'espère que ça va me permettre d'avancer. Pour les habitués, c'est sûrement simple mais je ne vois pas très bien la soluce pour l'instant.

Merci d'avance


Réponses

 sp spRe: Besoin aide sur ASP/SQL Salem26/10/2004
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte