|
@@ -184,10 +184,9 @@ begin
|
|
{$ENDIF Win64}
|
|
{$ENDIF Win64}
|
|
MSSQL: Fconnection := TMSSQLConnection.Create(nil);
|
|
MSSQL: Fconnection := TMSSQLConnection.Create(nil);
|
|
SYBASE: Fconnection := TSybaseConnection.Create(nil);
|
|
SYBASE: Fconnection := TSybaseConnection.Create(nil);
|
|
|
|
+ else writeln('Invalid database type, check if a valid database type for your achitecture was provided in the file ''database.ini''');
|
|
end;
|
|
end;
|
|
|
|
|
|
- if not assigned(Fconnection) then writeln('Invalid database type, check if a valid database type for your achitecture was provided in the file ''database.ini''');
|
|
|
|
-
|
|
|
|
FTransaction := TSQLTransaction.Create(nil);
|
|
FTransaction := TSQLTransaction.Create(nil);
|
|
|
|
|
|
with Fconnection do
|
|
with Fconnection do
|