Discussion :

[Mikar]

Bonjour,
j'ai créé une page avec un formulaire. Les noms de champs du formulaire sont identiques à ceux de la table dans ma DB Access.

J'ai utilisé le code suivant qui fonctionne :

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
23
24
25
26
27
28
29
30
31
 
szSqlInsert = "Insert Into EVALUATIONS(EVALUATEUR_NOM,EVALUATEUR_MATRICULE,EVALUATEUR_UNITE,"
szSqlInsert = szSqlInsert & "FOURNISSEUR"
' *** Boucle d'ajout des champs
do while Not rsChamps.Eof
	szSqlInsert = szSqlInsert & rsChamps("CHAMP") & ","
	rsChamps.MoveNext
Loop
szSQLInsert = szSQLInsert & "COMMENTAIRES) "
 
szSQLInsert = szSQLInsert & "VALUES("
 
szSQLInsert = szSQLInsert & CheckString(Request("EVALUATEUR_NOM"),",")
szSQLInsert = szSQLInsert & CheckString(Request.ServerVariables("LOGON_USER"),",")
szSQLInsert = szSQLInsert & CheckString(Request("EVALUATEUR_UNITE"),",")
szSQLInsert = szSQLInsert & CheckString(Request("FOURNISSEUR"),",")
 
' *** Boucle d'ajout des champs
rsChamps.MoveFirst
do while Not rsChamps.Eof
	szSqlInsert = szSqlInsert & CheckNumericValue(Request(rsChamps("CHAMP")),True)
	rsChamps.MoveNext
Loop
 
rsChamps.Close
Set rsChamps = Nothing
 
szSqlInsert = szSqlInsert & CheckString(Request("COMMENTAIRES"),"")
szSqlInsert = szSqlInsert & ")"
 
rsInsert = Conn.Execute(szSqlInsert)

Malheureusement avec cette méthode, il est (je crois) impossible de récupérer l'identifiant automatique du record créé dans la table Access.

J'ai donc essayé d'utiliser une autre technique d'ajout d'un record avec une boucle (For each Item in Request.Form) mais il semblerait que j'aie un problème de syntaxe :

Voici le code :

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
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "SEF"
 
Set objRecordset = Server.CreateObject("ADODB.Recordset")
 
' *** Ajout d'un nouveau record dans la table EVALUATIONS
szSQL = "Select * From EVALUATIONS Where 0=1"
 
objRecordset.Open szSQL, Conn, adOpenKeyset, adLockPessimistic, adCmdText
objRecordset.AddNew
 
For each Item in Request.Form
                ' *** debugging
	response.write Request(Item) & "<br>"
                ' *** C'est ici que se produit l'erreur !!!!!!!
	objRecordset.Fields(Item) = Request(Item)
Next
 
objRecordset.Update
 
nId = objRecordset.Fields("ID").Value

Avez-vous une solution à me proposer ? Merci d'avance.

[tesla]

Tu veux faire un Update et ta requête fait un select.
Peux tu être plus précis sur le message d'erreur ?

[Mikar]

Je sais que la syntaxe d'ajout d'un record peut paraître bizarre (effectivement quelle est l'utilité du select ?) mais elle fonctionne.

Entre temps j'ai trouvé la solution à mon problème.
En fait j'ai perdu de vue que lorsque la boucle parcourt les champs du formulaire, elle finit par arriver sur le bouton qui permet d'envoyer le formulaire. Et comme il n'y a pas de champ correspondant au bouton d'envoi dans ma base de données, j'obtenais le message d'erreur suivant :
Item cannot be found in the collection corresponding to the requested name or ordinal.

Il m'a suffit de rajouter un petit test pour faire l'impasse sur le bouton d'envoi du formulaire et tout fonctionne.

Voici le code correct :

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
23
24
25
26
27
28
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "SEF"
 
Set objRecordset = Server.CreateObject("ADODB.Recordset")
 
' *** Ajout d'un nouveau record dans la table EVALUATIONS
szSQL = "Select * From EVALUATIONS Where 0=1"
 
objRecordset.Open szSQL, Conn, adOpenKeyset, adLockPessimistic, adCmdText
objRecordset.AddNew
 
For each Item in Request.Form
                ' *** NOUVEAU TEST ***
	If Not Item="cmdEnvoi" Then
		objRecordset.Fields(Item) = Request(Item)
	End If
Next
 
objRecordset.Update
 
nId = objRecordset.Fields("ID").Value
 
objRecordset.Close
Set objRecordset = Nothing
 
Conn.Close
Set Conn = Nothing

Merci pour ton aide.

[ryan]

Salut Mikar,

Je suis assez surpris par ta technique pour ajouter un enregistrement.
Tu as plus de doc à ce sujet?


Yan
La nourrice montre son sein, et le pont s'affaisse

[Mikar]

Non, hélàs je n'ai pas de documentation sur le sujet. En fait je cherchais une solution pour pouvoir récupérer en ASP l'identifiant d'un enregistrement créé dans une table Access.
J'ai trouvé ce code sur un forum internet mais je ne sais plus lequel. Le code m'a semblé étrange (surtout l'ordre SELECT en début de séquence d'instructrions) mais comme il fonctionne, je l'emploie régulièrement.

Dans ce cas, je l'ai agrémenté d'une boucle pour le remplissage des champs. En principe la séquence d'instruction pour remplir un record est :

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
23
24
25
26
27
 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "SEF" 
 
Set objRecordset = Server.CreateObject("ADODB.Recordset") 
 
' *** Ajout d'un nouveau record dans la table EVALUATIONS 
szSQL = "Select * From <TABLE> Where 0=1" 
 
objRecordset.Open szSQL, Conn, adOpenKeyset, adLockPessimistic, adCmdText 
objRecordset.AddNew 
 
objRecordset.Fields("NOM_DU_CHAMP1") = Request("CHAMP_DU_FORM1") 
objRecordset.Fields("NOM_DU_CHAMP2") = Request("CHAMP_DU_FORM2") 
...
objRecordset.Fields("NOM_DU_CHAMPX") = Request("CHAMP_DU_FORMX") 
 
objRecordset.Update 
 
' *** Récupération de l'id de l'enregistrement
nId = objRecordset.Fields("ID").Value 
 
objRecordset.Close 
Set objRecordset = Nothing 
 
Conn.Close 
Set Conn = Nothing