delphi - 使用 Delphi ADOStoredProc 从空结果集中获取列标题

Question

我使用 MS SQL 运行多个存储过程。当我在 MS SQL Server Management Studio 下运行过程时，它们总是返回列标题。我也试图在 Delphi 程序中获得此功能。目前，如果数据集没有行，则不会返回任何标题。使用 Delphi 7、TADOStoredProc、TADODataset 和字符串网格:

ADOStoredProc1.ObjectView := True;
ADOStoredProc1.Open;
ADODataSet1.Recordset := ADOStoredProc1.Recordset;

// process the first dataset, which contains rows

if not ADODataSet1.IsEmpty then
begin
  AdvGridWorkbook1.ActiveSheet := 0;
  // build grid header
  SetupHeader;
  // build grid detail
  SetupDetail;
end
else
begin
  Memo1.Lines.Add('Returned empty data set for Mapping');
end;

// load the next dataset.  no data rows but MS Studio shows column headers

ADODataSet1.Recordset := ADOStoredProc1.NextRecordset(RecordsAffected);

if not ADODataSet1.IsEmpty then // tests as empty
begin
  AdvGridWorkbook1.ActiveSheet := 1;
  // build grid header - none are returned as IsEmpty = True
  SetupHeader;
  // build grid detail
  SetupDetail;
end
else
begin
// this message is added to my memo field.
  Memo1.Lines.Add('Returned empty data set for Labor');
end;
ADODataSet1.Close;
ADOStoredProc1.Close;

有谁知道 MS 如何返回列标题？

存储过程是:

USE [NG_Test]
GO
/****** Object:  StoredProcedure [dbo].[NG_Checks]  ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[NG_Checks] 
    @fiscal_month_year nvarchar(50)
AS
BEGIN
    declare @production_date datetime
    declare @start_date datetime
    declare @end_date datetime

    select @production_date = ng_production_release_date
    from ng_common_global_provisioning

    select @start_date = start_date, @end_date = end_date
from ng_common_accounting_fiscal_month
    where fiscal_month_year = @fiscal_month_year

-- this is the 1st dataset returned

    select b.company, b.wo_type, b.wo_code
from ng_accounting_mapping_ng_wo_2_gp b
    where wo_code not in (select wo_code from ng_wo_codes a)

--  this is the 2nd dataset returned
    select a.wo_display_id, a.wo_code, a.labor_revenue, a.labor_cost, 
        a.create_date, a.completion_date, a.finalizing_date, a.wo_status
    from ng_wo_header a, ng_wo_labor_rates b
    where a.wo_code = b.work_order_code
        and a.company = b.company
        and a.wo_type = b.work_order_type
        and a.wo_type in ('RO', 'BS')
        and a.labor_revenue is not null and a.labor_revenue <> 0
        and a.labor_cost is not null and a.labor_cost <> 0
        and a.create_date > @start_date
        and a.create_date < @end_date
        and a.create_date > @production_date
END 

Answer 1

IsEmpty 方法测试包含数据的实际记录，因此它不会计算列标题/字段名称，这会阻止调用 setupHeader 方法。

只需删除对 IsEmpty 的调用(或移动它):

AdvGridWorkbook1.ActiveSheet := 0;
// build grid header
SetupHeader;

// build grid detail
if not ADODataSet1.IsEmpty then
begin
  SetupDetail;
end
else
begin
  Memo1.Lines.Add('Returned empty data set for Mapping');
end;