Página 1 de 1

Passing oADO

Publicado: Mar Jun 12, 2007 8:57 pm
por Pedro Sousa e Faro
Hi
My Main form as a component ADO.
When i create a New form i want to pass oAdo to the form
In Event (On create) i insert
METHOD FormCreate( oSender ) CLASS frm_cria_usr
oSender:oAdo := ::oParent:oAdo
RETURN Nil
It Returns
Message not found: FRM_CRIA_USR:_OADO
It's Not possible to send component ADO betwen forms ?
Best regards
Pedro

Passing oADO

Publicado: Mar Jun 12, 2007 9:19 pm
por jfgimenez
Pedro,
> My Main form as a component ADO.
>
> When i create a New form i want to pass oAdo to the form
>
> In Event (On create) i insert
>
> METHOD FormCreate( oSender ) CLASS frm_cria_usr
> oSender:oAdo := ::oParent:oAdo
> RETURN Nil
>
> It Returns
> Message not found: FRM_CRIA_USR:_OADO
>
> It's Not possible to send component ADO betwen forms ?
Just declare oAdo as a property, data or component in the class:
CLASS frm_cria_usr FROM TForm
...
COMPONENT oAdo
...
ENDCLASS
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

Passing oADO

Publicado: Mar Jun 12, 2007 9:54 pm
por Pedro Sousa e Faro
Hi Jose
Works great .
I could's imaginate that was the problem -)
Regards
Pedro
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:466ef1d6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pedro,
>
>> My Main form as a component ADO.
>>
>> When i create a New form i want to pass oAdo to the form
>>
>> In Event (On create) i insert
>>
>> METHOD FormCreate( oSender ) CLASS frm_cria_usr
>> oSender:oAdo := ::oParent:oAdo
>> RETURN Nil
>>
>> It Returns
>> Message not found: FRM_CRIA_USR:_OADO
>>
>> It's Not possible to send component ADO betwen forms ?
>
> Just declare oAdo as a property, data or component in the class:
>
> CLASS frm_cria_usr FROM TForm
> ...
> COMPONENT oAdo
> ...
> ENDCLASS
>
> --
> Regards,
>
> Jose F. Gimenez
> http://www.xailer.com
> http://www.xailer.info
>