🚀 go-pugleaf

small change.
"Arun Kumar" <arunpv@optonline.net> wrote in message
news:3dae1667$1@newsgroups.borland.com...
> Hi
>
> I have a multithreaded application, i want to dynamically create a
> TADOStoredProc and Add Data,
> i have a stored procedure on SQL Server 2000.
> Also this stored procedure requires parameters.
> this is how my code looks.
>
>        if (ADOStrdProc != NULL)
>        {
>          delete ADOStrdProc;  // it stops here and never returns.
>        }
>        ADOStrdProc = new TADOStoredProc(NULL);
>        ADOStrdProc->Close();
>        ADOStrdProc->Connection = Poll->pADOCon1;  // this is the
> adoconnection for thread Poll.
>        ADOStrdProc->Parameters->Items[0]->Value = trans->priority;
>        ADOStrdProc->Parameters->Items[1]->Value = trans->cattype;
>        ADOStrdProc->Parameters->Items[2]->Value = trans->stno;
>        ADOStrdProc->Parameters->Items[3]->Value =
DateTimeToStr(trans->SysDate);
>        ADOStrdProc->Parameters->Items[4]->Value = trans->number;
>        ADOStrdProc->Parameters->Items[5]->Value = trans->xstat;
>        ADOStrdProc->Parameters->Items[6]->Value = trans->xfac;
>        ADOStrdProc->Parameters->Items[7]->Value = trans->id;
>        ADOStrdProc->Parameters->Items[8]->Value = trans->sType;
>        ADOStrdProc->Parameters->Items[9]->Value = trans->sDesc;
>        ADOStrdProc->Parameters->Items[10]->Value = trans->sName;
>        ADOStrdProc->Parameters->Items[11]->Value = trans->nArch;
>        ADOStrdProc->Parameters->Items[12]->Value = trans->nOper;
>        ADOStrdProc->Parameters->Items[13]->Value = DateTimeToStr(Now());
>        ADOStrdProc->Parameters->Items[14]->Value = trans->bPend;
>        ADOStrdProc->Parameters->Items[15]->Value = trans->Resp;
>        ADOStrdProc->Parameters->Items[16]->Value = trans->Sphere;
>        ADOStrdProc->Parameters->Items[17]->Value = trans->Tag;
>        ADOStrdProc->ExecProc();
>        delete ADOStrdProc;
>
> can someone help what i am doing wrong.
>
> Thanks in Advance
>
> Arun
>
>