Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Probleme de connexion a la base

Envoyé: 12 janvier 2006, 8h00 par Mateache


J'ai un petit probleme pour ajouter un enregistrement a ma table. L'enregistrement ne s'ajoute pas. Sachez que ma table reservation est vide.

Code:
<% ' Date de création: 10/01/2006 %>
<html>
<body>
<!--#include file="fonctions.asp"-->
<%

On Error Resume Next
err=0
'Test les champs obligatoires
'----------------------------
if trim(request("nom_inter"))="" OR trim(request("pnom_inter"))="" OR trim(request("tel_inter"))="" OR trim(request("nom_invit"))="" OR trim(request("date_rep"))="" OR trim(request("nb_couv_prev"))="" OR trim(request("salon"))="selectionnez" OR trim(request("type_rep"))="selectionnez" then
call AfficheMessage("Erreur utilisateur","Attention les champs en rouges sont obligatoires !","","")
end if

'Chargement des objets ADO
'-------------------------
set conn=Server.createObject("ADODB.Connection")
set res=Server.createObject("ADODB.Recordset")
set invit=Server.createObject("ADODB.Recordset")
set inter=Server.createObject("ADODB.Recordset")
set typrep=Server.createObject("ADODB.Recordset")
set effectuer=Server.createObject("ADODB.Recordset")
set organisme=Server.createObject("ADODB.Recordset")
set Lesalon=Server.createObject("ADODB.Recordset")

'Ouverture de la connexion
'-------------------------
'call AfficheMessage ("DBQ=" & Server.mappath(".") & "/RepasMutuel.mdb","","","")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.mappath(".") & "/RepasMutuel.mdb"
if err<>0 then
Call AfficheMessage("Erreur Open Connection",err.description,"creer_reservation","")
response.end
end if

'Initialisation de la requête
'----------------------------
res.Open "SELECT * FROM _RESERVATION",conn,adOpenDynamic,adLockOptimistic
invit.Open "SELECT * FROM _INVITANT",conn,adOpenDynamic,adLockOptimistic
inter.Open "SELECT * FROM _INTERMEDIAIRE",conn,adOpenDynamic,adLockOptimistic
typrep.Open "SELECT * FROM _TYPE_REPAS",conn,adOpenDynamic,adLockOptimistic
effectuer.Open "SELECT * FROM _EFFECTUER",conn,adOpenDynamic,adLockOptimistic
organisme.Open "SELECT * FROM _ORGANISME",conn,adOpenDynamic,adLockOptimistic
Lesalon.Open "SELECT * FROM _SALON",conn,adOpenDynamic,adLockOptimistic
Lesalon.movefirst
numsal=0
while Lesalon.eof<>false and trim(request("salon"))<>"Autre"
if Lesalon.Fields("LIB")=trim(request("salon")) then
numsal=Lesalon.Fields("ID_SALON")
Lesalon.movelast
Else
Lesalon.movenext
End if
Wend

If trim(request("salon"))="Autre" then
Lesalon.AddNew
Lesalon.Fields("LIB")=trim(request("autre_salon"))
numsal=Lesalon.Fields("ID_SALON")
End if

organisme.movefirst
numorg=0
if trim(request("org"))="" then
numorg=""
Else
While not organisme.eof
if organisme.Fields("LIB")=trim(request("org")) then
numorg=organisme.Fields("ID_SALON")
organisme.movelast
Else
organisme.movenext
End if
Wend
if numorg=0 then
organisme.AddNew
organisme.Fields("LIB")=trim(request("org"))
numorg=organisme.Fields("ID_ORGANISME")
End if
end if

typrep.movefirst
numrep=0
While not typrep.eof
if typrep.Fields("LIB")=trim(request("type_rep")) then
numrep=typrep.Fields("ID_TYPE_REPAS")
typrep.movelast
Else
typrep.movenext
End if
Wend

invit.movefirst
numinvit=0
While not invit.eof
if invit.Fields("NOM")=trim(request("nom_invit")) then
numinvit=invit.Fields("ID_INVITANT")
invit.movelast
Else
invit.movenext
End if
Wend

If numinvit=0 then
invit.Addnew
numinvit=invit.Fields("ID_INVITANT")
invit.Fields("NOM")=trim(request("nom_invit"))
invit.Fields("REF_ORGANISME")=numorg
invit.Fields("CODE_BUDGETAIRE")=trim(request("code_budg"))
End if

inter.movefirst
numinter=0
While not inter.eof
if inter.Fields("NOM")=trim(request("nom_inter")) and inter.Fields("PNOM")=trim(request("pnom_inter")) and inter.Fields("TEL")=trim(request("tel_inter")) then
numinter=inter.Fields("ID_INTERMEDIAIRE")
inter.movelast
Else
inter.movenext
End if
Wend

If numinter=0 then
inter.Addnew
numinter=inter.Fields("ID_INTERMEDAIRE")
inter.Fields("NOM")=trim(request("nom_inter"))
inter.Fields("PNOM")=trim(request("pnom_inter"))
inter.Fields("TEL")=trim(request("tel_inter"))
inter.Fields("REF_INVITANT")=numinvit
End if

res.Addnew
numres=0
res.Fields("REF_TYPEREP")=numrep
res.Fields("REF_SALON")=numsal
res.Fields("DATE_RES")= Date()
res.Fields("DATE_REP")=trim(request("date_rep"))
res.Fields("HEURE_REP")=trim(request("heure_rep"))
res.Fields("NB_COUVERTS_PREV")=trim(request("nb_couv_prev"))

effectuer.Addnew
effectuer.Fields("REF_RESERVATION")=numres
effectuer.Fields("REF_INTERMEDIAIRE")=numinter

res.Update
res.close
set res=nothing

effectuer.Update
effectuer.close
set effectuer=nothing

typrep.Update
typrep.close
set typrep=nothing

Lesalon.Update
Lesalon.close
set Lesalon=nothing

invit.Update
invit.close
set invit=nothing

inter.Update
inter.close
set inter=nothing

org.Update
org.close
set org=nothing

conn.close
set conn=nothing

' Message de bon déroulement
'---------------------------

Call AfficheMessage("Enregistrement réservation","La réservation a bien été enregistrer.","","N'oubliez pas de confirmer votre réservation au maximum un jour avant la date du repas. Votre numéro de réservation est " & numres & ". Veillez à garder ce numéro il vous sera demandé lors de votre confirmation.")

%>
</body>
</html>



Voici le code de ma fonction AfficheMessage
Code:

<%
'Fichier fonctions.asp contenant des fonctions communes aux différents scripts
' ****************************************************************
'Fonction d'affichage des messages d'erreur
' -------------------------------------
Function AfficheMessage(titre,description,appel,remarque)
response.write "<html> <head> <title> Message d'erreur</title></head>"
response.write "<body bgcolor='#FFFFFF'>"
response.write "<table width='70%' border='1' align='center' bordercolor='#000000'>"
response.write "<tr bgcolor='#FFCCCC' bordercolor='#000000'>"
response.write "<td><div align='center'><b>" & titre & "</b></div></td></tr>"
response.write "<tr bordercolor='#FFFFFF'>"
response.write "<td>" & description & "</td></tr>"
response.write "<tr bordercolor='#FFFFFF'>"
response.write "<td>" & appel & "</td></tr>"
response.write "<tr bordercolor='#FFFFFF'>"
response.write "<td>" & remarque & "</td></tr>"
response.write "</tr></table></body></html>"
End Function
%>




Si vous voyez l'erreur faite moi signe


Réponses

 sp spRe: Probleme de connexion a la base Oznog14/2/2006
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