sql - 如何在 Delphi 中设置包含“@”的 sql 查询参数

Question

我正在使用电子邮件地址查询数据库。地址类似于 fred.o'neill@smxi.com

在 Delphi 中，这看起来像是fred.o''neill@smxi.com撇号当然被转义了。

假设查询是...

'select * from table where (email = ''%s'')'

现在，如果我只是替换 %s，查询将失败，因为它似乎将值视为 2 个字符串 'fred.o' 和 'neill@smxi.com'，即它无法识别转义。

如果查询是...

'select * from table where email = :email' 

...然后将参数设置为电子邮件地址。如果没有撇号，它可以工作，但如果电子邮件地址包含撇号，则与数据不匹配。

[编辑删除不正确的数据]

有什么建议么？

Answer 1

使用参数时，请勿自行添加引号或转义任何内容。

这应该有效：

var
   email: String;
begin
  email := 'fred.o''neill@smxi.com';
  MyQuery.SQL.Text := 'SELECT * FROM table WHERE email = :email';
  // Ensure that ParamCheck is enabled
  MyQuery.ParamCheck := True;
  // Explicitly set the type to string to ensure it's escaped
  // E.g. binary types are not escaped
  MyQuery.Params.ParamByName('email').DataType := ftString;
  MyQuery.Params.ParamByName('email').Value := email;
  MyQuery.Active := True;
end;

如果它没有返回任何内容，请检查存储在数据库中的实际值。插入时可能没有正确转义。