Hi,
ich frage die Tabelleninhalte einer Reihe von Tabellen mit (ByVal y As Integer) ab, das im 1. Block problemlos funktioniert. Das Ergebnis der Abfrage TrendWert ist auch im 2. Block gültig. Diese Tabelle ist sozusagen die Zusammenfassung aller TrendWerte.
Im 2. Block wird das Ergebnis richtig eingetragen und bis zur letzten Abfrage auch gespeichert, weil ich mit der Where-Bedingung die Zuordnung verknüpfe. Beim letzten Eintrag bekomme ich die Fehlermeldung:
Was ist hier falsch?
Die nicht konsequente param.Abfrage? Wenn ja, wie erfolgt sie richtig? Da ich weder ein haupt-, noch ein nebenberuflicher Programmierer bin, wäre ich für jede Hilfestellung dankbar.
Alfred
ich frage die Tabelleninhalte einer Reihe von Tabellen mit (ByVal y As Integer) ab, das im 1. Block problemlos funktioniert. Das Ergebnis der Abfrage TrendWert ist auch im 2. Block gültig. Diese Tabelle ist sozusagen die Zusammenfassung aller TrendWerte.
Im 2. Block wird das Ergebnis richtig eingetragen und bis zur letzten Abfrage auch gespeichert, weil ich mit der Where-Bedingung die Zuordnung verknüpfe. Beim letzten Eintrag bekomme ich die Fehlermeldung:
Code:
Parallelitätsverletzung: Der UpdateCommand hat sich auf 0 der erwarteten 1 Datensätze ausgewirkt
Code:
Try myconn.Open() Dim com2 As New MySqlCommand("SELECT * FROM trenddaten ORDER BY ZhgZl ASC", myconn) Dim mySQL As String = "UPDATE trenddaten SET nTrend =?nTrend WHERE ZhgZl ='" & y & "'" Dim cmd As New MySqlCommand(mySQL, myconn) cmd.Parameters.Add("?nTrend", MySqlDbType.Double) cmd.Parameters("?nTrend").Value = TrendWert 'MessageBox.Show(CInt(y) & " " & TrendWert) 'Kontrolle! cmd.ExecuteNonQuery() Catch ex As Exception MessageBox.Show(ex.Message, "Fehler! Datenspeicherung ist fehlgeschlagen!") Finally Erase lMaxCount TrendWert = 0 myconn.Close() End Try
Alfred
Comment