sql - 无法对封闭的数据集执行错误的操作，并且表中输入的数据不正确

我一直收到此错误，我正在努力寻找做错了什么。没有意义的是结果仍然被发布到数据库中，除了name字段之外的所有其他字段都是正确的。由于某种原因，它在名称字段中输入“ dmInfo”。

with dmQuery_u.dmInfo do
      begin
        dsInfo.Edit;
        qryData.SQL.Clear;
        qryData.SQL.Add('SELECT * FROM eventinfo ORDER BY eventnumber');
        qryData.Open;
        qryData.Last;
        autonum := qryData['eventnumber'] + 1;
        qryData.SQL.Clear;
        qryData.SQL.Add(
          'INSERT INTO eventinfo (eventnumber, bandname, venue, dateofevent, ticketcost, openingact, amountbooked)');
        qryData.SQL.Add(
          'VALUES (:eventnumber, :bandname, :venue, :dateofevent, :ticketcost, :openingact, :amountbooked)');
        qryData.Parameters.ParamByName('eventnumber').Value := autonum;
        qryData.Parameters.ParamByName('bandname').Value := name;
        qryData.Parameters.ParamByName('venue').Value := venue;
        qryData.Parameters.ParamByName('dateofevent').Value := date;
        qryData.Parameters.ParamByName('ticketcost').Value := ticketcost;
        qryData.Parameters.ParamByName('openingact').Value := openingact;
        qryData.Parameters.ParamByName('amountbooked').Value := amountbooked;
        qryData.ExecSQL;
        qryData.SQL.Clear;
        qryData.SQL.Add('SELECT * FROM eventinfo');
        qryData.Last;
        qryData.Open;

最佳答案

您的错误是在这里引起的：

 qryData.ExecSQL;
 qryData.SQL.Clear;
 qryData.SQL.Add('SELECT * FROM eventinfo');
 qryData.Last;  { !! should be after ---v }
 qryData.Open;  { should be first ---^ }

调用.ExecSQL将执行非查询（即：不返回记录集）命令。由于此处没有有效的数据集，因此调用.Last将引发错误。您必须先致电.Open。

对于用name填充的dmInfo字段的第二个问题，您在此处使用危险的with语句而感到困惑：

 with dmQuery_u.dmInfo do
   {...}
    qryData.Parameters.ParamByName('bandname').Value := name;

with语句在这里隐藏了您要使用的name变量，而是将其解释为dmQuery_u.dmInfo.Name。摆脱with语句，对所有内容使用显式限定符，或更改name变量的名称。

关于sql - 无法对封闭的数据集执行错误的操作，并且表中输入的数据不正确，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/45615270/