delphi - 如何通过Delphi在MDB文件上设置 "SQL Server Compatible Syntax"属性？

Question

Access 数据库有一个名为“SQL Server 兼容语法”的属性(在 Ms Access 2003 中，它位于“工具”->“表/ View ”->“SQL Server 兼容语法”中；在 Access 2007+ 中，它位于“Office Logo ”->“Access 选项”中) -> 对象设计器 -> 查询设计)。

如何通过 Delphi 设置此选项？ (ADO、ADOX 或任何其他方式...)

谢谢。

Answer 1

要修改这些属性，您必须使用Microsoft Office Access 数据库引擎对象库。在 Delphi 中，您可以使用选项 Components ->Import Component -> Import Type Library 导入此库。

尝试这个示例。

uses
  ActiveX,
  ComObj,
  Variants,
  SysUtils,
  DAO_TLB in '..\12.0\Imports\DAO_TLB.pas';


procedure test;
var
  LEngine : _DBEngine;
  LDataBase : Database;
begin
  LEngine:=CoDbEngine.Create as _DBEngine;
  //Open the access database
  LEngine.OpenDatabase('C:\Foo\Bar.accdb', dbDriverNoPrompt, false, '');
  LDataBase:=LEngine.Workspaces.Item[0].Databases.Item[0];
  LDataBase.Properties.Item['ANSI Query Mode'].Value := 1;
  Writeln('Done');
  LDataBase.Close();
end;

begin
 try
    CoInitialize(nil);
    try
      Test;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.