diff options
Diffstat (limited to 'avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas')
-rw-r--r-- | avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas b/avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas index 7392e7c95f..22bc75c744 100644 --- a/avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas +++ b/avx512-0037785/packages/fcl-db/tests/sqldbtoolsunit.pas @@ -7,7 +7,7 @@ interface uses Classes, SysUtils, toolsunit ,db, sqldb - ,mysql40conn, mysql41conn, mysql50conn, mysql51conn, mysql55conn, mysql56conn, mysql57conn + ,mysql40conn, mysql41conn, mysql50conn, mysql51conn, mysql55conn, mysql56conn, mysql57conn, mysql80conn ,ibconnection ,pqconnection ,odbcconn @@ -20,13 +20,13 @@ uses ; type - TSQLConnType = (mysql40,mysql41,mysql50,mysql51,mysql55,mysql56,mysql57,postgresql,interbase,odbc,oracle,sqlite3,mssql,sybase); + TSQLConnType = (mysql40,mysql41,mysql50,mysql51,mysql55,mysql56,mysql57,mysql80,postgresql,interbase,odbc,oracle,sqlite3,mssql,sybase); TSQLServerType = (ssFirebird, ssInterbase, ssMSSQL, ssMySQL, ssOracle, ssPostgreSQL, ssSQLite, ssSybase, ssUnknown); const - MySQLConnTypes = [mysql40,mysql41,mysql50,mysql51,mysql55,mysql56,mysql57]; + MySQLConnTypes = [mysql40,mysql41,mysql50,mysql51,mysql55,mysql56,mysql57,mysql80]; SQLConnTypesNames : Array [TSQLConnType] of String[19] = - ('MYSQL40','MYSQL41','MYSQL50','MYSQL51','MYSQL55','MYSQL56','MYSQL57','POSTGRESQL','INTERBASE','ODBC','ORACLE','SQLITE3','MSSQL','SYBASE'); + ('MYSQL40','MYSQL41','MYSQL50','MYSQL51','MYSQL55','MYSQL56','MYSQL57','MYSQL80','POSTGRESQL','INTERBASE','ODBC','ORACLE','SQLITE3','MSSQL','SYBASE'); STestNotApplicable = 'This test does not apply to this sqldb connection type'; @@ -150,7 +150,7 @@ const // fall back mapping (e.g. in case GetConnectionInfo(citServerType) is not implemented) SQLConnTypeToServerTypeMap : array[TSQLConnType] of TSQLServerType = - (ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssPostgreSQL,ssFirebird,ssUnknown,ssOracle,ssSQLite,ssMSSQL,ssSybase); + (ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMySQL,ssMysql,ssPostgreSQL,ssFirebird,ssUnknown,ssOracle,ssSQLite,ssMSSQL,ssSybase); function IdentifierCase(const s: string): string; @@ -183,6 +183,7 @@ begin MYSQL55: Fconnection := TMySQL55Connection.Create(nil); MYSQL56: Fconnection := TMySQL56Connection.Create(nil); MYSQL57: Fconnection := TMySQL57Connection.Create(nil); + MYSQL80: Fconnection := TMySQL80Connection.Create(nil); SQLITE3: Fconnection := TSQLite3Connection.Create(nil); POSTGRESQL: Fconnection := TPQConnection.Create(nil); INTERBASE : Fconnection := TIBConnection.Create(nil); |