sql - 在delphi中存储过程

Question

我正在尝试从一些delphi代码中调用存储过程

我有一个像

procedure TDatabaseConnection.GetHourlyFiltergramLabSamples(StartTime, EndTime : TDateTime; Samples : TList<THourlyFilterCount>);
var
    StoredProc : TADOStoredProc;
begin
    StoredProc := TADOStoredProc.Create(nil);
    try
        StoredProc.Connection := Connection;
        StoredProc.ProcedureName := 'GetHourlyFiltergramLabSamples';

        StoredProc.Parameters.Refresh;

        StoredProc.Parameters.ParamByName('@StartTime').Value := startTime;
        StoredProc.Parameters.ParamByName('@EndTime').Value   := EndTime;

        StoredProc.Open;

        while not StoredProc.Eof do
        begin
            //Do stuff with the results here ... 

            StoredProc.Next;
        end;

    finally
        FreeAndNil(StoredProc);
    end;
end;

当我打到StoredProc.Open行时；

我得到一个错误


“ CommandText不返回结果集。”


我已经使用SQL Server Management Studio检查了存储过程是否确实返回了结果。



我发现这个问题似乎很气质。当然这不是数据库连接器中的错误吗？

我没主意了

Answer 1

我已经开放了几个月了。

我最好的解决方案是切换到使用FireDAC。使用FireDAC执行存储过程时，我没有遇到相同的问题。

相反，我使用TFDStoredProc类型运行存储过程