Delphi東京版FireDAC鏈接MSSQL2000提示對象名 'SYS.DATABASES' 無效

時間 2019-12-05

標籤 delphi 東京 firedac 鏈接 mssql2000 mssql 提示對象 sys.databases sys databases 無效欄目 Delphi 简体版

原文原文鏈接

在Delphi 10.2.1 東京版中，FireDAC默認不兼容MSSQL2000，會提示「[FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver][SQL Server]對象名 'SYS.DATABASES' 無效。」的錯誤，對此須要修改FireDAC.Phys.MSSQL.pas單元進行修復：spa

首先從delphi目錄下把FireDAC.Phys.MSSQL.pas文件複製出來，而後打開它，註釋掉 {$I FireDAC.inc}，而後查找到「procedure TFDPhysMSSQLConnection.InternalSetMeta;」，再找到「sCompatLvl := '(SELECT COMPATIBILITY_LEVEL FROM SYS.DATABASES WHERE LOWER(NAME) = ' +AnsiLowerCase(sCurCatalog) + ')';」，將其修改成：code

 
        if 
        oConnMeta 
        . 
        ServerVersion >= svMSSQL2008  
        then 
       
        sCompatLvl :=  
        '(SELECT compatibility_level FROM sys.databases WHERE name = ' 
       
        + AnsiLowerCase(sCurCatalog) +  
        ')' 
       
        else 
        // MSSQL200五、MSSQL2000沒有sys.databases表 
       
        sCompatLvl := IntToStr(oConnMeta 
        . 
        ServerVersion  
        div 
        10000000 
        );