Discussion :

[bendev]

Bonjour,

Voici un problème qui est sûrement facile. pour la plupart d'entre vous ... !
Ma connexion se fait par SQLOLEDB à SQlServer (version grauite MSDE)
J'ai une syntaxe d'INSERT qui est correcte.
Je ne crois pas être obligé de passer par un recordset mais pourtant quand j'essaye de passer simplement par la connexion, ça plante.

Connexion :
Set Connexion = Server.CreateObject("ADODB.Connection")
Connexion.Open "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=MyDB; User ID=sa; Password=admin","",""

La requête d'Insert est stockée dans une variable SqlStr.
Je devrais donc pouvoir exécuter l'insert par un simple conn.execute, non ?
Si je le fais, j'obtiens le message
Erreur d'exécution Microsoft VBScript error '800a01a8'
Objet requis: 'Conn'

Ca marche si je fais
Set RI = Server.CreateObject("ADODB.Recordset")
RI.open SqlStr, Conn, adOpenStatic

C'est pas très logique, non ?
Merci de bien vouloir me dépanner

[billoum]

Mets le code qui pose problème sinon c' est un peu dur à dire .
Avec ce que t' as mis , tous ce que je peux te dire c' est que tu déclares connexion et que tu fais un conn.execute, donc c' est normal qu' il ne trouve pas où tu as déclaré conn.

[bendev]

Re-bonjour,
Ah oui effectivement, c'est pas très compréhensible ... effectivement la connexion est dans une function qui s'appelle Connexion !
Alors je reprends :
function Connexion()
' Connexion .à la database donPdon..
' ==================================
'Dim Connnexion
Dim RS
Set Connexion = Server.CreateObject("ADODB.Connection")
Connexion.Open "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=MyDB; User ID=sa; Password=admin","",""
end function

L'appel :
Conn=Connexion()

La requête SQL (qui marche avec le recordest ) :
SqlStr = "Insert into Inscription ( ins_login, ins_pwd, ins_dept, ins_email, ins_nbann_mod, ins_nb_visites, "_
& "ins_num_ip, ins_comment, ins_etat, ins_date_last_used, ins_date_last_maj, ins_date_creat) "_
& "values ('" & Session("login") & "', '" & Session("pwd1") & "', '" & Session("dept") _
& "', '" & Session("email") & "', 0, 0, '" & Session("ip") & "', '" _
& Replace(Session("comment"), "'", "''") _
& "','V', " & jourdhui & ", " & jourdhui & ", " & jourdhui & ") ;"

L'appel : Conn.Execute (SqlStr)
foire avec les symptomes déjà décrits

Alors ce que je fais et qui fonctionne, mais qui est sûrement pas joli :
Set RI = Server.CreateObject("ADODB.Recordset")
RI.open SqlStr, Conn, adOpenStatic
Merci à toi