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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Pinitos con Dataset y MySql
Pinitos con Dataset y MySql
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
>
>
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
>
>