Search options (Page 6 of 30)

SQLExecute('PRAGMA foreign_keys = off ');

Try to place it here:

procedure Form1_bImport_OnClick (Sender: TObject; var Cancel: boolean);
begin
    OpenDialog := TOpenDialog.Create(Form1);   // Setup dialog to select the csv file to import. This should be one that was created by the export procedure
  OpenDialog.DefaultExt := 'csv';
  OpenDialog.Filter := 'CSV|*.csv';   // Only allow csv files
  OpenDialog.Options := ofOverwritePrompt+ofHideReadOnly+ofEnableSizing;
  Dups := 0;
  if OpenDialog.Execute then
   begin

         SQLExecute('PRAGMA foreign_keys = off ');

     ProgressBar := TProgressBar.Create(Form1);
     ProgressBar.Parent := Form1.pnProgressBar;
     ProgressBar.Width := Form1.pnProgressBar.Width;
     ProgressBar.Height := Form1.pnProgressBar.Height;
     ProgressBar.Position := 0;
     ProgressBar.Max := 10;
     Form1.pnProgressBar.Visible := True;
     Form1.lblImpExp.Caption := 'Importing Database';
     application.processmessages;
     ImportToSl(OpenDialog.FileName);  // Run Import procedure - Pass the csv filename to the procedure
     Form1.TableGrid1.dbUpdate;
     Form1.tgCompanies.dbUpdate;
     Form1.pnProgressBar.Visible := False;
     Form1.lblImpExp.Caption := '';
     ProgressBar.Free;
     ShowMessage('Import Finished.'+ '      Duplicates Not Imported: ' + IntToStr(Dups));

SQLExecute('PRAGMA foreign_keys = on ');

   end;
  OpenDialog.Free;
end;

Lines are added in bold

Hi all. According to the example import export project which does not include the foreign keys of the database,is there a way to include the foreign keys in the project?, so the while database could be export and import in and from a csv file

Foreign keys are generated by the database engine when you add/edit the table strucuture to keep the internal data structure intact and with integrity. You can not export them. They exist "virutal" as part of the internal structure information and internal check processing of SQL commands. They are enforced by the database engine. They are a kind of ruleset and not any kind of records.