在 SQL 查询中使用数字时，“无法将类型 (Null) 的变体转换为类型 (OleStr)”

Question

我正在尝试使用 SQL 检查数据库 (Access) 中是否存在特定用户名。如果我只使用字母或字符串字符，则代码可以正常工作，但是当我使用下面示例中的数字时，即使我将它们作为字符串插入，我也会收到错误：

“无法将类型（Null）的变体转换为类型（OleStr）”

  DataModule.Query.Active := False;
  sQuery := 'SELECT * FROM Login WHERE Username = "31"';
  DataModule.Query.SQL.Text := sQuery;
  DataModule.Query.Active := True;

我不知道我做错了什么。

编辑：

调试器在以下代码中的 if 行之后给出错误

 if UpperCase(DataModule.Query['Username']) = sUsername then
  begin
    if DataModule.Query['Password'] = sPassword then
    begin
      bPass := True;
    end

[已解决]

感谢大家的建议，我让它工作了！

Answer 1

您应该使用Query.FieldByName('Password').AsString（与用户名字段相同）来消除任何 NULL 问题。 .AsString 将 db NULL 转换为 Delphi 空字符串 ''。

打开查询后，您需要在实际测试用户名/密码逻辑之前测试是否有任何记录。

注意：您不需要再次检查用户名，因为如果查询返回的结果匹配并且该用户存在于您的表中：

bPass := False;
if not DataModule.Query.IsEmpty then
  if DataModule.Query.FieldByName('Password').AsString = sPassword then
    begin
      bPass := True;
    end

如前所述，您最好使用参数化查询。或者至少使用QuotedStr 来避免SQL 注入。例如：

sQuery := 'SELECT * FROM Login WHERE Username = ' + QuotedStr('31');

参数化查询应如下所示：

sQuery := 'SELECT * FROM Login WHERE Username = :Username';
DataModule.Query.SQL.Text := sQuery;
DataModule.Query.ParamByName('Username').Value := '31';