begin process at 2012 05 27 01:41:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de données

 > SUPPRIMER N'IMPORTE KEL CHAMPS DE N'IMPORTE KEL TABLE !! :)

SUPPRIMER N'IMPORTE KEL CHAMPS DE N'IMPORTE KEL TABLE !! :)


 Information sur la source

Note :
Aucune note
Catégorie :Base de données Classé sous :supression, table, champ, adodb Niveau :Initié Date de création :29/08/2001 Vu :4 284
Auteur : pi0up51

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

BOn c un chti code mais ki sert bien pour faire la partie ADMIN de votre site ou ...

Source

  • <%
  • ' Connection
  • suppr = request.Querystring("val")
  • if suppr = "" then
  • suppr = request.form("suppr")
  • end if
  • %>
  • <HTML>
  • <BODY>
  • <FONT SIZE=1><BR></FONT>
  • <TABLE WIDTH=95% HEIGHT=100% CELLPADDING=1 CELLSPACING=0>
  • <TR>
  • <TD WIDTH=20></TD>
  • <TD VALIGN=Top BGCOLOR=#000000>
  • <TABLE WIDTH=100% HEIGHT=100% CELLPADDING=1 CELLSPACING=0><TR>
  • <TD BGCOLOR=#FFFFFF vAlign=top>
  • <TABLE WIDTH=100% BORDER=0 CELLSPACING=4>
  • <TR>
  • <TD WIDTH=100% vAlign=Top><BR>
  • <TABLE height=2 cellSpacing=0 cellPadding=1 width="100%" bgColor=#004080 border=0>
  • <TBODY>
  • <TR>
  • <TD>
  • <TABLE height=20 cellSpacing=0 cellPadding=1 width="100%" bgColor=#EFE0DC border=0>
  • <TBODY>
  • <TR>
  • <TD><FONT SIZE=1 FACE=Verdana color=#990000><B>&nbsp;[.:SUPRESSION:: ] </FONT>
  • </TD></TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE><BR>
  • <%
  • response.write("<FORM ACTION='suppr.asp' METHOD=POST>")
  • sSQL = ""
  • sSQL = sSQL & "SELECT * FROM " & suppr & ""
  • Set SuprrRec = Server.CreateObject("ADODB.RecordSet")
  • SuprrRec.CursorLocation = adUseClient
  • SuprrRec.Open sSQL, CONN, adOpenDynamic, adLockPessimistic
  • if Request.Form("delete") <> "" then
  • SuprrRec.AbsolutePosition = Cint(Request.Form("delete"))
  • SuprrRec.Delete
  • response.write("voilà c fait !! Retourne à la page SUPPRESSION<a href='suppr.asp'>SUPPRESSION</a>")
  • Else
  • Response.write("<TABLE BORDER=1 bordercolor='#990000' width='100%'>")
  • response.write("<INPUT TYPE='submit' VALUE='Supprimer' class=InputSubmit>")
  • response.write("<INPUT TYPE='hidden' NAME='suppr' VALUE='" & suppr & "'>")
  • Response.write("<TR>")
  • for i = 0 to SuprrRec.Fields.count -1
  • Response.write("<TH>::" & SuprrRec(i).Name & "::</TH>")
  • next
  • Response.write("<TH>::Supprimer::</TH>")
  • Response.write("</TR>")
  • while not SuprrRec.EOF
  • Response.write("<TR>")
  • for i = 0 to SuprrRec.fields.count -1
  • Response.write("<TD>" & SuprrRec(i) & "</TD>")
  • next
  • Response.write("<TD><input type=radio name=delete value=" & SuprrRec.AbsolutePosition & "></TD>")
  • Response.write("</TR>")
  • SuprrRec.MoveNext
  • wend
  • response.write("</TABLE>>")
  • response.write("</FORM>")
  • %>
  • <% End If%>
  • </FONT>
  • </TD>
  • </TR>
  • </TABLE>
  • </TD>
  • </TR>
  • </TABLE>
  • </TD></TR></TABLE>
  • </BODY>
  • </HTML><%
  • CONN.Close
  • Set CONN = nothing %> 
<%
' Connection
suppr = request.Querystring("val")
if suppr = "" then
suppr = request.form("suppr")
end if
%>
<HTML>
<BODY>
<FONT SIZE=1><BR></FONT>
<TABLE WIDTH=95% HEIGHT=100% CELLPADDING=1 CELLSPACING=0>
<TR>
<TD WIDTH=20></TD>
<TD VALIGN=Top BGCOLOR=#000000>
<TABLE WIDTH=100% HEIGHT=100% CELLPADDING=1 CELLSPACING=0><TR>
<TD BGCOLOR=#FFFFFF vAlign=top>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=4>
<TR>
<TD WIDTH=100% vAlign=Top><BR>
<TABLE height=2 cellSpacing=0 cellPadding=1 width="100%" bgColor=#004080 border=0>
<TBODY>
<TR>
<TD>
<TABLE height=20 cellSpacing=0 cellPadding=1 width="100%" bgColor=#EFE0DC border=0>
<TBODY>
<TR>
<TD><FONT SIZE=1 FACE=Verdana color=#990000><B>&nbsp;[.:SUPRESSION:: ] </FONT>
</TD></TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE><BR>
			  			  <%
response.write("<FORM ACTION='suppr.asp' METHOD=POST>")
sSQL = ""
sSQL = sSQL & "SELECT * FROM " & suppr & ""
Set SuprrRec = Server.CreateObject("ADODB.RecordSet")
SuprrRec.CursorLocation = adUseClient
SuprrRec.Open sSQL, CONN, adOpenDynamic, adLockPessimistic			  
if Request.Form("delete") <> "" then
   			  SuprrRec.AbsolutePosition = Cint(Request.Form("delete"))
