10 replies to this topic

[Kamael]

Estoy haciendo una base de datos con Access, con dos tablas relacionadas.
Al añadir los datos me da este error "dataset not in edit or insert mode".
Las tablas estan abiertas y en modo append. no entiendo que pasa.
;e podeis ayudar?.
Un saludo.

[Wilson]

Bienvenido a DA.
Podrías regalarnos un poco mas de información?
-Como te conectas?
-Si es posible un poco de tu código, (en donde te sale el error).

Saludos

[Kamael]

me conecto con jet 4.0 provider.
el codigo

delphi

if TMaq.Locate('Ser',OSer.Text,[]) then
   TCont.Open ;
   TCont.Edit ;
   TCont.FieldValues['Fec'] := cFec.Date ;
   TCont.FieldValues['Ca1'] := StrToFloatDef(Cb1.Text,0) ;
   TCont.FieldValues['Ca05'] := StrToFloatDef(Cb05.Text,0) ;
   Dt4.TCont.Post ;

el error me lo da cuando entra en la tabla TCont.

[Wilson]

Lo que hace tu código en el momento es buscar un registro en la tabla TMaq y si lo encuentra abre la tabla TCont, si no lo encuentra salta directamente a TCon.Edit sin abrir la tabla lo que genera un error.

En caso de que Locate devuelva True, lo que hará es Abrir la tabla TCont, posicionarse en el primer registro y editarlo ( no se si eso es lo que quieres) de todas formas te faltan el begin y el end para que no de error en caso de que Locate devuelva false. Si lo que qieres es agregar un nuevo resgistro cambia el TCot.Edit por TCont:Append.

delphi

if  TMaq.Locate('Ser',OSer.Text,[]) then
begin
 TCont.Open ;
 TCont.Edit ;
 TCont.FieldValues['Fec'] := cFec.Date ;
 TCont.FieldValues['Ca1'] := StrToFloatDef(Cb1.Text,0) ;
 TCont.FieldValues['Ca05'] := StrToFloatDef(Cb05.Text,0) ;
 TCont.Post 
end

[Kamael]

delphi

TMaq.Open ;
TCont.open ;
TMaq.Append ;
TCont.Append ;
 
TMaq.FieldValues['Ser'] := ASer.Text ;
TCont.FieldValues['Ser'] := ASer.Text ;
TMaq.FieldValues['Mod'] := AMod.Text ;
TCont.FieldValues['Fec'] := AFec.Date ;
TCont.FieldValues['Ca1'] := StrToFloatDef(Ca1.Text,0) ;
Tcont.FieldValues['Ca2'] := StrToFloatDef(Ca2.Text,0) ;
TCont.FieldValues['Ca05'] := StrToFloatDef(Ca05.Text,0) ;
TCont.FieldValues['Ca02'] := StrToFloatDef(Ca02.Text,0) ;
TCont.FieldValues['Ca01'] := StrToFloatDef(Ca01.Text,0) ;
 
TMaq.Post ;
TCont.Post ;

Oerdona pero me he equivocado de codigo.
Este es el codigo que me da el error, al añadir en tabla Tcont.

[Marc]

Perdona pero me he equivocado de codigo.
Este es el codigo que me da el error, al añadir en tabla Tcont.

¿ En que línea salta el error ?.

[Kamael]

delphi

TCont.FieldValues['Ser'] := ASer.Text ;

en esta linea.

[Wilson]

Revisa si depronto hay un evento ONChange asociado con ese campo, o con el dbcontrol de ese campo, o con el TDataSource, que depronto llamara a Post antes de terminar el procedimiento.

Saludos

[pacopenin]

Hola.
Yo te aconsejo que hagas las cosas de forma secuencial, es decir

delphi

TMaq.Open ;
TMaq.Append ;
 
TMaq.FieldValues['Ser'] := ASer.Text ;
TMaq.FieldValues['Mod'] := AMod.Text ;
 
TMaq.Post ;
 
TCont.open ;
TCont.Append ;
TCont.FieldValues['Ser'] := ASer.Text ;
TCont.FieldValues['Fec'] := AFec.Date ;
TCont.FieldValues['Ca1'] := StrToFloatDef(Ca1.Text,0) ;
Tcont.FieldValues['Ca2'] := StrToFloatDef(Ca2.Text,0) ;
TCont.FieldValues['Ca05'] := StrToFloatDef(Ca05.Text,0) ;
TCont.FieldValues['Ca02'] := StrToFloatDef(Ca02.Text,0) ;
TCont.FieldValues['Ca01'] := StrToFloatDef(Ca01.Text,0) ;
 
TCont.Post ;

Saludos,

[Marc]

Revisa si depronto hay un evento ONChange asociado con ese campo, o con el dbcontrol de ese campo, o con el TDataSource, que depronto llamara a Post antes de terminar el procedimiento.

Coincido en que esto parece lo más probable.

Hay algún evento que te hace un Post en el Dataset.

[Kamael]

No no hay evento onChange asociado.
al final he echo lo que me dijo pacopenin y funciona perfectamente.
Gracias a todos por vuestra ayuda.
Un saludo