ASP

[Résolu] formulaire asp et base de données access et iis

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] formulaire asp et base de données access et iis

thunderbird54

Bonjour à tous,

Je dois mettre en ligne un formulaire asp renvoyant les résultats vers une base de donnée Access.
Le formulaire a été crée à la base par une secretaire avec l'assistant FrontPage. Je l'ai retravaillé depuis que j'ai découvert asp vu qu'avec frontpage c'etait pas super!

voici le problème :

Code :

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access] Le champ 'Résultats.titre' ne peut pas être une chaîne vide.

le problème a lieu lors de l'update.

Voici le code que j'ai un peu allégé pour une meilleure lisibilité.

Code :

<%
'On Error Resume Next
strErrorUrl = ""
if Request.ServerVariables("REQUEST_METHOD" ) = "POST" Then
'Err.Clear
// Ouverture de la connexion
Set fp_conn = Server.CreateObject("ADODB.Connection" )
Set fp_rs = Server.CreateObject("ADODB.Recordset" )
fp_conn.Open Application("inscriptionv2_ConnectionString" )
fp_rs.Open "Résultats", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
Dim pb
pb=0
// Vérification des contraintes sur les champs du formulaire
if Request.form("NomComplet" )<> "" Then
fp_rs("NomComplet" )=Request.form("NomComplet" )
else
response.write("Il manque votre nom! " )
pb=1
end if
if Request.form("unite" )<> "" Then
fp_rs("unite" )=Request.form("unite" )
else
response.write("Il manque votre unité! " )
pb=1
end if
if Request.form("groupement" )<> "" Then
fp_rs("groupement" )=Request.form("groupement" )
else
response.write("Il manque votre groupement! " )
pb=1
end if
if Request.form("TelephoneBureau" )<> "" Then
fp_rs("TelephoneBureau" )=Request.form("TelephoneBureau" )
end if
if Request.form("TelephonePortable" )<> "" Then
fp_rs("Telephoneportable" )=Request.form("TelephonePortable" )
end if
if Request.form("Email" )<> "" Then
fp_rs("Email" )=Request.form("Email" )
else
response.write("Il manque votre email! " )
pb=1
end if
if Request.form("inscription" )<> "" Then
fp_rs("inscription2" )=Request.form("inscription" )
else
response.write("Il manque les dates d'inscription! " )
pb=1
end if
if Request.form("presentation" )<> "" Then
fp_rs("presentation1" )=Request.form("presentation" )
if Request.form("presentation" )="oui" and Request.form("titre" )<> "" Then
fp_rs("titre" )=Request.form("titre" )
end if
if Request.form("presentation" )="oui" and Request.form("titre" )= "" Then
response.write("Quel est le titre de votre présentation ? " )
pb=1
end if
if Request.form("presentation" )="non" then
fp_rs("titre" )="pas de présentation"
end if
else
response.write("Faites vous une présentation? " )
pb=1
end if
if Request.form("repas" )<> "" Then
fp_rs("repas2" )=Request.form("repas" )
end if
if Request.form("transport" )<> "" Then
fp_rs("transport3" )=Request.form("transport" )
end if
if Request.form("question" )<> "" Then
fp_rs("question" )=Request.form("question" )
end if
if Request.ServerVariables("HTTP_USER_AGENT" )<> "" Then
fp_rs("Type_de_navigateur" )=Request.ServerVariables("HTTP_USER_AGENT" )
end if
fp_rs("Date_de_dernière_modification" )=Now
if Request.ServerVariables("REMOTE_HOST" ) <> "" Then
fp_rs("Nom_de_l'ordinateur_distant1" )=Request.ServerVariables("REMOTE_HOST" )
end if
if Request.ServerVariables("REMOTE_USER" ) <> "" Then
fp_rs("Nom_d'utilisateur1" )=Request.ServerVariables("REMOTE_USER" )
end if
//S'il y a un problème sur un des champs, on n'enregistre pas les données dans la base de données.
if pb=1 then
response.write("L'inscription n'a pas été réalisée " )
else
fp_rs.AddNew
fp_rs.Update
fp_rs.Close
Response.Redirect "confirmeInscriptionV2.asp"
end if
// fermeture de la connexion
fp_conn.Close
'Session("FP_SavedFields" )=arFormFields0
'Session("FP_SavedValues" )=arFormValues0
end if

Message édité par thunderbird54 le 20-05-2005 à 20:43:27

Publicité

Flyman30

Change d'éditeur, car là c'est carrément illisible :sweat:

---------------
planuldep | Association pêche à la Sempé

azzz

Je ne suis pas réellement sûr que ce soit ca (je ne connais pas toutes les subtilités du langage je n'ai qu'un mois d'experience sous ASP) mais je ne vois pas de requete d'insertion :sweat:

Flyman30

azzz a écrit :

Je ne suis pas réellement sûr que ce soit ca (je ne connais pas toutes les subtilités du langage je n'ai qu'un mois d'experience sous ASP) mais je ne vois pas de requete d'insertion :sweat:

si il y a cette ligne

fp_rs.AddNew

mais c'est trop illisible pour que j'ai envie de me pencher sur cette page :sweat:

---------------
planuldep | Association pêche à la Sempé

thunderbird54

il faut que je fasse quoi pr rendre plus lisible?

azzz

thunderbird54 a écrit :

il faut que je fasse quoi pr rendre plus lisible?

aere le code, y'a bcp de blocs de code assez durs à lire. par exemple:

Code :

# arFormFields0(0) = "TelephoneBureau"
# arFormDBFields0(0) = "TelephoneBureau"
# arFormValues0(0) = Request("TelephoneBureau" )
# arFormFields0(1) = "question"
# arFormDBFields0(1) = "question"
# arFormValues0(1) = Request("question" )
# arFormFields0(2) = "repas"
# arFormDBFields0(2) = "repas2"
# arFormValues0(2) = Request("repas" )

Code :

# arFormFields0(0) = "TelephoneBureau"
# arFormDBFields0(0) = "TelephoneBureau"
# arFormValues0(0) = Request("TelephoneBureau" )
# arFormFields0(1) = "question"
# arFormDBFields0(1) = "question"
# arFormValues0(1) = Request("question" )
# arFormFields0(2) = "repas"
# arFormDBFields0(2) = "repas2"
# arFormValues0(2) = Request("repas" )

thunderbird54

ca y est, voici la version du code avec jedit

le problème a évolué j'ai refait une partie du script a la main.

thunderbird54

trouvé! lol

le addnew est mal placé.

merci

Flyman30

thunderbird54 a écrit :

trouvé! lol

le addnew est mal placé.

merci

Tu vois avec un code plus clair on s'y retrouve quand même mieux

---------------
planuldep | Association pêche à la Sempé

FORUM HardWare.fr

Programmation

ASP

[Résolu] formulaire asp et base de données access et iis

Sujets relatifs
connexion à une BD access	formulaire + popup
vb.NET: Lire la base de registre côté client	[resolu] centrage verticale
MySQL ? PostgreSQL ? Que chosir pour une grosse base ?	Bloquer certains champs d'un formulaire
Script appelant un autre... [RESOLU]	transfert de données entre 2 bases
Probleme de formulaire help svp	Optimiser les temps d'accès sous Access
Plus de sujets relatifs à : [Résolu] formulaire asp et base de données access et iis

Page générée en 0.101 secondes