Hur skriver jag denna update satsen. Jga vill updatera tabellen usersettings med nya värde. jag får värdena

Tabellen UserSettings

Anv Nyckel Varde
AB Bakgrund #FFFFFFF
AB Bakgrund2 #FFFFFFF
AB Bakgrund3 #FFFFFFF


Public Function SaveSettings(ByVal strAnv As String, vBakgrund, vBakgrund2, vBakgrund3) As String

'En update sats

end Function

Du vill uppdatera tre rader i en tabell??? Du måste ange vilken rad i tabellen du vill uppdatera. Har jag missförstått något??

/Christer

Har ID också
1
2
3

Det ända jag vill uppdatera är Värdet och det får jag med in i funktionen.

Enklast är väl att uppdatera en rad i taget

sSQL = "UPDATE usersettings Set Varde='"&vBakgrund&"' "
sSQL = sSQL & "WHERE Id=1"
Set oRS = oConn.Execute(sSQL)
sSQL = "UPDATE usersettings Set Varde='"&vBakgrund2&"' "
sSQL = sSQL & "WHERE Id=2"
Set oRS = oConn.Execute(sSQL)
sSQL = "UPDATE usersettings Set Varde='"&vBakgrund3&"' "
sSQL = sSQL & "WHERE Id=3"
Set oRS = oConn.Execute(sSQL)

/Christer

KAnske funkar med något sådant här:
<code>
Sub SaveSettings(Con, ByVal strAnv As String, vBakgrund, vBakgrund2, vBakgrund3)
SaveSetting Con, strAnv, "Bakgrund", vBakgrund
SaveSetting Con, strAnv, "Bakgrund2", vBakgrund2
SaveSetting Con, strAnv, "Bakgrund3", vBakgrund3
End Sub

Sub SaveSetting(Con, Anv As String, Nyckel As String, Varde As String)
Dim strSQL
Dim RecordsAffected
strSQL = "UPDATE UserSettings SET Varde = '" & Replace(Varde, "'", "''") & "' WHERE Anv = '" & Replace(Anv, "'", "''") & "' AND Nyckel = '" & Replace(Nyckel, "'", "''") & "'"
Con.Execute strSQL, RecordsAffected
If RecordsAffected = 0 Then
strSQL = "INSERT INTO UserSettings (Anv, Nyckel, Varde) VALUES ('" & Replace(Anv, "'", "''") & "', '" & Replace(Nyckel, "'", "''") & "', '" & Replace(Varde, "'", "''") & "')"
Con.Execute strSQL
End If
End Sub
</code>
Kontrollera att RecordsAffected fungera. Är inte säker på att den görte det. Kan bero på vilken provider du använder.