Sčítání hodnot do dotazu je dost velká prasárna (naposledy jsem něco takového dělal tak v devadesátemdevátem). Na předávání hodnot slouží parametry. Kód je následující:
Dim connectionString As String = ...
Dim connection As SqlConnection = Nothing
Try
connection = New SqlConnection(connectionString)
connection.Open()
Using command As New SqlCommand("UPDATE AKTUALNEDATA SET DATUM = @Datum", connection)
command.Parameters.AddWithValue("Datum", DateTime.Today)
command.ExecuteNonQuery()
End Using
Finally
If Not connection Is Nothing Then
connection.Close()
End If
End Try
|