Schreibgeschütztes Recordset
20.01.2023 10:18:27
Thomas
Ich importiere Daten aus einem Excel Sheet in ein Recordset, um diese anschließend im eine SQL Datenbank zu exportieren. Um Zweiteres tun zu können, muss ich vorher bei einigen Werten das Format verändern. Allerdings erhalte ich die Fehlermeldung, dass das Recordset schreibgeschützt ist. Dabei habe ich es meines Erachtens nach mit Schreibzugriff definiert.
conn2.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
rs2.Open "SELECT * FROM [Tabelle1$]", conn2, adOpenDynamic, adLockOptimistic 'Schreiben der Daten aus xlxs Datei in ein Recordset
...
If IsNumeric(rs2(i).Value) And i > 0 And i > 4 And i > 10 And i > 16 And i > 21 And i > 22 And i > 23 And i > 24 Then
rs2(i).Value = CDbl(rs2(i).Value) ' ändern des Datentyps
rs2(i).Value = Replace(Format(rs2(i).Value, "0.########"), ",", "") ' In das Standard-Fließkommaformat ändern und tausender- Trennpunkt entfernen
MsgBox (rs2(i).Value)
End If