begin process at 2008 08 22 00:13:36
1 229 717 membres
525 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MODIF DANS UNE BASE ACCESS


Information sur la source

Catégorie :Base de données Niveau : Débutant Date de création : 22/07/2002 Date de mise à jour : 22/07/2002 14:29:36 Vu : 5 648

Note :
3,5 / 10 - par 2 personnes
3,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

MODIFICATON DE DONNEE DANS UNE TABLE ACCESS.
COPIER COLER LE CODE DIRCTEMENT DANS UNE PAGE ASP

Source

  • <%
  • Dim rs
  • set rs = server.createObject ("ADODB.recordset")
  • Set conn = Server.CreateObject("ADODB.Connection")
  • connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "\nom de la base.mdb"
  • conn.Open connstring
  • sql = "select * from nom de la table "
  • rs.Open sql, conn, 3, 3
  • rs.movefirst
  • if trim(request("nom du champs 1 a modifier"))<>"" then
  • rs.fields("nom du champs 1 a modifier")=request("nom du champs 1 a modifier")
  • end if
  • if trim(request("nom du champs 2 a modifier"))<>"" then
  • rs.fields("nom du champs 2 a modifier")=request("nom du champs 2 a modifier")
  • rs.updateBatch
  • rs.close
  • set rs=nothing
  • conn.close
  • set conn=nothing
  • response.redirect "nom de la pages.asp"
  • end if
  • %>
  • <html>
  • <head>
  • <title></title>
  • <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  • </head>
  • <body bgcolor="#FFFFFF" text="#000000">
  • <form name="form1" method="post" action="">
  • <p>
  • <input type="text" name="ot" value="<% =request("nom du champs 1 a modifier") %>">
  • Premier champs</p>
  • <p>
  • <input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>">
  • Deuxieme champs</p>
  • <p>
  • <input type="submit" name="action" value="modifier">
  • </p>
  • </form>
  • </body>
  • </html>
<%
Dim rs


set rs = server.createObject ("ADODB.recordset")


Set conn = Server.CreateObject("ADODB.Connection")


connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "\nom de la base.mdb"
conn.Open connstring 


	sql = "select * from nom de la table "
	rs.Open sql, conn, 3, 3
	rs.movefirst
	

	if trim(request("nom du champs 1 a modifier"))<>"" then
		rs.fields("nom du champs 1 a modifier")=request("nom du champs 1 a modifier")
		end if

		if trim(request("nom du champs 2 a modifier"))<>"" then
		rs.fields("nom du champs 2 a modifier")=request("nom du champs 2 a modifier")
		

		
		rs.updateBatch
	
	
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.redirect "nom de la pages.asp"
end if

%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="">
  <p> 
    <input type="text" name="ot" value="<% =request("nom du champs 1 a modifier") %>">
    Premier champs</p>
  <p>
    <input type="text" name="desc" value="<% =request("nom du champs 2 a modifier") %>">
    Deuxieme champs</p>
  <p>
    <input type="submit" name="action" value="modifier">
  </p>
</form>
</body>
</html>
 

Conclusion

VOILA TOUS EST DIS @LLIX
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS