Discussion :

[jfrsm]

Bonjour j'essai de mettre en place un vbs qui permettrait de mettre à jour les infos d'un ordinateur inscrit dans une table sql si celui-ci est présent (identifié par le numéro de série) ou d'ajouter les infos si il n'est pas présent...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Valeurs
On Error Resume Next
...
If not rs.eof Then
	'EXSITE DEJA - FAIT UNE MISE A JOUR DANS LA BD
	MyCommand.CommandText = "UPDATE dbo.ComputerIdentity Set Description = '" & Description & "', DateMAJ = '" & DateMAJ & "', ClockProcesseur = '" & ClockProcesseur & "', NomProcesseur = '" & NomProcesseur & "', AssetTag = '" & AssetTag & "', UUID = '" & UUID & "', MacAddress = '" & MacAddress & "', VersionWindows = '" & VersionWindows & "', NomOrdinateur = '" & NomOrdinateur & "', VersionWindowsTexte = '" & VersionWindowsTexte & "', Manufacturier = '" & ManufacturierOrdinateur & "', Modele = '" & ModelOrdinateur & "', VersionBIOSComplet = '" & VersionBIOSComplet & "', VersionBIOSCourt = '" & VersionBIOSCourt & "', VersionBIOSDate = '" & VersionBIOSDate & "', MemoireRAM = '" & MemoireRAM & "', TypeSystemeX86ouX64 =  '" & TypeSystemeX86ouX64  & "' Where SerialNumber = '" & NumeroSerie & "'" 
	MyCommand.Execute
Else
	'EXISTE PAS - AJOUTE DANS LA BD
	Valeurs = "VALUES ('" & Description & "','" & DateMAJ & "','" & ClockProcesseur & "','" & NomProcesseur & "','" & AssetTag & "', '" & UUID & "','" & NumeroSerie & "','" & MacAddress & "','" & VersionWindows & "','" & NomOrdinateur & "','" & VersionWindowsTexte & "','" & ManufacturierOrdinateur & "','" & ModelOrdinateur & "','" & VersionBIOSComplet & "','" & VersionBIOSCourt & "','" & VersionBIOSDate & "','" & MemoireRAM & "','" & TypeSystemeX86ouX64 & "')"
	objRecordSet.Open "INSERT INTO dbo.ComputerIdentity (Description, DateMAJ, ClockProcesseur, NomProcesseur, AssetTag, UUID, SerialNumber, MacAddress, VersionWindows, NomOrdinateur, VersionWindowsTexte, Manufacturier, Modele, VersionBIOSComplet, VersionBIOSCourt, VersionBIOSDate, MemoireRAM, TypeSystemeX86ouX64)" &  Valeurs, objConnection, adOpenStatic, adLockOptimistic
End If
 
objConnection.Close

Je vois bien que le script "cherche" le numéro de série et passe à la bonne procédure mais rien ne se passe dans un cas comme dans l'autre...une idée pour orienter mes recherches

Merci

[pc75]

Bonjour,

J'ai regardé ton code jusqu'à la deuxième ligne.
Commence par enlever "on error resume next".

[jfrsm]

lol trop de bruit pour rien...

J'avais mis des colonnes de trop qui n'étaient pas dans la table...

désolé pour le bruit

merci