Je n'arrive pas à enregistrer une donnée dans ma table access [Résolu]

[beegees]

Bonjour tout le monde,

J'ai créé une varialbe qui permet de récupérer le contenu d'une zone de texte, elle fonctionne avec un response.write.

Par contre, je n'arrive pas à enregistrer la valeur dans ma base de donnée.

comment = Request.Form("textarea")
txtSQL = ""
txtSQL = "update [Comments] set [Comment] = '" & comment & "'"
response.write("ici " & comment)
cnn.Execute (txtSQL)

La table s'appelle Comments, le champ s'appelle "comment" et ma variable Vcomment.

ça n'enregistre pas mais il joint la table car quand elle est ouverte en mode création il dit qu'elle n'est pas accessible et me donne ce message :

Microsoft][Pilote ODBC Microsoft Access] La table 'Comments' est déjà ouverte en mode exclusif par un autre utilisateur, ou elle est déjà ouverte par l'interface utilisateur et ne peut pas être manipulée par programmation.

s'est bien la preuve que le path est ok ?

Je me demande aussi comment faire pour que l'information ne soit pas écrasée mais bien placée après la dernière information enregistrée ?

Avec un where is NULL ?

Merci d'avance pour votre aide.

beegees

[roro06]

(Re)Bonjour

Que donne

Code :

Response.write(txtSQL)

?

Attention : une telle requete, sans clause where, mettra à jour TOUS les enregistrements de la table.

Dans ton cas, si cela fait suite à ton post précédent, il vaut mieux faire un insert :

Code :

txtSQL="insert into Comments(Comment) values('" & comment & "')"

[beegees]

Envoyé par roro06

(Re)Bonjour

Que donne

Code :

Response.write(txtSQL)

?

Attention : une telle requete, sans clause where, mettra à jour TOUS les enregistrements de la table.

Dans ton cas, si cela fait suite à ton post précédent, il vaut mieux faire un insert :

Code :

txtSQL="insert into Comments(Comment) values('" & comment & "')"

(Re)Bonjour et merci pour ton dévouement.

Oui en effet ça fait suite à l'autre poste, j'ai suivi ton conseil en essayant de mettre dans une tables les commentaires.

Il y'a une amélioration, une ligne blanche se crée mais rien ne s'écrie.

si je tape "bonjour" dans le textarea, il affiche avec response.write "bonjour" donc ça, ça fonctionne bien.

Tu vois d'où pourrais venir le problème ?

Merci encore pour ton aide.

beegees

[beegees]

ça y'est j'y suis et grâce à toi

Tu es le des

Un super grand pour ton aide et pour ton dévouement.

En fait s'était Vcomment et pas comment la variable.

@ très bientôt

beegees

[beegees]

Re,

Il y'a un seul hic (que tu dois connaître) s'est que l'on ne peut pas utilser le ' (apostrophe) dans le text aera.

Beegees

[roro06]

Il faut doubler les cotes dans ta requete :

Code :

1
2
 
comment=replace(comment, "'", "''")

[beegees]

Re,

Merci pour ta réponse.

ça fonctionne merveilleusement bien, surtout quand je place bien ton code

Un super grand merci, j'ai appris énormément aujourd'hui avec toi.

Tu es nouveau sur ce forum ? Je suis vraiment content que tu sois là.

Encore un grand

beegees

[Immobilis]

Salut,

Envoyé par beegees

Microsoft][Pilote ODBC Microsoft Access] La table 'Comments' est déjà ouverte en mode exclusif par un autre utilisateur, ou elle est déjà ouverte par l'interface utilisateur et ne peut pas être manipulée par programmation.

Ce message survient quand le compte utilisateur n'a pas suffisement de privilèges et que la base Access est déjà ouverte. Il faut donner au compte internet les droits de modification. Sinon, il risque d'y avoir des conflit lorsque plusieurs utilisateurs vont accéder à la base.

A+

[beegees]

Merci Immobilis,

Le contenu d'une zone de texte sait maintenant être sauvegardé dans ma tablea access.

Le seul hic, seule la première ligne est enregistrée, pas les autres.

C'est à dire que si je mets dans ma zone de texte :

Salut tout le monde

[Saut à la ligne]

Comment ça và ?

Je n'aurai que Salut tout le monde.

Tu crois qu'il y'a moyen de régler cela ?

Merci encore pour ton aide.

beegees

[Immobilis]

Il est probable que le retour à la ligne pose problème.
Tu peux faire un "Response.write(txtSQL)" et nous dire ce que cela donne?

Si la requete SQL est interrompue, il faut faire un

Code :

replace(Request.Form("textarea"), vbcrlf, "<br />")

A+

[beegees]

Salut Immobilis,

Merci pour ta réponse.

J'ai travaillé tard hier soir mais je suis arrivé à un résultat avec ceci :

Code :

1
2
3
4
5
6
7
8
Vcomment = Request.Form("textarea")
'response.write("Vcomment " & Vcomment)
Vcomment2 = Replace(Vcomment,Chr(10),"#" )  
'response.write("Vcomment2 " & Vcomment2)
Vcomment3 = Replace(Vcomment2,Chr(13),"#" )
'response.write("Vcomment3 " & Vcomment3)  
Vcomment4 = Replace(Vcomment3,"'","''" )
'response.write("Vcomment4 " & Vcomment4)

Je peux donc mettre un grand

Merci pour ton aide.

beegees