SuprrRec.Delete
response.write("voilà c fait  !! Retourne à la page SUPPRESSION<a href='suppr.asp'>SUPPRESSION</a>")
Else
Response.write("<TABLE BORDER=1 bordercolor='#990000' width='100%'>")
response.write("<INPUT TYPE='submit' VALUE='Supprimer' class=InputSubmit>")
response.write("<INPUT TYPE='hidden' NAME='suppr' VALUE='" & suppr & "'>")
Response.write("<TR>")
for i = 0 to SuprrRec.Fields.count -1
Response.write("<TH>::" & SuprrRec(i).Name & "::</TH>")
next
Response.write("<TH>::Supprimer::</TH>")
Response.write("</TR>")
while not SuprrRec.EOF
Response.write("<TR>")
for i = 0 to SuprrRec.fields.count -1
Response.write("<TD>" & SuprrRec(i) & "</TD>")
next
Response.write("<TD><input type=radio name=delete value=" & SuprrRec.AbsolutePosition & "></TD>") 
Response.write("</TR>")
SuprrRec.MoveNext
wend
response.write("</TABLE>>")
response.write("</FORM>")
%>
<% End If%>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD></TR></TABLE>
</BODY>
</HTML><%
CONN.Close 
Set CONN = nothing  %>

 Conclusion

Le code est pas encore super mais je pense k'on peut l'améliorer !!
NB : pour appeler la page il faut obligatoirement :
suppr.asp?val={nom de la table} :)

c tout
@++ et bonn' prog'
pi0up51
www.infobox51.fr.st


 Sources du même auteur

AUTOMATISATION DES CONNECTION ET RECORDSET
NOMBRE DE CONNECTÉ (AVEC MEMBRES ;)
DERNIÈRE VISITE SUR LE SITE (COOKIE)
FONCTION DE FORMATAGE DE TEXTE
PETITES FONCTIONS POUR UTILISER LES DATES
Toutes les sources de pi0up51

 Sources de la même categorie

Source avec Zip GESTION_ENSEIGNANTS par Elmarzougui
Source avec Zip ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc
Source avec Zip Source avec une capture Source .NET (Dotnet) ADMINISTRATION BASE DE DONNÉES ORACLE par chbayah
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D'UN DATASET par ManuAntibes
Source avec Zip Source .NET (Dotnet) INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL ... par jimmy69
Toutes les sources de la catégorie Base de données

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) INSERER UNE PHOTO DANS UN CHAMP BLOB (IMAGE) DANS TABLE SQL ... par Myke
Source .NET (Dotnet) LISTER LES TABLES D'UNE BASE DE DONNÉES par SuperBouly
TRI TABLEAU SUR UNE COLONNE DONNÉE EN QUELQUES LIGNES DE COD... par outofcontrol
Source avec Zip Source avec une capture AFICHAGE HTML/ASP D'UNE STRUCTURE DE TABLE par AC1
Source avec Zip AFFICHER / MASQUER LES COLONNES D'UN TABLEAU SANS RECHARGEME... par matche

Commentaires et avis

Commentaire de Mario1095 le 25/01/2009 12:38:24

MERCI D'ÉCRIRE DANS UN FRANÇAIS CORRECT CAR C'EST INCOMPRÉHENSIBLE  

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Top 5 [ par FrancoisPignon ] J'ai une table acces "users" et cette table contient un champ "vote"...Je voudrais afficher sur ma page index.asp, le top 5 des utilisateurs ayant le pb exceptionnel d'une page dynamique [ par rima ] bonjour a tousj'ai une table sur access qui contient les champs suivants:reference (champ non vide)designation (champ non vide)titre (champ peut etre pb excptionnel d'une page dynamique [ par rima ] bonjour a tousj'ai une table sur access qui contient les champs suivants:reference (champ non vide)designation (champ non vide)titre (champ peut etre tableau dynamique via une table sous sql server [ par bibi2607 ] voila, j'ai cr&#233;er un tableau a partir d'une table sous sql server. J'aimerais savoir si il est possible, que lorsque je rajoute un champ dans cet requete SQL pour ajouter un champ dans une table [ par bakchlada ] salut tout le monde ,bon voila , j'ai une probleme (normal sinon je ne posterai pas ici) .......... bon bah c'est con de demander &#231;a , mais je de recup champ access dans liste form [ par frenzy ] Salut tlmje suis en train de creer une page de recherche avancée sur une base access avec des menus listes dans mon formulaire.table = "coasters"empla recuperation champ et update dans une autre table [ par drjey ] Salut, Je cherche a recuperer dans une table (towns) le numero ("id" en autonum) qui correspond a la ville, pour ensuite dans une autre table (main) f afficher un champ d'une autre table [ par perle007 ] Salut!!!j'ai deux tables qui ont un champ en commun (service_id) qui est ds la table (services_fr) et la table (publications_fr) ce que je veux faire Un sort sur une table en choisissant le champ [ par toddy_101 ] Bonjour tout le monde, je veux trier une table selon la valeur d'un champ précis (entier). quelqu'un a une idée?? Merci :) WHERE avec plusieurs paramètres [ par Inteface ] Salut,J'aimerais savoir comment faire une requête de filtrage sur une table ayant un champ "valeur" SELECT * FROM table WHERE valeur = P1, P2, P3 ....


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,981 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)