Discussion :

[alexheyt]

Bonjour,

je fait un update de mes données dans une db
donc je modifie en lui spécifiant que c'est bien la position 1 ou 2 que je veux modifié :
qqun peut m'aider j'en ai marre je me fais des cheveux blanc rien que pour ç

Merci d'avance.

j'ai ceci comme erreur :

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/admin/mem/memmodmod.asp, line 28

et voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<%
'-------récupération des données saisies dans le formulaire-
		'Ref_mod=request.form("Ref_mod")
        nom=request.form("nom")
		prenom=request.form("prenom")
		user=Request.Form("login")
        pass=Request.Form("pass")
'---------transformation d'un format texte en numérique avec CINT()
		Ref_mod=.cint(request.form("Refmod"))
'---------remplacement des caractères incompatibles-----------
%>
 
<%'-------déclaration de la base------------------------------
chnCon ="DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & server.mappath("../../../") & "\scripts\inscriptions.mdb"%>
 
<%'-------création de la connection et du recordset-----------
Set ObjCon = Server.CreateObject("ADODB.Connection")
ObjCon.Open chnCon
Set ObjRs = Server.CreateObject("ADODB.Recordset")%>
 
<%'-------définition et exécution de la requête---------------
 
 
SQLs0 = "  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci='"&Ref_mod&"'  "
response.Write("  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci='"&Ref_mod&"'  ")
'where ID_Inscript='"&Ref_mod&"' 
ObjRs.Open SQLs0 , ObjCon%>
 
<%'-------fermeture de la connection et du recordset----------
Set ObjrRs = Nothing
ObjCon.Close
Set ObjCon = Nothing%>

[franculo_caoulene]

Salut,

Il donne quoi ton response.write? Et ton Ref_mod t'es sûr que c'est du texte?
Vérifies que rien n'est à null et vérifies aussi les types dans la bdd.

[alexheyt]

Update usciadm Set nom='Michel',prenom='Coenen',login='mimi',pass='momo' Where ID_usci='1'

mais don en fait je présise que Ref_mod est un nombre en faisant cint

où :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ref_mod=cint(request.form("Refmod"))

[alexheyt]

mon ID est num auto dans ma db.
et évidement il est cléf prim mais ç n'a pas d'incidance sur mon prob ç.

[franculo_caoulene]

Ben si! Si c'est un numérique il faut enlever les quotes dans la requête sql!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Update usciadm Set nom='Michel',prenom='Coenen',login='mimi',pass='momo' Where ID_usci=1

[alexheyt]

C'est fait mais j'ai toujours la même réponse de mon server.

hououou je vais m'aracher les cheveux

cint sers t'il à qqch dans ce cas précis??

et je renvoie mon code + la réponse write + la rep server:

Update usciadm Set nom='Michel',prenom='Coenen',login='mimi',pass='momo' Where ID_usci=1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
 
[b]Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 
 
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. 
 
/admin/mem/memmodmod.asp, line 28 [/b]
 
 
 
<%
'-------récupération des données saisies dans le formulaire-
		'Ref_mod=request.form("Ref_mod")
        nom=request.form("nom")
		prenom=request.form("prenom")
		user=Request.Form("login")
        pass=Request.Form("pass")
'---------transformation d'un format texte en numérique avec CINT()
		Ref_mod=cint(request.form("Refmod"))
'---------remplacement des caractères incompatibles-----------
%>
 
<%'-------déclaration de la base------------------------------
chnCon ="DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & server.mappath("../../../") & "\scripts\inscriptions.mdb"%>
 
<%'-------création de la connection et du recordset-----------
Set ObjCon = Server.CreateObject("ADODB.Connection")
ObjCon.Open chnCon
Set ObjRs = Server.CreateObject("ADODB.Recordset")%>
 
<%'-------définition et exécution de la requête---------------
 
 
SQLs0 = "  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci='"&Ref_mod&"'  "
response.Write("  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci="&Ref_mod&"  ")
'where ID_Inscript='"&Ref_mod&"' 
ObjRs.Open SQLs0 , ObjCon%>
 
<%'-------fermeture de la connection et du recordset----------
Set ObjrRs = Nothing
ObjCon.Close
Set ObjCon = Nothing%>

[alexheyt]

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/admin/mem/memmodmod.asp, line 28

[franculo_caoulene]

Je vois pas ta ligne 28, indiques là.

[alexheyt]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
1<%
2'-------récupération des données saisies dans le formulaire-
3		'Ref_mod=request.form("Ref_mod")
4       nom=request.form("nom")
5		prenom=request.form("prenom")
6		user=Request.Form("login")
7        pass=Request.Form("pass")
8'---------transformation d'un format texte en numérique avec CINT()
9		Ref_mod=cint(request.form("Refmod"))
10'---------remplacement des caractères incompatibles-----------
11%>
12
13<%'-------déclaration de la base------------------------------
14chnCon ="DRIVER={Microsoft Access Driver (*.mdb)};" _
15   & " DBQ=" & server.mappath("../../../") & "\scripts\inscriptions.mdb"%>
16
17<%'-------création de la connection et du recordset-----------
18Set ObjCon = Server.CreateObject("ADODB.Connection")
19ObjCon.Open chnCon
20Set ObjRs = Server.CreateObject("ADODB.Recordset")%>
21
22<%'-------définition et exécution de la requête---------------
23
24
25SQLs0 = "  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci='"&Ref_mod&"'  "
26response.Write("  Update usciadm Set nom='"&nom&"',prenom='"&prenom&"',login='"&user&"',pass='"&pass&"' Where ID_usci="&Ref_mod&"  ")
27'where ID_Inscript='"&Ref_mod&"' 
28ObjRs.Open SQLs0 , ObjCon%>

mais de fait la 28 exécute la 27 donc c'est en réalité ligne 27 que le problème se pose

[franculo_caoulene]

je rêve ou tu as retiré les quotes dans le response.write mais pas dans la VRAIE requête :

[alexheyt]

Ouaip .....

scuse-moi fin de journée

Merci t'aurra un gros bisous pour la Noël

[franculo_caoulene]

C'est bien mais avant ça lis bien ma signature...

[alexheyt]

pour situer l'histoire des sex je ne suis pas un mec comme ç c'est plus clair

[franculo_caoulene]

Ca t'empêche pas te cliquer sur le bouton résolu

[Edit] merci [/Edit]

[alexheyt]

C'est fait

Merci pour ton aide précieuse ciao