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?

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

    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
Vielen Dank!