Delphi - 将表值参数传递给SQL Server存储过程

Question

我需要将参数作为表值传递给SQL Server中的存储过程。如何在Delphi中处理这个问题？

Answer 1

据我所知，在那里没有简单的方法来传递表参数，使用Delphi的组件。 解决方法是使用可用于填充类型化表变量的临时表。

假设你的定义是这样的：

CREATE TYPE MyTableType AS TABLE 
(ID int 
, Text varchar(100)) 
GO 

CREATE PROCEDURE P_Table 
    @Tab MyTableType READONLY 
AS 
BEGIN 
    SET NOCOUNT ON; 
    Select * from @Tab -- dummy operation just return the dataset 
END 
GO 

你可以这样调用的程序：

var 
    i: Integer; 
begin 
    // we create a temporary table since a table variable can obly be used for a single call 
    DummyDataset.Connection.Execute('Create Table #mytemp(ID int,Text varchar(100))'); 
    DummyDataset.CommandText := 'Select * from #mytemp'; 
    DummyDataset.Open; 
    for i := 0 to 10 do 
    begin 
    DummyDataset.Append; 
    DummyDataset.Fields[0].Value := i; 
    DummyDataset.Fields[1].Value := Format('A Text %d', [i]); 
    DummyDataset.Post; 
    end; 
    MyDataset.CommandText := 'Declare @mytemp as MyTableType ' 
         + 'Insert into @mytemp select * from #mytemp ' // copy data to typed table variable 
         + 'EXEC P_Table @Tab = @mytemp'; 
    MyDataset.Open; 
    DummyDataset.Connection.Execute('Drop Table #mytemp'); 
end 

Answer 2

从http://msftdpprodsamples.codeplex.com/wikipage?title=SS2008%21Readme_Table-Valued%20Parameters样本下载是用C++编写，但可以很容易地转换为德尔福。

一旦转换的代码德尔福，你可以使用类似下面让结果集通过老好人ADO访问：

SourcesRecordset := CreateADOObject(CLASS_Recordset) as _Recordset; 
RSCon := SourcesRecordset as ADORecordsetConstruction; 
RSCon.Rowset := rowset; 

LDataSet := TADODataSet.Create(nil); 
try 
    // Only doing the first result set 
    LDataSet.Recordset := SourcesRecordset; 
    while not LDataSet.Eof do 
    begin 
    //... something 
    LDataSet.Next; 
    end; 
finally 
    LDataSet.Free; 
end; 

注意CreateADOObject是Data.Win.ADODB.pas一个私人的功能，但它是相当不重要的。