SQL Semicolon im String -> Fehler bei Insert

[Sinspin]

Zitat:

Dann trag doch einfach mal einen Record von Hand in die DB ein, der solche Zeichen enthält. Und mach dann einen Export mit den Tools die Du auch für den Import verwenden willst.
In dem Export sollten die Zeichen ja so kodiert sein dass es passt.

Zitat von DaCoda:

Hab ich auch gleich mal gemacht.
Das Ergebnis ist ernüchternd. Das SQL-Backup wurde anstandslos erzeugt, aber bein einlesen gibt es dann wieder das Problem.

Ist doch immer schön zu sehen wenn das, worauf man sich verlassen können sollte nicht funktioniert.
Es ist zwar nicht optimal, aber Du könntest das Backup und Restore auch komplett selber machen. Und einfach die Daten in eine CSV Datei schreiben.
Beim einlesen erzeugst Du SQL Scripte denen Du die Feldinhalte mit Parametern übergeben kannst. Das sollten das String Problem umgehen.

[DaCoda]

Manchmal sitzt der Fehler aber auch einfach vor dem Bildschirm, das berühmte "40cm Problem"

Ich habe das Backup/Restore Backup/Restore mal anders gelöst, wegen UTF8-Codierung und es geht so auch schneller:

Code:

const
  EmptyStr = '';

function TfrmBackupRestore.GetSqlVersion: string;
begin
  Result := 'Unbekannt';
  try
    with qryData.SQL do begin
      Clear;
      Add('SELECT sqlite_version()')
    end;
    qryData.Open;
    Result := qryData.FieldByName('sqlite_version()').AsString;
    qryData.CLose;
  finally
    // 
  end;
end;

procedure TfrmBackupRestore.DoBackup;
var
  SL: TStringList;

begin
  SL := TstringList.Create;
  try
    tblData.Active := True;
    tblData.Open;

    if tblData.RecordCount > 0 then begin

      SL.Add('-- --------------------------------------------------------');
      SL.Add('-- Host: ' + DbName + SqLiteSqlExt);
      SL.Add('-- Server-Version: ' + dmMain.SqlConnection.Drivername + ' Version : ' + GetSqlVersion);
      SL.Add('-- Server - Betriebssystem: ' + TOSVersion.Name);
      SL.Add('-- Generator: ' + FileVersion.strProductName + Space + strVersion + FileVersion.strFileVersion);
      SL.Add('-- --------------------------------------------------------');

      SL.Add(EmptyStr);

      SL.Add('-- Exportiere Datenbank - Struktur für Mediathek');
      SL.Add('/*!40000 CREATE DATABASE if not EXISTS Mediathek */;');

      SL.Add(EmptyStr);

      SL.Add('-- Exportiere Struktur von Tabelle Mediathek.Mediathek');
      SL.Add('CREATE TABLE if not EXISTS Mediathek(ID INTEGER PRIMARY KEY AUTOINCREMENT, Interpret VARCHAR not NULL, Album VARCHAR not NULL, Titel VARCHAR not NULL, FileName VARCHAR not NULL UNIQUE);');

      SL.Add(EmptyStr);

      SL.Add('-- Exportiere Daten aus Tabelle Mediathek.Mediathek');
      SL.Add('DELETE FROM Mediathek;');
      SL.Add('/*!40000 ALTER TABLE Mediathek DISABLE KEYS */;');

      SL.Add(EmptyStr);

      pbProgress.Style := pbstMarquee;
      tblData.First;
      while not (tblData.Eof or boAborted) do begin
        SL.Add('INSERT INTO Mediathek VALUES (' + QuotedStr(tblDataID.AsString) + ',' + QuotedStr(tblDataInterpret.AsWideString) + ',' + QuotedStr(tblDataAlbum.AsWideString) + ',' + QuotedStr(tblDataTitel.AsWideString) + ',' + QuotedStr(tblDataFileName.AsWideString) + ');');
        tblData.Next;
        Application.ProcessMessages;
      end;
      pbProgress.Style := pbstNormal;

      SL.Add('/*!40000 ALTER TABLE Mediathek ENABLE KEYS */;');

      SL.Add(EmptyStr);

      SL.Add('-- Exportiere Struktur von Tabelle Mediathek.TempData');
      SL.Add('CREATE TABLE IF NOT EXISTS TempData (ID INTEGER PRIMARY KEY AUTOINCREMENT, OrgId INT NOT NULL UNIQUE, FileName VARCHAR NOT NULL UNIQUE);');

      SL.Add(EmptyStr);

      SL.Add('-- Exportiere Daten aus Tabelle Mediathek.TempData');
      SL.Add('DELETE FROM TempData;');
      SL.Add('/*!40000 ALTER TABLE TempData DISABLE KEYS */;');
      SL.Add('/*!40000 ALTER TABLE TempData ENABLE KEYS */;');
      SL.SaveToFile(SqlBackupFileName, TEncoding.UTF8);
    end;

    tblData.Close;
    tblData.Active := False;
  finally
    FreeANdNil(SL);
  end;
end;

procedure TfrmBackupRestore.DoRestore;
var
  SL: TStringList;
  Loop: Integer;

begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(SqlBackupFileName, TEncoding.UTF8);
    if SL.Count > 0 then begin
      for Loop := 0 to SL.Count - 1 do begin
        if SL[Loop] <> EmptyStr then begin
          try
            qryData.SQL.Text := SL[Loop];
            qryData.ExecSQL;
            Application.ProcessMessages;
          except
            // TODO
          end;
        end;
      end;
    end;
  finally
    FreeAndNil(SL);
  end;
end;

Allerdings haben meine DBMS-Tools an dieser Stelle offensichtlich auch einen Fehler.
Meine SQL-Sicherung wird nun anstandslos von den Tools verarbeitet.
Ich habe aber auch eine Restore-Procedure mit gepostet...

Also Danke Euch für Eure Hilfe und Tipps

[Sinspin]

Sorry, Ich muss leider nochmal nachtreten.
Wofür machst du : Application.ProcessMessages; .

Das reduziert die Ausführgeschwindigkeit massiv.

Wenn es unbedingt sein muss, dann alle 100 oder 200 Datensätze.
Oder eventuell 50 mal auf 100% aller Datensätze.
Allerdings sehe ich in deiner Routine nichts was wie eine Fortschrittsanzeige aussieht. Also raus damit.

[DaCoda]

Hallo Sinspin,

Zitat von Sinspin:

Sorry, Ich muss leider nochmal nachtreten.
Wofür machst du : Application.ProcessMessages; .

Das reduziert die Ausführgeschwindigkeit massiv.

Wenn es unbedingt sein muss, dann alle 100 oder 200 Datensätze.
Oder eventuell 50 mal auf 100% aller Datensätze.
Allerdings sehe ich in deiner Routine nichts was wie eine Fortschrittsanzeige aussieht. Also raus damit.

Das Processmessages und die Progressbar waren zum testen und sind halt noch beim posten drinne gewesen