Discussion :

[loulag07]

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

[loulag07]

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
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

[loulag07]

Bonjour,

personne ne saurait donc m'indiquer comment mettre à jour une base de données depusi un fichier vbs ?

[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++

[loulag07]

lien trés interessant merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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