PB base de données
oriviera
Messages postés
47
Statut
Membre
-
Oriviera -
Oriviera -
Bonjour je suis nouveau
Voilà j'ai une grosse galère depuis 15 jours avec ASP VBSCRIPT et ACCESS, j'ai essayé plein de scripts mais rien ne fonctionne correctement, rien ne vaut un aperçu du pb
voici le code
Dim conn, new_id, new_pass, req, new_acces, new_date, chaine
Set conn=Server.createObject("ADODB.connection")
conn.open "amis","",""
new_id=request.form("nom")' recuperation du nouveau identifiant
new_pass="motpasse" 'idem pour le nouveau pass
new_acces=request.form("prenom") 'idem pour le nouveau pass
new_date=request.form("civilite")
req="INSERT INTO LOGIN (ID_LOGIN, PWD, DERNIER_ACCES, DATE_VALIDATION) VALUES('" & new_id & "','" & new_pass & "','" & new_acces & "','" & new_date & "')"
conn.Execute(req) >>>>----LIGNE 34------->>>>>
conn.Close
set conn=nothing
et voici le résultat
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.
/Inscription/traitformenseignsav.asp, line 34
Voilà j'ai une grosse galère depuis 15 jours avec ASP VBSCRIPT et ACCESS, j'ai essayé plein de scripts mais rien ne fonctionne correctement, rien ne vaut un aperçu du pb
voici le code
Dim conn, new_id, new_pass, req, new_acces, new_date, chaine
Set conn=Server.createObject("ADODB.connection")
conn.open "amis","",""
new_id=request.form("nom")' recuperation du nouveau identifiant
new_pass="motpasse" 'idem pour le nouveau pass
new_acces=request.form("prenom") 'idem pour le nouveau pass
new_date=request.form("civilite")
req="INSERT INTO LOGIN (ID_LOGIN, PWD, DERNIER_ACCES, DATE_VALIDATION) VALUES('" & new_id & "','" & new_pass & "','" & new_acces & "','" & new_date & "')"
conn.Execute(req) >>>>----LIGNE 34------->>>>>
conn.Close
set conn=nothing
et voici le résultat
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.
/Inscription/traitformenseignsav.asp, line 34
A voir également:
- PB base de données
- Fuite données maif - Guide
- Base de registre - Guide
- Base de données vide tnt - Forum TNT / Satellite / Réception
- Tnt base de données vide - Forum TV & Vidéo
- Effacer les données de navigation sur android - Guide
2 réponses
il faut que tu crée une connection avec ta base de données
ensuite tu as oublié un request.form pour new_pass
Dim leFournisseur, laBase, conn
Set conn = Server.CreateObject("ADODB.connection")
leFournisseur = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
laBase = Server.MapPath(".") & adresse_de_ta_base
conn.Open leFournisseur & "DATA SOURCE=" & laBase
ensuite tu as oublié un request.form pour new_pass
Ca y est en partie, en fait le gros pb est que le script 500-100.asp est plein d'erreurs de syntaxe bref, j'ai pu en corriger une grande partie mais il semblerait que ce n'est pas assez car une fois que je suis arrivé à la fin les erreurs sont remontées et maintenant voilà où se trouverait l'erreur sais tu où je peux avoir un script tout ok pour commencer à connaitre mes erreurs et non celles de microbe soft STP
Merci
Nana
If Response.Buffer Then
Response.Clear Response.Status = "500 Erreur interne du serveur"
Response.ContentType = "text/html"
Response.Expires = 0
End If
Merci
Nana
If Response.Buffer Then
Response.Clear Response.Status = "500 Erreur interne du serveur"
Response.ContentType = "text/html"
Response.Expires = 0
End If
