🚀 go-pugleaf

Try do:

rs = Command->Execute();
while (!rs->State = adStateOpen) rs = rs->NextRecordset(recAffected);
if (rs->State = adStateOpen) DataSet->Recordset = rs;
else ... //Recordset is not returned.

rs is ADO recordset, from ADOInt.hpp.

Recordset could be closed if your sp has some SQL commands that do not
return data as first instructions.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"Paul Cheetham" <PAC.News@dsl.pipex.com> �������/�������� � ��������
���������: news:MPG.1b99a114ae2276db98968f@Newsgroups.Borland.com...
>
> Hi,
>
> I have an application where I am trying to read data from an MS SQL
> table using stored procedures.
> I have created the stored procedure, and it works fine.
> If I use the code below, I get an error.
>
>
>
>   Command = new TADOCommand (NULL);
>   DataSet = new TADODataSet (NULL);
>   Command->Connection = _Connection;
>   Command->CommandType = cmdStoredProc;
>   Command->CommandText = "pr_tblCustomers_SelectOne_ByCustNo";
>   Command->Parameters->Clear();
>
>   Command->Parameters->CreateParameter ("@iiCustNo", ftInteger, pdInput,
> 4, _iCustomerNumber);
>   Command->Parameters->CreateParameter ("@iiErrorCode", ftInteger,
> pdOutput, 4, 0);
>
>   // Execute command and return recordset.
>   DataSet->Recordset = Command->Execute();
>
>
> The line above generates the error  "Record set is not open"
> If I use the line:
>   Command->Execute();
>  it works fine, so the problem must be with assigning the returned
> recordset to the DataSet object.
>
>
> Can anybody tell me where I am going wrong?
>
> Thankyou.
>
>
>
>
>
> -- 
> Paul Cheetham
>
> "There are 10 types of people in the world - those that understand
> Binary, and those that don't."