“无法将类型（Null）的变体转换为类型（OleStr）”使用查询组件提取数据以供以后使用

Question

我正在尝试使用 qry1 从表“游戏”中提取数据到一个字符串变量中，然后将其插入到“库”中。我的问题是当我单击按钮时，它在sGameName := qry1['GameName']; 行上给了我上面提到的错误。该字段是一个短字符串变量

procedure TForm1.btnConfirmClick(Sender: TObject);
var
  sGameID, sGameName, sPlatform : string;
begin
  if (chkAddLb.Checked = True) and (chkRemoveLb.Checked = False) then
  begin
    qry1.Close;
    qry1.SQL.Text := 'SELECT * FROM Games WHERE GameName = "' + cbb1.Items.Text + '";';
    qry1.Open;
    qry1.First;
    sGameID := qry1['GameID'];
    sGameName := qry1['GameName'];
    sPlatform := qry1['Platform'];
    qry1.Close;
    qry1.SQL.Text := 'INSERT INTO Library ([GameName],[GameID],[Platform],[UserID]) VALUES ("' + sGameName + '","' + sGameID + '","' + sPlatform + '","' + sLoggedInUser + '");';
    qry1.ExecSQL;
    qry1.SQL.Text := 'SELECT * FROM Library WHERE UserID = "' + sLoggedInUser + '";';
    qry1.Open;
  end;

我希望变量sGameName 被赋予列中的值，但所发生的只是弹出错误。

到目前为止，这只发生在该行。

Answer 1

问题

显然这个字段返回null，一般表示它是空的。

值null 的变量不能分配给这样的字符串。重现问题而不涉及查询的小代码如下所示：

var
  s: String;
  v: Variant;
begin
  v := null;
  s := v;
  ShowMessage(s);

注意有些数据库（尤其是Oracle），不区分空字符串和null，所以如果你插入一个空字符串，你会得到null，因为对他们来说是一样的。

GameName 是空的，这很奇怪，因为您在 where 子句中使用了它。这可能是因为未找到游戏并且您的查询未返回任何行。在执行其余代码之前检查qry1.IsEmpty 以检查您是否真的得到了结果。那可能已经解决了您的问题...

解决方案

因此，如果您检查了查询是否确实返回了一行，但某些字段实际上是 null 并且您需要处理它，那么有两种可互换的方法来做到这一点：

使用字段的AsString 方法。为此，您需要使用 FieldByName 方法来获取字段对象，而不是它的变量值：

sGameName := qry1.FieldByName('GameName').AsString;

或使用VarToStr 函数。效果是一样的，我认为这或多或少是 AsString 无论如何都在做的事情。使用哪一个是个人喜好问题。

sGameName := VarToStr(qry1['GameName']);