Error en Update

[Paco V]

Al actualizar unos datos me sale el siguiente error.
Trabajando en modo local.
Alguien me puede orientar? No tengo ni idea el motivo.
Paco V
--

Attached files

[miguel]

Paco,
Me temo que como no pongas algo de código va ser imposible ayudarte.
Saludos.
Miguel A. Torrellas
Paco V escribió:
> Al actualizar unos datos me sale el siguiente error.
> Trabajando en modo local.
> Alguien me puede orientar? No tengo ni idea el motivo.
>
> Paco V
>
>
> ------------------------------------------------------------ ------------
>

[Paco V]

Aqui va el metodo. Te vienes a Sevilla?
Abrazo.
Paco
METHOD Edit() CLASS PERSOBRW //Edicion Ficha Personal
LOCAL oFrm, DACaco, TIPO, datos
WITH OBJECT oFrm := PERSODAT():New( Self )
:cText := "Editar AGENTES"
::TsqlTable1:Edit()
:ShowModal()
if :nModalResult == mrOK
::oDbfDataSet1:FNac := Fec_Cadena(:oDbDateEdit1:value)
::oDbfDataSet1:FAnEm:= Fec_Cadena(:oDbDateEdit2:value)
::oDbfDataSet1:FAnCa:= Fec_Cadena(:oDbDateEdit37:value)
::oDbfDataSet1:FAnCo:= Fec_Cadena(:oDbDateEdit3:value)
::oDbfDataSet1:FPRec:= Fec_Cadena(:oDbDateEdit5:value)
::oDbfDataSet1:FURec:= Fec_Cadena(:oDbDateEdit4:value)
::oDbfDataSet1:Update()
::oBrw:RefreshCurrent()
else
::oDbfDataSet1:Cancel()
endif
:END()
END WITH
RETURN NIL
//------------------------------------
"Miguel A. Torrellas" <miguel@torrellas.net> wrote:
>Paco,
>
>Me temo que como no pongas algo de código va ser imposible ayudarte.
>
>Saludos.
>
>Miguel A. Torrellas
>
>Paco V escribió:
>> Al actualizar unos datos me sale el siguiente error.
>> Trabajando en modo local.
>> Alguien me puede orientar? No tengo ni idea el motivo.
>>
>> Paco V
>>
>>
>> ------------------------------------------------------------ ------------
>>

[Paco V]

"Paco V" <ssi@ono.com> wrote:
Aqui va el metodo. Te vienes a Sevilla?
Abrazo.
Paco
METHOD Edit() CLASS PERSOBRW //Edicion Ficha Personal
LOCAL oFrm, DACaco, TIPO, datos
WITH OBJECT oFrm := PERSODAT():New( Self )
:cText := "Editar AGENTES"
::TsqlTable1:Edit()
:ShowModal()
if :nModalResult == mrOK
::TsqlTable1:FNac := Fec_Cadena(:oDbDateEdit1:value)
::TsqlTable1:FAnEm:= Fec_Cadena(:oDbDateEdit2:value)
::oDbfDataSet1:Update()
::oBrw:RefreshCurrent()
else
::oDbfDataSet1:Cancel()
endif
:END()
END WITH
RETURN NIL
>//------------------------------------
>
>"Miguel A. Torrellas" <miguel@torrellas.net> wrote:
>>Paco,
>>
>>Me temo que como no pongas algo de código va ser imposible ayudarte.
>>
>>Saludos.
>>
>>Miguel A. Torrellas
>>
>>Paco V escribió:
>>> Al actualizar unos datos me sale el siguiente error.
>>> Trabajando en modo local.
>>> Alguien me puede orientar? No tengo ni idea el motivo.
>>>
>>> Paco V
>>>
>>>
>>> ------------------------------------------------------------ ------------
>>>
>

[miguel]

Hola Paco,
Paco V escribió:
> "Paco V" <ssi@ono.com> wrote:
>
> Aqui va el metodo. Te vienes a Sevilla?
Está muy lejos y no puedo sacar ningún dí­a en la empresa, ya me
gustarí­a, tu lo sabes.
>
> Abrazo.
>
> Paco
>
> METHOD Edit() CLASS PERSOBRW //Edicion Ficha Personal
> LOCAL oFrm, DACaco, TIPO, datos
> WITH OBJECT oFrm := PERSODAT():New( Self )
> :cText := "Editar AGENTES"
> ::TsqlTable1:Edit()
Fijate que pones TsqlTable1 en "edit"
> :ShowModal()
> if :nModalResult == mrOK
> ::TsqlTable1:FNac := Fec_Cadena(:oDbDateEdit1:value)
> ::TsqlTable1:FAnEm:= Fec_Cadena(:oDbDateEdit2:value)
> ::oDbfDataSet1:Update()
Creo que debieras poner ::TsqlTable1::update()
> ::oBrw:RefreshCurrent()
> else
> ::oDbfDataSet1:Cancel()
Creo que debieras poner ::TsqlTable1::Cancel()
> endif
> :END()
> END WITH
> RETURN NIL
>> //------------------------------------
>>
>> "Miguel A. Torrellas" <miguel@torrellas.net> wrote:
>>> Paco,
>>>
>>> Me temo que como no pongas algo de código va ser imposible ayudarte.
>>>
>>> Saludos.
>>>
>>> Miguel A. Torrellas
>>>
>>> Paco V escribió:
>>>> Al actualizar unos datos me sale el siguiente error.
>>>> Trabajando en modo local.
>>>> Alguien me puede orientar? No tengo ni idea el motivo.
>>>>
>>>> Paco V
>>>>
>>>>
>>>> ------------------------------------------------------------ ------------
>>>>
>

[jose.luis]

