Egal was ich mache, es funktioniert nicht..... Hier nochmal der Code vom ganzen Sub.... Bitte um Hilfe....
Private Sub SurfaceButton3_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles SurfaceButton3.Click
Dim MyGuid As Guid
MyGuid = New Guid(UniqueID)
Dim cnn As OleDbConnection
Dim cmd As New OleDbCommand
cnn = Application.cnn
If cnn.State = System.Data.ConnectionState.Open Then
Dim newWundart = CBWundart.Text
Dim newKoerperstelle = CBKoerperstelle.Text
Dim newGrad = CBGrad.Text
Dim newErstaufnahme = SurfaceTextBox1.Text
Dim newAbgeheilt = SurfaceTextBox2.Text
Dim newEntstehungsort = CBOrt.Text
cmd.Connection = cnn
With cmd.Parameters
.Add(New OleDbParameter("@ID", MyGuid))
End With
cmd.CommandText = "UPDATE [pvs_vivat_TABLET].[dbo].[Wunden] " & _
"SET " & _
"[Wundart] = '" & CBWundart.Text & "' " & _
[Koerperstelle] = '" & CBKoerperstelle.Text & "' " & _
",[ErstaufnahmeDatum] = '" & SurfaceTextBox1.Text & "' "
If SurfaceTextBox2.Text <> "" Then
cmd.CommandText = cmd.CommandText & ",[AbgeheiltAmDatum] = '" & SurfaceTextBox2.Text & "' "
Else
cmd.CommandText = cmd.CommandText & ",[AbgeheiltAmDatum] = null "
End If
cmd.CommandText = cmd.CommandText & ",[Wundgrad] = '" & CBGrad.Text.Substring(0, 1) & "' " & _
",[Kommentar] = '" & SurfaceTextBox3.Text & "' " & _
",[Enstehungsort] = '" & CBOrt.Text & "' " & _
",[GeaendertProgramm] = 'pvs_Mobile'" & _
",[GeaendertDurch] = '" & Benutzername & "' " & _
",[GeaendertAm] = current_timestamp " & _
"WHERE LfdNummer = " & mlngLfdNrWunde & " " & _
"" & _
"INSERT INTO [pvs_vivat_TABLET].[dbo].[_SyncDB] " & _
"([Tabellenname] " & _
",[InterneKey] " & _
",[ErstelltAmDatum] " & _
",[ExterneKey]) " & _
"VALUES( " & _
"'Wunden' " & _
",@ID " & _
",CURRENT_TIMESTAMP " & _
",NEWID() )"
cmd.ExecuteNonQuery()
End If
Me.Close()
End Sub
