https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=ExportADOTable 2026-10-03T16:45:35Z Revision history for this page on the wiki MediaWiki 1.45.3 https://www.bishopphillips.com/riskwiki/index.php?title=ExportADOTable&diff=248&oldid=prev 2026-04-12T06:37:46Z

<p>1 revision imported</p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 06:37, 12 April 2026</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Bishopj https://www.bishopphillips.com/riskwiki/index.php?title=ExportADOTable&diff=247&oldid=prev 2019-09-11T17:00:42Z

<p>Created page with &quot;==ADO Based Table Exporter== Language: Delphi 7 - 2007 Exports the content of a table connected via ADO using various export formats. Registers TExportADOTable &lt;pre&gt; u...&quot;</p> <p><b>New page</b></p><div>==ADO Based Table Exporter==<br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> Exports the content of a table connected via ADO using various export formats.<br /> <br /> <br /> Registers TExportADOTable <br /> <br /> <br /> &lt;pre&gt;<br /> uses<br /> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br /> Db, ADODB;<br /> <br /> type<br /> TExportADOTable = class(TADOTable)<br /> private<br /> { Private declarations }<br /> //TADOCommand component used to execute the SQL exporting commands<br /> FADOCommand: TADOCommand;<br /> protected<br /> { Protected declarations }<br /> public<br /> { Public declarations }<br /> constructor Create(AOwner: TComponent); override;<br /> <br /> //Export procedures<br /> //&quot;FiledNames&quot; is a comma separated list of the names of the fields you want to export<br /> //&quot;FileName&quot; is the name of the output file (including the complete path)<br /> //if the dataset is filtered (Filtered = true and Filter &lt;&gt; &#039;&#039;), then I append <br /> //the filter string to the sql command in the &quot;where&quot; directive<br /> //if the dataset is sorted (Sort &lt;&gt; &#039;&#039;) then I append the sort string to the sql command in the <br /> //&quot;order by&quot; directive<br /> <br /> procedure ExportToExcel(FieldNames: string; FileName: string;<br /> SheetName: string; IsamFormat: string);<br /> procedure ExportToHtml(FieldNames: string; FileName: string);<br /> procedure ExportToParadox(FieldNames: string; FileName: string; IsamFormat: string);<br /> procedure ExportToDbase(FieldNames: string; FileName: string; IsamFormat: string);<br /> procedure ExportToTxt(FieldNames: string; FileName: string);<br /> published<br /> { Published declarations }<br /> end;<br /> <br /> &lt;/pre&gt;<br /> <br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj