Et bien pour en rajouter, je dirais que la procédure plus safe en travaillant avec ADO, c'est d'utiliser l'objet command pour passer des paramètres.
Code :
Dim objConn as ADODB.Connection
Dim objCom as ADODB.Command
Dim objRs as ADODB.Recordset
set objConn as new ADODB.Connection
objConn.Open "[Connection string]"
set objCom as new ADODB.Command
objCom.ActiveConnection = objConn
objCom.CommandType = adCmdText
objCom.CommandText = "UPDATE table1 set (dtMod=?) WHERE id=?"
objCom.Parameters.Append (objCom.CreateParameter("maDate", adDBDate, adParamInput, , dttMaDate))
objCom.Parameters.Append (objCom.CreateParameter("id", adNumeric, adParamInput, , intSelectedId))
set ojbRs = objCom.Execute
Ou en vbscript:
Code :
Const adCmdText = 1
Const adParamInput = 1
Const adDBDate = 133
Const adNumeric = 131
Dim objConn, objCom, objRs
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "[Connection string]"
set objCom = Server.CreateObject("ADODB.Command")
objCom.ActiveConnection = objConn
objCom.CommandType = adCmdText
objCom.CommandText = "UPDATE table1 set (dtMod=?) WHERE id=?"
objCom.Parameters.Append (objCom.CreateParameter("maDate", adDBDate, adParamInput, , dttMaDate))
objCom.Parameters.Append (objCom.CreateParameter("id", adNumeric, adParamInput, , intSelectedId))
set ojbRs = objCom.Execute