Sujet Précédent Sujet Suivant

Ca marche po!

sschupp Messages postés 63 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 18 mai 2006 - 25 juin 2003 à 16:44
cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 - 27 juin 2003 à 12:06
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

Réponse 1 / 3
cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 5
25 juin 2003 à 19:20
Recherche sur google le code d'erreur donné par ASP :
- erreur '80004005'

Romelard Fabrice (Alias F___)
0
Réponse 2 / 3
sschupp Messages postés 63 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 18 mai 2006
27 juin 2003 à 11:41
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.
0
Réponse 3 / 3
cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 5
27 juin 2003 à 12:06
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___)
0

Discussions similaires

melangeur qui marche po
astrowars -
minet03 -

13 réponses
Comment connecter un Socket ( sock ) à travers un proxy ?
Biggoude -
7amo -

4 réponses
this.Controls marche po :(
Fildomen -
Coolpix08 -

3 réponses
/ctcp ??="marche pô :/"
cs_CoolWave -
kenshin15 -

1 réponse
std erase ca marche pô
Amanobuo -
vecchio56 -

5 réponses
Rejoignez-nous