🚀 go-pugleaf

Unfortunately that doesn't work.
I got all sorts of compiler errors, and once I'd solved those I got run-
time errors when trying to work with the recordset.

I've managed to solve my problem by using a TADOStoredProc instead od a 
TADOCommand.


Thanks for your help.





In article <41301f8a$1@newsgroups.borland.com>, support@oledbdirect.com 
says...
> 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:

-- 
Paul Cheetham

"There are 10 types of people in the world - those that understand 
Binary, and those that don't."