Hallo Leute,
ich bin ratlos.
ich bekomme oben genannten Fehler wenn ich folgenden Code ausführe:
Delphi-Quellcode:
Daten.Q_MSSQL_Export.Close;
Daten.Q_MSSQL_Export.SQL.Text := 'Select ID, Memo from Tabelle';
Daten.Q_MSSQL_Export.Open;
Daten.Q_SQLITE_Export.Close;
Daten.Q_SQLITE_Export.SQL.Text := 'Select ID, Memo from Tabelle'
Daten.Q_SQLITE_Export.Open;
while not Daten.Q_SQLITE_Export.Eof do
begin
Daten.Q_MSSQL_Export.Append;
for i := 0 to Daten.Q_MSSQL_Export.Fields.Count-1 do
begin
FieldName := Daten.Q_MSSQL_Export.Fields[i].FullName;
// Felder durchlaufen
if (Daten.Q_SQLITE_Export.FindField(FieldName) <> nil) then
begin
if Daten.Q_SQLITE_Export.FieldByName(FieldName).Value <> Daten.Q_MSSQL_Export.FieldByName(FieldName).Value then
Daten.Q_MSSQL_Export.FieldByName(FieldName).Value := Daten.Q_SQLITE_Export.FieldByName(FieldName).Value;
end;
end;
Daten.Q_MSSQL_Export.Post;
Daten.Q_SQLITE_Export.Next;
end;
das Feld 'Memo' ist ein Feld vom Typ 'TEXT' (sowohl in der
MSSQL als auch in der SQLITE Datenbank).
für mich sieht das alles wunderbar aus und sollte funktionieren. Oder habe ich etwas grundlegendes vergessen?