Delphi ADOStoredProc로 빈 결과 집합에서 열 헤더 가져 오기

Question

MS SQL을 사용하여 여러 저장 프로 시저를 실행했습니다. MS SQL Server Management Studio에서 프로 시저를 실행하면 항상 열 머리글이 반환됩니다. 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;