Bonjour,

je n'y connais strictement rien en vbs mais j'ai un fichier .vbs que je dois modifier pour insérer une ligne en base.
J'ai lu le tutoriel, j'ai copié collé l'exemple mais y a rien à faire cela ne fonctionne pas.

Comment dois je faire pour pour voir insérer un ligne dans ma base ?

mon script :

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
17
18
19
20
21
22
23
24
25
26
27
28
Dim conn, connstring
Dim MonRs As ADODB.Recordset, ValCle As Long
 
set conn = createobject("adodb.connection")
connstring = "driver={SQL SERVER};" & "server=monserver;uid=admin;pwd=;database=mabase"
conn.open connstring 
  rec1 = "SELECT * FROM Memo"
  Set rs1 = createobject("adodb.Recordset")
 
  rs1.Open rec1, conn, "adOpenDynamic", "adLockOptimistic"
	rs1.AddNew
	rs1("MemoText") = "Relance"
	rs1("CreatedOn") = Date()
	rs1("CreatedById") = "admin"
	rs1("CreatedByDisplayName") = "Administrateur"
	rs1("ModifiedOn") = Date()
	rs1("ModifiedById") = "admin"
	rs1("ModifiedByDisplayName") = "Administrateur"
	rs1("RelanceId") = 2
	rs1("RelanceDisplayName") = "Relance"
 
	rs1.Update
	rs1.Close
	set rs1=nothing
 
  conn.CommitTrans
    conn.close
    set conn=nothing
merci de votre aide