Hi, beim nachfolgendem Code erhalte ich die Fehlermeldung: für mindestens einen erforderlichen Parameter wurde kein Wert angegeben.
An den Spaltennamen kann es nicht liegen. Vermutlich an der WHERE-Klausel, aber was?
Ich habe diesen Schnipsel aus einem funktionierendem MySQL-Code. So weit kann ich doch nicht daneben liegen?
Vielen Dank!
An den Spaltennamen kann es nicht liegen. Vermutlich an der WHERE-Klausel, aber was?
Ich habe diesen Schnipsel aus einem funktionierendem MySQL-Code. So weit kann ich doch nicht daneben liegen?
Code:
Try
conn.Open()
Dim com As New OleDbCommand("SELECT * FROM Total ORDER BY lID ASC", conn)
Dim da As New OleDbDataAdapter(com)
Dim ds As New DataSet()
da.Fill(ds, "total")
Dim dt As DataTable = ds.Tables("total")
Dim cb As New OleDbCommandBuilder(da)
Dim row As DataRow
i = 1
For Each row In dt.Rows
Dim com2 As New OleDbCommand("SELECT COUNT(*) FROM treffer WHERE ID=i", conn)
tot = CInt(Format(CType(com2.ExecuteScalar, Integer), "##,##0"))
Dim com3 As New OleDbCommand("SELECT COUNT(*) FROM Lotto06treffer WHERE ID=i AND Hit=3", conn)
h_3 = CInt(Format(CType(com3.ExecuteScalar, Integer), "##,##0"))
etc., etc....
row("lHit") = Format(tot, "##,##0")
row("H3") = Format(h_3, "##,##0")
i += 1
tot = 0 : h_3 = 0
ProgressBar1.PerformStep()
Application.DoEvents()
Next
da.Update(ds, "total")
Catch ex As Exception
MessageBox.Show(ex.Message, "Fehler! Datenspeicherung 'total' ist fehlgeschlagen!")
Finally
conn.Close()
End Try