Le principe reste le même que pour les ajouts. La seule différence est que l'on "ajoute" des données sur des enregistrements existants.

De même que pour les ajout, il existe deux méthodes pour modifier un enregistrement à une base de données, l'une consiste à utiliser ADO et l'autre à utiliser du SQL.

Les Modifications avec ADO

Les modifications à une table ne fonctionnent qu'avec un Recordset Dynamique.

Rs.Open 'NomdeTable', 'ActiveConnection' 1, 2, 1

Pour modifier des données dans chaque champ et dans chaque enregistrement, nous utiliserons la méthode Update.

A/ Voici les étapes pour une modification :

1- On Récupère les données à modifier :

Valeur1 = Request("Valeur") 'Nouvelle valeur

Valeur2 = Request("Valeur2") 'Nouvelle valeur

NUM = Request("Valeur3") 'Valeur de la CLE identifiant l'enregistrement à modifier.

2- On crée le Recordset à partir d'une requête SQL pour trouver l'enregistrement à modifier (Recherche par la clé de l'enregistrement) :

Set Rs= server.CreateObject("ADODB.Recordset")

sql = "SELECT Table.* FROM Table WHERE (Table.CLE="&NUM&")"

Rs.Open Table, conn, 1, 2, 1

3- On modifie l'enregistrement dans le Recordset en affectant une valeur à chaque champ

Rs.MoveFirst

Rs.fields("CHAMP1") = Valeur1

Rs.fields("CHAMP2") = Valeur2

4- On met à jour la table et on ferme le RecordSet

Rs.Update

Rs.close

Set Rs=Nothing

5- On Test s'il y a des erreurs

If Err.number >0 Then

Response.Write " Impossible de mettre à jour la base de données "

Else

Response.Write "Les données ont été modifiées "

End If

B / Voici les étapes pour plusieurs modifications

(On suppose dans cet exemple qu'il existe plusieurs enregistrements avec le nom 'CHU') : 1- On Récupère les données à modifier.

Valeur1 = Request("Valeur1") 'Nouvelle valeur

Valeur2 = Request("Valeur2") 'Nouvelle valeur

2- On crée le Recordset à partir d'une requête SQL pour trouver l'enregistrement à modifier (Recherche par la clé de l'enregistrement) :

Set Rs= server.CreateObject("ADODB.Recordset")

sql = "SELECT Table.* FROM Table WHERE (Table.NOM='CHU')"

Rs.Open Table, conn, 1, 4, 1

3- On modifie les enregistrements dans le Recordset en affectant une valeur à chaque champ (on parcourt le Recordset avec une boucle) :

Rs.MoveFirst

Do while not rs.eof

Rs.fields("CHAMP1") = Valeur1

Rs.fields("CHAMP2") = Valeur2

Rs.movenext

Loop

4- On met à jour la table et on ferme le RecordSet

Rs.UpdateBatch

Rs.close

Set Rs=Nothing

5- On Test s'il y a des erreurs

If Err.number >0 Then

Response.Write " Impossible de mettre à jour la base de données "

Else

Response.Write "Les données ont étémodifiées "

End If

Les Modifications avec SQL

Ces dernières se font avec la commande UPDATE :

1- On récupère les données à modifier :

Valeur1 = Request("Valeur") 'Nouvelle valeur

Valeur2 = Request("Valeur2") 'Nouvelle valeur

NUM = Request("Valeur3") 'Valeur de la CLE identifiant l'enregistrement à modifier.

2- On créée une requête modification :

SQLUPDATE= "UPDATE TABLE SET CHAMP1='"& VALEUR1 &"', "CHAMP2='"& VALEUR2 &"' WHERE CLE="&

NUM

2- On l'exécute :

Conn.execute(SQLUPDATE)

Nous vous informons que ce cours constitue une œuvre protégée en France par le Code de la Propriété Intellectuelle, et à l’étranger par les conventions internationales en vigueur sur le droit d’auteur. La violation de l’un des droits d’auteur de l’œuvre est un délit de contrefaçon. Il est donc interdit, à titre privé ou public, de reproduire, copier, vendre, revendre ou exploiter, que ce soit dans un but commercial ou purement gratuit, ce cours, sauf accord exprès et préalable de son auteur.