Xailer & OZ Software

Estoy haciendo pinitos con MySql, y he visto que los mismos formularios que
tengo para DBF me pueden servir con MySql.
Veo los Browse, pero a la hora de editar o añadir, me casca.
Mi codigo anterior seria este:
******************************
METHOD Edit() CLASS OPLOCHBRW
LOCAL oFrm, FECHA
WITH OBJECT oFrm := LINLO002():New( Self )
:cText := "Modificar Operación"
::oDbfDataSet1:Edit()
:ShowModal()
if :nModalResult == mrOK
Fecha := dtoc(:oDateEdit1:value())
::oDbfDataSet1:une := :oDBEdit3:value
::oDbfDataSet1:hora := :oTimePicker1:ctext
::oDbfDataSet1:modi := APPDATA:usuarop
::oDbfDataSet1:mome :=dtos(date())+"-"+time()+"/M"
::oDbfDataSet1:Update()
::oDBBrowse1:RefreshCurrent()
else
::oDbfDataSet1:Cancel()
endif
:END()
END WITH
RETURN NIL
//----------------------------------------------------------
Me podria indicar algun alma caritativa que es lo que debo cambiar.
Paco V

Aunque veais ::oDbfDataSet1, lo unico que he hecho es mantener los nombres.
Pero es una tabla MySql.
Paco V
"Paco V" <ssi@ono.com> wrote:
>
>Estoy haciendo pinitos con MySql, y he visto que los mismos formularios
que
>tengo para DBF me pueden servir con MySql.
>
>Veo los Browse, pero a la hora de editar o añadir, me casca.
>
>Mi codigo anterior seria este:
>
>
>******************************
>METHOD Edit() CLASS OPLOCHBRW
> LOCAL oFrm, FECHA
>
> WITH OBJECT oFrm := LINLO002():New( Self )
> :cText := "Modificar Operación"
> ::oDbfDataSet1:Edit()
> :ShowModal()
> if :nModalResult == mrOK
>
> Fecha := dtoc(:oDateEdit1:value())
> ::oDbfDataSet1:une := :oDBEdit3:value
> ::oDbfDataSet1:hora := :oTimePicker1:ctext
> ::oDbfDataSet1:modi := APPDATA:usuarop
> ::oDbfDataSet1:mome :=dtos(date())+"-"+time()+"/M"
> ::oDbfDataSet1:Update()
> ::oDBBrowse1:RefreshCurrent()
> else
> ::oDbfDataSet1:Cancel()
> endif
> :END()
> END WITH
>RETURN NIL
>
> //----------------------------------------------------------
>
>Me podria indicar algun alma caritativa que es lo que debo cambiar.
>
>Paco V
>
>