TADOQuery : 将 null 作为参数传递并获取结果集

Question

我正在研究 Delphi7 和 SQlserver 2008 R2。 我有一个表格，上面有一些数据，如下所示。\

CREATE TABLE dbo.tstTable (
    ID int IDENTITY(1,1) PRIMARY KEY,
    Name varchar(255) NOT NULL,
    Eid int null,
    Pid int null
);

insert into tstTable(Name,Eid,Pid) values ('name1',1,null);
insert into tstTable(Name,Eid,Pid) values ('name2',2,null);
insert into tstTable(Name,Eid,Pid) values ('name3',3,null);
insert into tstTable(Name,Eid,Pid) values ('name4',null,4);
insert into tstTable(Name,Eid,Pid) values ('name5',null,5);
insert into tstTable(Name,Eid,Pid) values ('name4',null,6);
insert into tstTable(Name,Eid,Pid) values ('name7',null,null);

现在我想获取 Eid 等于 1 的记录。在 sql server 中我能够得到结果。

当我在 delphi 中尝试相同的操作时，我没有得到任何结果。 在 Delphi 中，我使用了 TADOConnection、TADOQuery、TDataSource 和 TDBGrid。

SET TADOQuery.Query = 'select Name from tstTable where Eid=:Eid and Pid =:Pid'

  with ADOQuery1 do
  begin
    Parameters.ParamByName('Eid').Value := 1;
    Parameters.ParamByName('pid').Value := NULL;//i tried with Unassigned also
    Close;
    open;
  end; //with

当我打开 AdoQuery 时，在网格中它没有显示任何记录。 下面的代码也没有返回任何记录。

  with ADOQuery1 do
  begin
    Parameters.ParamByName('Eid').Value := NULL;
    Parameters.ParamByName('pid').Value := NULL;//i tried with Unassigned also
    Close;
    open;
  end; //with

如何处理这种情况？

Answer 1

我可以说，如果 SET ANSI_NULLS 是 ON，则您在图像中提供的查询返回 (0) 行：

你可以尝试使用设置为OFF:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SET ANSI_NULLS OFF;');     
  ADOQuery1.SQL.Add('select Name from tstTable where Eid=:Eid and Pid =:Pid');
  ADOQuery1.Parameters.ParamByName('Eid').Value := 1;
  ADOQuery1.Parameters.ParamByName('pid').Value := NULL;
  ADOQuery1.Open;    
end; 

测试于：Delphi V7 (Build 4.453)。

Answer 2

您不应该为参数分配任何东西，而是将其清除以将其设置为 NULL

Parameters.ParamByName('Eid').Clear;

更新。不幸的是，这不适用于 TADOxxx 组件，因为 TParameter 没有 Clear() 方法。

所以解决办法

  ADOQuery1.SQL.Add('SELECT * FROM mytable');
  ADOQuery1.SQL.Add('WHERE mycol = :Param1 OR (:Param1 IS NULL AND mycol IS NULL)';
  ADOQuery1.Parameters.ParamByName('Param1').Attributes :=
    ADOQuery1.Parameters.ParamByName('Param1').Attributes + [paNullable];
  ADOQuery1.Parameters.ParamByName('Param1').Value := Null();
  ADOQuery1.Open;

使用 Delphi 7/SQL Server 2014 测试正常

由于兼容性问题和全局会话范围，请尽量不要更改任何 SET ANSI_XXX 设置。如果您确实需要更改会话默认设置，请在连接开始时进行。在查询之前执行SET ANSI_NULLS OFF 时，这将更改整个会话（连接）的设置。