Hallo liebe Forumgemeinde,
ich möchte in eine leere Spalte in einer SQLite in jeder Zeile eine fortlaufende Nummer generieren und dort speichern.
Weiß jemand, warum das so NICHT geht?
'-- die IDNR generieren und in die Tabelle eintragen --
Cursor = SQL1.ExecQuery("SELECT Feld_006 FROM Abrechnung")
For i = 0 To Cursor.RowCount -1
Cursor.Position = i
Dim Abrechnung_IDNR As String
Abrechnung_IDNR = i +1 '-- zählt automatisch die Position des Cursors +1 --
'-- Ergebnis speichern --
SQL1.ExecNonQuery("UPDATE Abrechnung SET Feld_006 = '"&Abrechnung_IDNR&"' ") 'WHERE Feld_006 = '"&Cursor.Position&"' +1 ")
Log("-- 3196 -- Abrechnung-IDNR: "&Abrechnung_IDNR&"")
Next
Cursor.Close
In der Log-Datei wird die Zählung angezeigt, aber in der SQLite wird nur die "letzte" IDNR in alle Zeilen gleich gespeichert.
Weiß jemand Rat?