vbs + insertion en bdd

Version imprimable

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:

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

un autre script qui ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rec1, rs1  
rec1 = "SELECT * FROM Memo"
Set rs1 = createobject("adodb.Recordset")
rs1.Open rec1, conn
	rs1.AddNew
	rs1("MemoText") = "Relance automatique"
	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

13/11/2007, 11h37
loulag07

Insertion d'une ligne dans une table

Bonjour,

personne ne saurait donc m'indiquer comment mettre à jour une base de données depusi un fichier vbs ? :cry:
13/11/2007, 12h05
RadPAT

Salut,

je n'y connais rien non plus, mais as-tu été voir sur le scripter dans Script Repository: SQL Server ?

http://www.microsoft.com/technet/scr....mspx?mfr=true

A++

lien trés interessant merci

Code:

1
2
3
4
5
6
7
8
  Set MyCommand = CreateObject("ADODB.Command")
  Set MyCommand.ActiveConnection = conn
  MyCommand.CommandText = "INSERT INTO Memo (MemoText,CreatedOn,CreatedById,Id) VALUES('Relance automatique',getdate(),'ADMIN',?)"  
  MyCommand.CommandType = 1
  MyCommand.Parameters(0).Value = rs2("Id")
  MyCommand.Execute
 
  Set MyCommand=nothing