如何使用嵌入式驱动查询Firebird数据库的SQL方言？

我帮你补全并优化了这段Delphi代码，用来获取Firebird嵌入式数据库的SQL方言，直接就能用：

procedure TFrmFireDACEmbed.BtnGetDBDialectClick(Sender: TObject);
var
  lFDConnection: TFDConnection;
  lDriverLink: TFDPhysFBDriverLink;
  lDialect: Integer;
  lQuery: TFDQuery;
begin
  if not DlgOpen.Execute then Exit;

  lDriverLink := TFDPhysFBDriverLink.Create(nil);
  lFDConnection := TFDConnection.Create(nil);
  lQuery := TFDQuery.Create(nil);
  try
    // 配置Firebird嵌入式驱动
    lDriverLink.DriverID := 'FBEmbedded';
    lDriverLink.VendorLib := 'fbembed.dll'; // 32位库，64位请换成fbembed64.dll

    // 设置连接参数
    lFDConnection.DriverName := 'FBEmbedded';
    lFDConnection.Params.Database := DlgOpen.FileName; // 选中的Firebird数据库文件
    // 数据库默认账号密码，根据你的实际情况修改
    lFDConnection.Params.UserName := 'sysdba';
    lFDConnection.Params.Password := 'masterkey';

    // 建立连接
    lFDConnection.Connected := True;

    // 核心：查询数据库实际的SQL方言
    lQuery.Connection := lFDConnection;
    lQuery.SQL.Text := 'SELECT RDB$GET_CONTEXT(''SYSTEM'', ''DB_DIALECT'') AS DB_DIALECT FROM RDB$DATABASE';
    lQuery.Open;
    try
      lDialect := lQuery.FieldByName('DB_DIALECT').AsInteger;
      ShowMessage(Format('数据库实际SQL方言：%d', [lDialect]));
    finally
      lQuery.Close;
    end;

    // 补充：如果你想查看客户端连接时设置的方言，可以用下面这行（注意和实际方言可能不一致）
    // lDialect := lFDConnection.Params.Dialect;
    // ShowMessage(Format('客户端配置的SQL方言：%d', [lDialect]));
  finally
    // 记得释放资源
    lQuery.Free;
    lFDConnection.Free;
    lDriverLink.Free;
  end;
end;

几个关键注意事项： #

• 驱动文件匹配：32位程序用fbembed.dll，64位程序必须用fbembed64.dll，把对应的文件放到程序运行目录里就行。
• 获取真实方言：我用了RDB$GET_CONTEXT系统函数来查询数据库本身的方言，这比直接读FDConnection的Dialect参数更准确——因为后者只是客户端连接时指定的数值，可能和数据库实际方言不匹配。
• 数据库访问权限：嵌入式模式下，同一时间只能有一个进程访问数据库文件，所以要确保没有其他程序在占用它。
• 账号密码：默认的sysdba/masterkey是Firebird的默认管理员账号，如果你改了数据库的密码，记得同步修改代码里的参数。

内容的提问来源于stack exchange，提问作者Jan Doggen