lazdbexport.TSQLExporter - no rows exported
lazarus / 16-Databases

----------------------------------------------------------------------
tudi_x · 2016-05-10 20:33

Hi !
I am trying to export a dataset as insert commands with the below code
but no rows are exported.
Tried to find an example in fpc\3.0.0\source\packages\fcl-db\tests
with no luck.
Please help with what I am missing.

Thank you

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i     try   
 e_inserts := TSQLExporter.Create(nil);       if e_inserts is
TCustomFileExporter then      begin        e_inserts.Dataset :=
Source;        e_inserts.FormatSettings.TableName := 'TEST';       
e_inserts.ExportFields.AddField('ID');        e_inserts.FileName :=
'xxxxxxxxxx.sql';        writeln('Rows: ' +
IntToStr(e_inserts.Execute));      end;       e_inserts.Free;   
except      on E: Exception do      begin        writeln('Error:' +
E.Message);      end;    end;