🚀 go-pugleaf

Here is the code that finally worked:


TADOCommand       *ADOCommand;
TADODataSet       *ADODataSet;

ADOCommand = new TADOCommand(this);
ADODataSet = new TADODataSet(this);

ADOCommand->Connection = Main->ADOConnection1;
ADOCommand->CommandType = cmdStoredProc;
ADOCommand->CommandTimeout = 1200;
ADOCommand->CommandText = "street_prints;1";

ADOCommand->Parameters->AddParameter();
PCount = ADOCommand->Parameters->Count - 1;
ADOCommand->Parameters->Items[PCount]->DataType = ftString;
ADOCommand->Parameters->Items[PCount]->Direction = pdInput;
ADOCommand->Parameters->Items[PCount]->Name = "@date";
ADOCommand->Parameters->ParamValues["@date"] = Date.DateString();

ADODataSet->Recordset = ADOCommand->Execute();
ADODataSet->First();

while (!ADODataSet->Eof)
{
	get data here...
	ADODataSet->Next();
}

delete ADOCommand;