Requete Insert - besoin de précisions [Résolu]

[sqlnoob]

Bonjour,

En m'inspirant d'un tuto trouvé sur ce site permettant de faire un Select, j'essaie de créer un script qui insérerait des données dans ma base sql server.

Le code suivant fonctionne mais, on peut voir que l'instruction

Code :

RS.close

est en commentaire.
En effet, si ce n'est pas le cas, j'obtiens une page d'erreur HTTP 500, Impossible d'afficher la page...

D'où quelques questions :
- Est-ce que l'objet ADODB.RecordSet est adapté pour procéder à un Insert ?
(Le résultat d'un Insert est a priori différent de celui d'un Select)
- Si c'est adapté, n'est-ce pas génant de ne pas pouvoir "fermer" l'objet ?
- Si ce n'est pas adapté, quel est l'objet à mettre en oeuvre pour effectuer un Insert (et éventuellement un Update et un Delete pour la suite de mon apprentissage )

Merci

Code :

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
<%
	Classe = request.Form("NomClasse")
	Prof = request.Form("ProfPrinc")
 
	' Declaration de la connexion
	Set conn = Server.CreateObject("ADODB.Connection")
	' Chaine de connexion
	connstring = "driver={SQL Server};server=localhost;uid=test;pwd=mdp;database=Etablissement_Lambda"
	' Ouverture de la connexion
	conn.open connstring 
 
	' Requete
	sql = "insert into Classes (Nom_Classe, Professeur_Principal) values ('" & Classe & "', '" & Prof & "')"
	' Declaration du jeu d'enregistrements
	Set RS = Server.CreateObject("ADODB.RecordSet")
	' Execution de la requete
	RS.Open sql, conn
 
	' Fermeture des objets
'	RS.close
	conn.close
	' Libération des objets
	set conn = nothing
	set RS = nothing
 
	response.Redirect "JulTest.asp"
%>

[lapanne]

Code :

1
2
3
4
5
6
7
8
9
CyberSchool = Server.CreateObject("ADODB.Connection")
 
CyberSchool.Open(connexion_string) 
cmdTemp = Server.CreateObject("ADODB.Command")
 
cmdTemp.CommandText = "INSERT INTO matable VALUES (champ1,champ2) VALUES (values1,value2)"
cmdTemp.CommandType = 1
cmdTemp.ActiveConnection = CyberSchool
cmdTemp.Execute

Pour tout ce qui est requete qui ne renvoie pas de table.

Note : c'est du Javascript mais ça marche en VBscript.

[sab_etudianteBTS]

Salut,

Moi pour insérer des enregistrements dans ma base de données, j'utilise cette synthaxe là :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Requete
sql = "Select * From Classes"
 
'Declaration du jeu d'enregistrements
Set RS = Server.CreateObject("ADODB.RecordSet")
'Execution de la requete
RS.Open sql, conn, 3, 3
 
RS.addnew
 
RS("Nom_Classe")=Classe
RS("Professeur_Principal")=Prof
 
RS.update

Cette manière fonctionne ché moi, et il n'y a aucun problème pour fermer les recordsets ensuite...

[sqlnoob]

J'ai fait comme ça, ça marche tres bien

<%
Classe = request.Form("NomClasse")
Prof = request.Form("ProfPrinc")

' Declaration de la connexion
Set conn = Server.CreateObject("ADODB.Connection")
' Chaine de connexion
connstring = "driver={SQL Server};server=localhost;uid=test;pwd=mdp;database=Etablissement_Lambda"
' Ouverture de la connexion
conn.open connstring

' Declaration de la commande
Set Com = Server.CreateObject("ADODB.Command")
' Requete
Com.CommandText = "insert into Classes (Nom_Classe, Professeur_Principal) values ('" & Classe & "', '" & Prof & "')"
' On définit la connexion
Com.ActiveConnection = conn
' Execution de la requete
Com.Execute

' Fermeture des objets
conn.close
' Libération des objets
set conn = nothing

response.Redirect "JulTest.asp"
%>

Merci à vous