Faire un update dans SQL Server (avec un recordset?)

**Karibou** · 26/07/2005, 14h33

Bonjour, j'essaye de faire un update sur ma base sql server 2000, a partir d'un formulaire de mise a jour en asp.

J'ai vu sur un site qu'on pouvait faire un update avec des recordset...
Mais j'ai une erreur:

ADODB.Recordset erreur '800a0cb3'

Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné.

Savez vous d'où ca vient, ou auriez vous une autre façon de faire un update sous sql server (sachant que je dois updater toute une table)?

voici mon 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
 
<%
Dim sql, rs, siren
siren = request.form("siren")
sql = "SELECT * FROM PROSPECTS WHERE SIREN ='" & siren & "'"
set rs = server.createobject("ADODB.Recordset")
rs.open sql, MyConn, adLockPessimistic
 
rs.MoveFirst
rs("raison_sociale") = request.form("raison_sociale")
rs.update
 
rs.close
set rs = nothing
 
%>

**Karibou** · 26/07/2005, 14h40

Bon bah euh j'ai trouvé mais alors complètement par hasard

il faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.open sql, MyConn, 3, 3

mais alors pourquoi les "3, 3" j'en ais vraiment aucune idée!

ps: même si c'est la honte de s'être auto résolu, je laisse le message, ca pourrais servir a d'autres...

**Gwenn** · 26/07/2005, 14h48

Salut,

il s'agit des parametre d'ouverture du RecordSet, de mémoire pour, pour modifier un recordset, il que celui-ci soit ouvert avec certains parametres :

E pour que la syntaxe soit plus parlante, inclus dans tes pages, le fichier de constantes : adovbs.asp, ca te permettra d'ecrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonRecordSet.cursorlocation = adUseClient

et de mon point de vue c'est plus lisible

Pour ce qui est de la méthode pour l'update, une solution plus rapide est d'utliser l'objet connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
strSQL = " UPDATE....."
Set oConnx = Server.CreateObject("ADODB.CONNECTION")
oConnx.Open ma_base_de_donnee
oConnx.Execute(StrSQL) 
oConnx.Close
Set oConnx = nothing

En fait, ObjetConnexion.Execute () va te créer implicitement un objet Command, puis le détruire

**Karibou** · 26/07/2005, 14h59

Salut,

Merci pour ta réponse, le fichier adovbs.asp se trouve-t-il par defaut sur le serveur (ie dans le package "asp" de iis) ou faut il le rajouter manuellement? (ie le choper sur internet)

Sinon j'avais deja essayé l'autre façon SQL = "update...."
et vu que j'ais pleins de champs a "updater" je trouvais que c'etait plus lisible avec un recordset...

**Gwenn** · 26/07/2005, 15h13

oui tu devrais toruver ca dans \fichier communs\system\ado

**Karibou** · 26/07/2005, 15h51

ah bah tant pis alors je ne peux pas y acceder car je ne travaille pas sur mon serveur perso, et dans la boite ou je me trouve ya pleins de securité de partout et le gars qui s'occupe de ca est parti en vacs...