1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| ' Solution 1 :
Set ReqInsert = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "INSERT INTO table (champ1, champ2, ...) VALUES ('Valeur1','Valeur2', ...)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataBase
IObjet.Open cmdTemp, , 0, 1
' Solution 2 :
Set ReqInsert = Server.CreateObject("ADODB.Recordset")
ReqInsert.Open NomTab, DataBase, 3,3
ReqInsert.AddNew
ReqInsert.Fields (champ1) = Valeur1
ReqInsert.Fields (champ2) = Valeur2
...
ReqInsert.Update
ReqInsert.Close
set ReqInsert = nothing
' Solution 3 :
DataBase.Execute (INSERT INTO table (champ1, champ2, ...) VALUES ('Valeur1','Valeur2',...)) |
Partager