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

前端之家收集整理的这篇文章主要介绍了delphi – 如何在名称中包含冒号的表上运行查询?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在从.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;

解决方法

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;

现在它有效.

结合克隆的表/列名称和参数
如果您绝对必须沿着使用表中包含冒号的表/列名称的路径,并且仍然希望在查询中的其他地方使用params,那么您可以使用宏来填充表/列名称.
这需要FireDac.
我建议你对此非常小心,因为不像参数宏对sql注入是不安全的!

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

猜你在找的Delphi相关文章