如何在名称中包含冒号的表上运行查询？

Question

我正在从 .mdb 文件（MSAccess 2000 格式）中读取数据。有些表的名称中有冒号。当我尝试在这些表上打开查询时遇到异常：

EOleException with message 'Parameter object is improperly defined. Inconsistent or incomplete information was provided'.

这是我的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source=DB.mdb;Persist Security Info=False';
  Query.SQL.Text := 'select * from [Table1:1]';
  try
    Query.Open;
  finally
    Query.Free;
  end;
end;

Answer 1

TQuery 将解释 : if ParamCheck = true。
设置ParamCheck:= false，然后设置SQL.Text。

procedure TForm1.Button1Click(Sender: TObject);
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source=DB.mdb;Persist Security Info=False';
  Query.ParamCheck:= false;
  Query.SQL.Text := 'select * from [Table1:1]';
  try
    Query.Open;
  finally
    Query.Free;
  end;
end;

现在可以了。

组合冒号的表/列名称和参数
如果您绝对必须沿着使用带有冒号的表/列名称的路径，并且仍然想在查询中的其他地方使用参数，那么您可以使用宏来填写表/列名称。
不过，这需要 FireDac。 我建议您对此非常小心，因为与参数不同，宏对 SQL 注入并不安全！

见：http://docwiki.embarcadero.com/CodeExamples/Seattle/en/FireDAC.TFDQuery.Macros_Sample

Answer 2

我正在检查其他语言的解决方案。然而Johan's answer 似乎是正确的，但发布的here 也适用于Delphi/Access 案例：

在你的表名周围使用反引号 ` 应该允许它被参数检查忽略。

Query.SQL.Text := 'select * from `Table1:1`';

这个也可以和查询字符串中的参数结合使用。