Il existe en ASP deux méthodes pour ajouter un enregistrement à une base de données, l'une consiste à utiliser ADO et l'autre à utiliser du SQL (qui sera lui propre au langage de la base de données ou du serveur de Base de données).

Les ajouts avec ADO

Les ajouts à une table ne fonctionnent qu'avec un Recordset Dynamique. Nous avons en effet un accès en Lecture-Ecriture

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

Pour ajouter des données dans chaque champ et dans chaque enregistrement, nous utiliserons les méthodes Update et AddNew.

A/ Voici les étapes pour un ajout :

1- On Récupère les données.

Valeur1 = Request("Valeur")

Valeur2 = Request("Valeur2")

2- On crée le Recordset à partir du contenu de la table

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

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

3- On ajoute au Recordset un enregistrement en affectant une valeur à chaque champ

On Error Resume Next

Rs.addnew

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é créées "

End If

B/ Voici les étapes pour plusieurs ajouts :

1- On Récupère les données.

Valeur_1 = Request("Valeur_1")

Valeur_2 = Request("Valeur_2")

Valeur_1B = Request("Valeur_1B")

Valeur_2B = Request("Valeur_2B")

2- On crée le Recordset à partir du contenu de la table

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

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

3- On ajoute au Recordset les enregistrements en affectant une valeur à chaque champ :

On Error Resume Next

Rs.addnew

Rs.fields("CHAMP1") = Valeur_1

Rs.fields("CHAMP2") = Valeur_2

Rs.addnew

Rs.fields("CHAMP1") = Valeur_1B

Rs.fields("CHAMP2") = Valeur_2B

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é créées "

End If

Les Ajouts avec SQL

Ces derniers se font avec la commande INSERT :

1- On Récupère les données.

Valeur1 = Request("Valeur")

Valeur2 = Request("Valeur2")

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

SQLINSERT= "INSERT INTO Table (CHAMP1,CHAMP2) SELECT '"& VALEUR_1 &"' As CHAMP1, '"& VALEUR2 &"' As CHAMP2"

2- On l'exécute :

Conn.execute(SQLINSERT)

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.