| 17 |
|
{$IFDEF FPC} |
| 18 |
|
{$mode delphi} |
| 19 |
|
{$codepage utf8} |
| 20 |
+ |
{$define HASREQEX} |
| 21 |
|
{$ENDIF} |
| 22 |
|
|
| 23 |
|
interface |
| 93 |
|
writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion); |
| 94 |
|
PrintDPB(Attachment.getDPB); |
| 95 |
|
|
| 96 |
+ |
{$IFDEF HASREQEX} |
| 97 |
|
{Demonstrate reconnect when database created with SQL Statement} |
| 98 |
< |
Attachment.Disconnect; |
| 99 |
< |
Attachment.Connect; |
| 98 |
> |
try |
| 99 |
> |
Attachment.Disconnect; |
| 100 |
> |
Attachment.Connect; |
| 101 |
> |
except on E:Exception do |
| 102 |
> |
writeln(OutFile,'Error reconnecting to Database: ',E.Message); |
| 103 |
> |
end; |
| 104 |
> |
{$ENDIF} |
| 105 |
|
|
| 106 |
|
writeln(OutFile,'Dropping Database'); |
| 107 |
|
if Attachment <> nil then |
