Ca marche po!

Signaler
Messages postés
63
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
18 mai 2006
-
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
-
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 baseSQL_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

3 réponses

Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Recherche sur google le code d'erreur donné par ASP :
- erreur '80004005'

Romelard Fabrice (Alias F___)
Messages postés
63
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
18 mai 2006

Alors, ds Google, y m'ont dit :
- soit g ma base qui est déjà ouverte : c pas totalement faux (g une page asp qui fonctionne de concert avec la page d'érronée, mais qui ouvre une autre table de la base)
- soit mon serveur est mal configuré (note : je fonctionne en local)
Dans les deux cas, comment expliquer que j'ai déjà réussi à utiliser cette page deux fois ? Mais g ne c pas pourquoi.
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Pour les connexions , requettes, ...

Regarde ici :
- http://www.asp-php.net/tutorial/asp-php/index.php?page=2

Un tutorial très bien fait y est mis à dispo.

Romelard Fabrice (Alias F___)