🚀 go-pugleaf

Arun,
Please see below in your code.
- Arnie
"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)
>        {
           // How do you know what's in ADOStrdProc?  Was it ever
initialized to zero?
           // Further, set it to zero when you delete it at the end of this
routine.
>          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[0]->Value = trans->cattype;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->stno;
>        ADOStrdProc->Parameters->Items[0]->Value =
> DateTimeToStr(trans->SysDate);
>        ADOStrdProc->Parameters->Items[0]->Value = trans->number;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->xstat;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->xfac;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->id;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->sType;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->sDesc;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->sName;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->nArch;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->nOper;
>        ADOStrdProc->Parameters->Items[0]->Value = DateTimeToStr(Now());
>        ADOStrdProc->Parameters->Items[0]->Value = trans->bPend;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->Resp;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->Sphere;
>        ADOStrdProc->Parameters->Items[0]->Value = trans->Tag;
>        ADOStrdProc->ExecProc();
>        delete ADOStrdProc;
>
> can someone help what i am doing wrong.
>
> Thanks in Advance
>
> Arun
>
>