https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BpcSMScriptLibrary_6BpcSMScriptLibrary 6 - Revision history2026-11-15T00:44:05ZRevision history for this page on the wikiMediaWiki 1.45.3https://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_6&diff=175&oldid=prevBishopj: 1 revision imported2026-04-12T06:37:07Z<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>Bishopjhttps://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_6&diff=174&oldid=prevBishopj: Created page with "==ADO Database Connection Utility routines== Language: Delphi 7 - 2007 <pre> ////////////////////////////////////////////////////////////////////////////////////////// ////..."2019-09-11T16:43:11Z<p>Created page with "==ADO Database Connection Utility routines== Language: Delphi 7 - 2007 <pre> ////////////////////////////////////////////////////////////////////////////////////////// ////..."</p>
<p><b>New page</b></p><div>==ADO Database Connection Utility routines==<br />
<br />
Language: Delphi 7 - 2007<br />
<br />
<br />
<pre><br />
//////////////////////////////////////////////////////////////////////////////////////////<br />
//////// ADO Database Connection Utility routines<br />
//////////////////////////////////////////////////////////////////////////////////////////<br />
<br />
interface<br />
uses sysutils, Types, classes, DB, ADODB, JclStrings, JclSysUtils;<br />
<br />
////////////////////////////////////////////////////////////////<br />
// Routines for managing the bpcSMDataModule Standard<br />
// Assumes a datamodule with the following components<br />
<br />
// Change the database connection to NewDb and return the new connection string or the old one if no change made.<br />
// (Assumes AdoConnection has a pre-existing valid Db connection)<br />
function bpcChangeADODBConnectionTo( AdoConnection : TADOConnection; WithRegistryReset: boolean; NewDb: string): string;<br />
// Return the name of the current database in the connectionstring<br />
function bpcGetCurrentADODBName(AdoConnection : TADOConnection): string;<br />
// Check whether the current Db is connectable and return the Db to the pre-test state<br />
function bpcIsADODBConnectable(AdoConnection : TADOConnection): boolean;<br />
// Copy a list of database names (containing Filter if not '') on the server in 'List' and return true if everything is successful, else false<br />
function bpcGetADODBNames( AdoConnection : TADOConnection; LoginPrompt : boolean; Filter:string; List: TStrings) : boolean;<br />
// Reconnect the datamodule returning true if successful, and false if error or otherwise unsuccesful. (Always forces disconnect first)<br />
function bpcReConnectDataModule( AdoConnection : TADOConnection): boolean;<br />
<br />
</pre><br />
<br />
=BackLinks=<br />
<br />
{{#dpl: linksto={{FULLPAGENAME}} }}</div>Bishopj