Hallo,
if Daten.Q_SQLITE_Export.FieldByName(FieldName).Value <> Daten.Q_MSSQL_Export.FieldByName(FieldName).Value then
Wozu ist diese Zeile, wenn du weiter oben eh Append machst?
Ausserdem durchkäufst du "alle" Felder, obwohl es doch nur Id und Memo sind.
Reicht da nicht ein:
Delphi-Quellcode:
while not Daten.Q_SQLITE_Export.Eof do
begin
Daten.Q_MSSQL_Export.Append;
Daten.Q_MSSQL_Export.FieldByName('Id').Value := Daten.Q_SQLITE_Export.FieldByName('Id').Value;
Daten.Q_MSSQL_Export.FieldByName('Memo').Value := Daten.Q_SQLITE_Export.FieldByName('Memo').Value;
Daten.Q_MSSQL_Export.Post;
Daten.Q_SQLITE_Export.Next;
end;
Probier doch erst mal das Einfache aus.
Dann würde mich interessieren, ob der Fehler schon beim ersten Datensatz kommt oder erst irgendwo zwischendrin,
(vielleicht, wenn der Feldinhalt NULL ist?)