ASP et access champ memo probleme
ASP et access champ memo probleme - ASP - Programmation
Marsh Posté le 25-02-2009 à 19:25:33
Ci vous avez autre moyen de faire un box et de faire afficher des commentaire je suis ouvert aussie Merci 
Marsh Posté le 31-03-2009 à 19:16:30
Lorsque tu insert ou modifie des champs texte, fait toujours un Replace des apostrophes comme ceci :
nom = Replace(Request("nom" ),"'","''" )
Marsh Posté le 01-05-2011 à 20:09:28
slt je ss debutante en asp.net et j'ai trouvé de difficulté d'utiliser dataGrid view : j'ai ajouter un colonne de type button link dans le dataGridview je veux lorsque je clik sur le button link enregistre les informations c urgent j'ai un controle demain
Sujets relatifs:
- [Access] Regrouper plusieurs résultats d'1 requête sur 1 seule ligne?
- Problème avec URL rewriting
- problème #IND et #INF ,C++
- [Projet] Problème avec automatisation de bouton
- [Pascal / SDL] Problème pour gérer les Threads
- Access, bouton case a cocher
- Problème application client/server, envoie et reception de bytes
- probleme en c
- [Java] Probleme de cast
- problème surcharge opérateur
Marsh Posté le 25-02-2009 à 16:35:57
Bonjour à tout et à toutes, j'ai un gros probleme j'essais de me faire un box de commentaire avec ma page ASP mes les apostrophe et les point sont prise en charge par la base Access alors voilà mon problème.
Il y a t'il un moyen de dire a ma base de prendre tous ce qui est écrie dans textarea sens en prendre compte comme une commande???
ma page ASP:
<% Response.Buffer=True %>
<HTML>
<HEAD>
<TITLE>Carnet d'adresses</TITLE>
</HEAD>
<center><h1>Appréciation du site</h1></center>
<%
Dim Rs, Con, lenom, leprenom, lecommentaire
'Création de l'objet de connexion
Set Con=Server.CreateObject("ADODB.Connection" )
'Chemin d'accès à la BD
dbPath=Server.MapPath("./carnet.mdb" )
'Connexion
ConStr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath
Con.open Constr
set rs=con.execute("Select * FROM Carnet ORDER BY Prenom" )
If (Not rs.EOF) or (Not rs.BOF) Then
rs.MoveFirst
End If
%>
<center>
<table border="2">
<tr>
<td width="40" align="center"><b>Nom</b></a></td>
<td width="40" align="center"><b>Prenom</b></a></td>
<td width="100" align="center"><b>Commentaires</b></a></td>
</tr>
</center>
<%
If Not rs.EOF Then
While Not rs.EOF
Response.Write("<tr>" )
Response.Write("<td>" )
Response.Write(rs("Nom" ))
Response.Write("</td>" )
Response.Write("<td>" )
Response.Write(rs("Prenom" ))
Response.Write("</td>" )
Response.Write("<td>" )
Response.Write(rs("Commentaires" ))
Response.Write("</td>" )
Response.Write("</tr>" )
rs.MoveNext
Wend
Else
Response.Write "pas d'enregistrement"
End If
Response.Write("</table>" )
rs.Close
Set rs=Nothing
con.close
set con=nothing
%>
<br><br><br>
<TABLE BORDER="0" cellpadding="0" cellspacing="0">
<tr>
<TD Width="150">
<FORM method=post action="carnet2.asp">
<center><b>Nouveau Nom</b></center><br></td>
<tr>
<td>Prenom :</td>
<td><INPUT type=test name="Nom" ></td>
</tr>
<tr>
<td>Nom :</td>
<td><INPUT type=text name="Prenom"></td>
</tr>
<tr>
<td>Exprimer votre opinion :</td>
<td><textarea name="commentaires" rows=4 cols=24 size=55></textarea></td>
</tr>
</tr>
</table>
<input type="submit" name="action" value="Ajouter"> <input type="submit" name="action" value="Supprimer un numéro">
</FORM>
</html>
Ma page qui connecte a ma base et ma page ASP:
<% Response.Buffer = true %>
<HTML>
<Head>
<TITLE>Enregistrement d'un nom</title>
</HEAD>
<Body>
<%
'initialisation des variables
Dim sql_insert, Con, constr, lenom, leprenom, lecommentaire
if lcase(request.form("action" ))="ajouter" then
leNom=Request.Form("Nom" )
lePrenom=request.form("Prenom" )
leCommentaire=request.form("Commentaires" )
sql_insert = "insert into Carnet (Nom,Prenom,Commentaires) values ('" & leNom & "','" & lePrenom & "','" & leCommentaire & "')"
end if
if lcase(request.form("action" )) = "supprimer un numéro" then
lePrenom=request.form("Prenom" )
if lePrenom <> "" then
sql_insert = "delete * FROM carnet WHERE Prenom = '" & lePrenom & "' "
end if
end if
Set Con= server.CreateObject("ADODB.Connection" )
dbPath=server.MapPath("./carnet.mdb" )
constr= "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & dbpath
Con.open constr
Con.Execute sql_insert
Con.Close
Set Con=Nothing
Response.Redirect"./Carnet.asp"
%>
</body>
</html>
Ci il y a des erreure gener vous pas je prend pas ca perso !!
Merci d'avance