paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:10:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* disable some dbtypes for win64 that have no know working clientlib,

Browse Source 
patch by Reinier, Mantis #21579

git-svn-id: trunk@20656 -
This commit is contained in:
marco 2012-03-29 18:13:20 +00:00
parent 06688db698
commit 4f3f5b9374
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -5,10 +5,24 @@ unit SQLDBToolsUnit;
interface
uses
Classes, SysUtils, toolsunit,
db, sqldb,
mysql40conn, mysql41conn, mysql50conn, mysql51conn, mysql55conn,
ibconnection, pqconnection, odbcconn, oracleconnection, sqlite3conn, mssqlconn;
Classes, SysUtils, toolsunit
,db, sqldb
,mysql40conn, mysql41conn, mysql50conn, mysql51conn, mysql55conn,ibconnection
{$IFNDEF WIN64}
{See packages\fcl-db\src\sqldb\postgres\fpmake.pp: postgres connector won't be present on Win64}
,pqconnection
{$ENDIF WIN64}
,odbcconn
{$IFNDEF WIN64}
{See packages\fcl-db\fpmake.pp: Oracle connector is not built if PostgreSQL connectoris not built}
,oracleconnection
{$ENDIF WIN64}
,sqlite3conn
{$IFNDEF WIN64}
{This won't be available on Windows 64, either; perhaps other systems as well}
,mssqlconn
{$ENDIF WIN64}
;
type TSQLDBTypes = (mysql40,mysql41,mysql50,mysql51,mysql55,postgresql,interbase,odbc,oracle,sqlite3,mssql);
@ -141,6 +155,7 @@ begin
FieldtypeDefinitions[ftVarBytes] := 'VARBINARY(10)';
FieldtypeDefinitions[ftMemo] := 'CLOB'; //or TEXT SQLite supports both, but CLOB is sql standard (TEXT not)
end;
{$IFNDEF Win64}
if SQLDbType = POSTGRESQL then
begin
Fconnection := tPQConnection.Create(nil);
@ -149,6 +164,7 @@ begin
FieldtypeDefinitions[ftMemo] := 'TEXT';
FieldtypeDefinitions[ftGraphic] := '';
end;
{$ENDIF Win64}
if SQLDbType = INTERBASE then
begin
Fconnection := tIBConnection.Create(nil);
@ -156,7 +172,10 @@ begin
FieldtypeDefinitions[ftMemo] := 'BLOB SUB_TYPE TEXT';
end;
if SQLDbType = ODBC then Fconnection := tODBCConnection.Create(nil);
{$IFNDEF Win64}
if SQLDbType = ORACLE then Fconnection := TOracleConnection.Create(nil);
{$ENDIF Win64}
{$IFNDEF Win64}
if SQLDbType = MSSQL then
begin
Fconnection := TMSSQLConnection.Create(nil);
@ -171,6 +190,7 @@ begin
FieldtypeDefinitions[ftMemo] := 'TEXT';
FieldtypeDefinitions[ftGraphic] := '';
end;
{$ENDIF Win64}
if SQLDbType in [mysql40,mysql41,mysql50,mysql51,mysql55,odbc,interbase] then
begin
@ -211,7 +231,7 @@ begin
testValues[ftFixedChar,t] := PadRight(testValues[ftFixedChar,t], 10);
if not assigned(Fconnection) then writeln('Invalid database-type, check if a valid database-type was provided in the file ''database.ini''');
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''');
with Fconnection do
begin