Forum « Probleme de connexion a la base »

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>

<%

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