Update table sql

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:

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

Bonjour,

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

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