G une fonction 'ajout' qui me permet normalement d'écrire dans une base de données access. Seulement, il semblerait qu'au niveau du 'update', ça ne passe pas.
msg d'errreur lu : Microsoft OLE DB Provider for ODBC Drivers erreur '80004005'
[Microsoft][Pilote ODBC Microsoft Access][la référence de mon fichier et de ma ligne, celle qui correspond à mon update]
Voici la fonction :
function Ajouter ()
'Permet la gestion d'un ajout suite à un click sur le bouton ajouter
SQL_ajout = "select * from classification"
set rs_ajout = server.CreateObject("ADODB.Recordset")
rs_ajout.open SQL_ajout, conn, 3, 3
rs_ajout.addnew
'Choix de la valeur de règne
if request.Form("regne_text") <> "Ajouter un nouveau règne..." then
rs_ajout("regne") = request.Form("regne_text")
elseif request.Form("regne") <> "*" then
rs_ajout("regne") = request.Form("regne")
else%>
<script language="JavaScript"%>
alert("Le champ règne n'a pas été renseigné !")
</script>
<%exit function
end if
'Choix de la valeur d'embranchement
if request.Form("embranchement_text") <> "Ajouter un nouvel embranchement..." then
rs_ajout("embranchement") = request.Form("embranchement_text")
elseif request.Form("embranchement") <> "*" then
rs_ajout("embranchement") = request.Form("embranchement")
else%>
<script language="JavaScript"%>
alert("Le champ embranchement n'a pas été renseigné !")
</script>
<%exit function
end if
'Choix de la valeur de classe
if request.Form("classe_text") <> "Ajouter une nouvelle classe..." then
rs_ajout("classe") = request.Form("classe_text")
elseif request.Form("classe") <> "*" then
rs_ajout("classe") = request.Form("classe")
else%>
<script language="JavaScript"%>
alert("Le champ classe n'a pas été renseigné !")
</script>
<%exit function
end if
'Choix de la valeur d'ordre
if request.Form("ordre_text") <> "Ajouter un nouvel ordre..." then
rs_ajout("ordre") = request.Form("ordre_text")
elseif request.Form("ordre") <> "*" then
rs_ajout("ordre") = session ("aordre")
else
rs_ajout("ordre") = ""
end if
'Choix de la valeur de famille
if request.Form("famille_text") <> "Ajouter une nouvelle famille..." then
rs_ajout("famille") = request.Form("famille_text")
elseif request.Form("famille") <> "*" then
rs_ajout("famille") = request.Form("famille")
else
rs_ajout("famille") = ""
end if
'Choix de la valeur de genre
if request.form("genre") = "" then%>
<script language="JavaScript"%>
alert("Le champ genre n'a pas été renseigné !")
</script>
<%exit function
else
rs_ajout("genre") = request.Form("genre")
end if
'Choix de la valeur d'espèce et de nom courant
rs_ajout("espece") = request.Form("espece")
rs_ajout("nom_courant") = request.form("nom")
'Vérification de l'abscence de cette espèce dans la base
SQL_verif = "select espece from classification where genre = '" & request.Form("genre") & "';"
set rs_verif = server.CreateObject("ADODB.Recordset")
rs_verif.open SQL_verif, conn, 3, 3
if not rs_verif.eof or not rs_verif.bof then
rs_verif.movefirst
while not rs_verif.eof
if rs_verif("espece") = request.Form("espece") then%>
<script language="JavaScript"%>
alert("Cette espèce est déjà enregistrée !")
</script>
<%exit function
end if
rs_verif.movenext
wend
end if
rs_verif.close
'Si l'espèce est absente, on ajoute, on ferme la connexion et on quitte cette fenêtre
rs_ajout.update%>
<script language="JavaScript">
self.close()
</script>
<%end function