Discussion :

[flo456]

bonjour.

voila, j'ai un simple formulaire avec différents champs.

texte
date
mémo

ma requete de suppression fonctionne seulement si mon champs mémo est en texte..

ma question :

comment écrire ma requete avec un une suppression depuis un champs le champs Titre qui est un type mémo?

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
 
<%
 
dim conn
dim Titre
 
dim strSQLDel
 
set conn = server.createObject("ADODB.Connection")
conn.open "DBQ=" & Server.Mappath("/intranet/DB/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
 
 
Titre = Request.QueryString("Titre")
 
strSQLDel = "DELETE * FROM AjoutRegle WHERE Titre LIKE ' " & Titre & " ' "
 
conn.Execute(strSQLDel)
 
conn.close
set conn = nothing
Response.redirect("regles.asp")
%>

merci pour votre aide

[Immobilis]

Salut,

comment écrire ma requete avec un une suppression depuis un champs le champs Titre qui est un type mémo?

C'est pas très clair.

A+

[flo456]

Dans mon formulaire j'ai 3 champs :

Titre : champs mémo
Regle : champs mémo
Date : champs Date/Heure

une fois les infos enregistrés, je liste ma base dans une page toute simple.

dans cette page : listeRegle.asp
j'ai une image "poubelle" à la fin de chaque ligne (regle) qui permet de supprimer la règle en question.

sur cette image j'ai le code suivant :

Code :

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

<a href="#" onClick="CheckDelete('<%=RS("Titre")%>')"><img src="../../Image/drop.png" alt="Supprimer" width="11" height="13" border="0"></a>

ou je récupère le Titre.

et dans la page qui supprime j'ai le code suivant :

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
 
dim conn
dim Titre
 
dim strSQLDel
 
set conn = server.createObject("ADODB.Connection")
conn.open "DBQ=" & Server.Mappath("/intranet/DB/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
 
 
Titre = Request.QueryString("Titre")
 
strSQLDel = "DELETE * FROM AjoutRegle WHERE Titre LIKE '" & Titre & "'"
 
conn.Execute(strSQLDel)
 
conn.close
set conn = nothing
Response.redirect("regles.asp")

sauf que avec ce code, la règle ne se supprime pas.

Par contre si je change mon champs Titre mémo en champs texte, la règle se supprime sans soucis.

j'espère que c'est un peu plus clair.

merci

[Immobilis]

Le champ de type memo a certaines particularités (je ne les connais pas toutes) comme ne pouvant pas être groupé dans une requete car trop long.

Cela marche-t-il si tu commente

Code :

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

1
2
'conn.Execute(strSQLDel)
response.write(strSQLDel)

et que tu passe la requete SQL directement dans Access?

Sinon, il me semble risqué de supprimer un enregistrement en se basant sur son titre. Ce n'est pas une info discriminante. Tu risques de supprimer plusieurs enregistrements d'un coup. Il vaudrait mieux prendre un identifiant.

A+

[flo456]

ok alors je vais plustot supprimer par rapport à l'ID. je vais le mettre en champs caché.

merci pour les infos.

[Immobilis]

ok alors je vais plustot supprimer par rapport à l'ID. je vais le mettre en champs caché.

Je mettrai plutôt l'id dans le lien. Mais je ne sais pas comment fonctionne "CheckDelete".

A+