Paco,
No acabo de ver muy claro ese error.. pero es posible que el recordset que
te traiste no contiene claves primarias que identifiquen el registro que
tiene que actualizar en la base de datos.
Saludos,
José Luis Capel
"Paco V" <ssi@ono.com> escribió en el mensaje de noticias
news:4673dd8d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Al actualizar unos datos me sale el siguiente error.
> Trabajando en modo local.
> Alguien me puede orientar? No tengo ni idea el motivo.
>
> Paco V

[Paco V]

Creo que los tiros tienen que ir por las claves.
Os cuento:
Es una tabla importada de unas dbf.
Cuando edito un registro, al actualizar casca.
Si hago un registro nuevo, no me casca.
Miguel, los nombres ::oDbfDataSet1 se me han colado, ya que es una actualización.
En otras me ha funcionado bien.
Gracias
PcoV
=?iso-8859-1?Q?Jos=E9_Luis_Capel?= <jose.luis@capelsoft.com> wrote:
>Paco,
>
>No acabo de ver muy claro ese error.. pero es posible que el recordset que
>te traiste no contiene claves primarias que identifiquen el registro que
>tiene que actualizar en la base de datos.
>
>Saludos,
>José Luis Capel
>
>
>"Paco V" <ssi@ono.com> escribió en el mensaje de noticias
>news:4673dd8d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Al actualizar unos datos me sale el siguiente error.
>> Trabajando en modo local.
>> Alguien me puede orientar? No tengo ni idea el motivo.
>>
>> Paco V
>

[zeasoftware]

Estoy intentando hacer un proceso para importar datos y me acaba de suceder
ese error con la mismo mensaje que pones al principio.
Intente poner valores tipo fecha pero...., si en la DBF estaba vacio no me
acepta dicho valor y aun no hallo con que formato enviarlo usan INSERT ....
Ahor aempece a intentar con ADODataSource:Table, y TSQLTable, y me aparece
la ventana que describes..., esto sucedio a partir que decidi probar con
FastAddNew, FieldPut(), y Fastupdate()
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Paco V" <ssi@ono.com> escribió en el mensaje
news:46759b56$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Creo que los tiros tienen que ir por las claves.
> Os cuento:
> Es una tabla importada de unas dbf.
> Cuando edito un registro, al actualizar casca.
> Si hago un registro nuevo, no me casca.
> Miguel, los nombres ::oDbfDataSet1 se me han colado, ya que es una
> actualización.
> En otras me ha funcionado bien.
> Gracias
>
> PcoV
>
>
>
> =?iso-8859-1?Q?Jos=E9_Luis_Capel?= <jose.luis@capelsoft.com> wrote:
>>Paco,
>>
>>No acabo de ver muy claro ese error.. pero es posible que el recordset que
>
>>te traiste no contiene claves primarias que identifiquen el registro que
>
>>tiene que actualizar en la base de datos.
>>
>>Saludos,
>>José Luis Capel
>>
>>
>>"Paco V" <ssi@ono.com> escribió en el mensaje de noticias
>>news:4673dd8d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>
>>> Al actualizar unos datos me sale el siguiente error.
>>> Trabajando en modo local.
>>> Alguien me puede orientar? No tengo ni idea el motivo.
>>>
>>> Paco V
>>
>

[miguel]

Hola Ramón,
Ramón Zea escribió:
> Estoy intentando hacer un proceso para importar datos y me acaba de suceder
> ese error con la mismo mensaje que pones al principio.
>
> Intente poner valores tipo fecha pero...., si en la DBF estaba vacio no me
> acepta dicho valor y aun no hallo con que formato enviarlo usan INSERT ....
Utiliza DtoS(oDbfDataSet:CampoFecha)
Yo Utilizo esta función
FUNCTION DtoSQL(dFecha, cTime)
local cRet
DEFAULT cTime to '00:00:00'
cRet := if( Empty(dFecha), 'null', "'" + DtoS(dFecha) + " " + cTime + "'" )
RETURN cRet
Con lo cual serí­a ....
DtoSQL( oDbfDataSet:CampoFecha )
Saludos. Miguel A. Torrellas
>
> Ahor aempece a intentar con ADODataSource:Table, y TSQLTable, y me aparece
> la ventana que describes..., esto sucedio a partir que decidi probar con
> FastAddNew, FieldPut(), y Fastupdate()
>
> Saludos.

[zeasoftware]

como siempre, atinado!!!, mil gracias.
no sabia que tenia que mandar null si estaba vacia y me faltaba ponerle
hora.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Miguel A. Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:46769373$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola Ramón,
>
> Ramón Zea escribió:
>> Estoy intentando hacer un proceso para importar datos y me acaba de
>> suceder ese error con la mismo mensaje que pones al principio.
>>
>> Intente poner valores tipo fecha pero...., si en la DBF estaba vacio no
>> me acepta dicho valor y aun no hallo con que formato enviarlo usan INSERT
>> ....
>
> Utiliza DtoS(oDbfDataSet:CampoFecha)
>
> Yo Utilizo esta función
>
> FUNCTION DtoSQL(dFecha, cTime)
> local cRet
> DEFAULT cTime to '00:00:00'
>
> cRet := if( Empty(dFecha), 'null', "'" + DtoS(dFecha) + " " + cTime +
> "'" )
>
> RETURN cRet
>
> Con lo cual sería ....
>
> DtoSQL( oDbfDataSet:CampoFecha )
>
> Saludos. Miguel A. Torrellas
>
>>
>> Ahor aempece a intentar con ADODataSource:Table, y TSQLTable, y me
>> aparece la ventana que describes..., esto sucedio a partir que decidi
>> probar con FastAddNew, FieldPut(), y Fastupdate()
>>
>> Saludos.