Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-07-2006
krilea krilea is offline
Miembro
 
Registrado: mar 2005
Posts: 16
Poder: 0
krilea Va por buen camino
Post, Crea o modifica?

Hola!
Tengo una dudilla que no se como resolverla. Estoy trabajando en delphi 7 con Access.
Cuando quiero ingresar un registro nuevo hago ADOQuery1.insert y cuando quiero modicarlo ADOQuery1.edit. Una vez termino para guardar los canvio hago ADOQuery.post.

El problema está en que cuando hago el post necesitaria saber si he heco el post de un insert o el post de un edit porque tengo que hacer comprovaciones distintas en cada uno de los casos.

Alguien sabe como puedo saberlo?

Muchas Gracias!!
Responder Con Cita
  #2  
Antiguo 17-07-2006
santi33a santi33a is offline
Miembro
 
Registrado: jun 2005
Posts: 208
Poder: 20
santi33a Va por buen camino
simplemente preguntas
Código Delphi [-]
 if ADOQuery1.state = dsInsert then begin
  // estoy insertando
  end
 else if ADOQuery1.state = dsEdit then begin
 // estoy editando
 end;

Normalmente esto se usa en el evento BeforePost del ADOQuery

Santiago
Responder Con Cita
  #3  
Antiguo 02-08-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Error en dsInsert

Siguiendo el hilo me dice el error.

[Error] Compras.pas(417): Undeclared identifier: 'dsInsert'

y el codigo es simple.

Código Delphi [-]
 
 IF (Key=#13) THEN BEGIN
    IF DBGrid1.Fields[0].Value<>Null THEN Begin
      IF MD.tbMovCom.State = dsInsert THEN
        MD.tbMovCom.Post;
    End;
  END;

Es aqui donde se coloca y muestra el error.
¿Porque?
me faltara a algun unit??
Uso tablas paradox 7 y delphi 7.
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.

Última edición por dec fecha: 02-08-2006 a las 09:17:34.
Responder Con Cita
  #4  
Antiguo 02-08-2006
Sick boy Sick boy is offline
Miembro
 
Registrado: may 2003
Ubicación: Cantabria
Posts: 245
Poder: 22
Sick boy Va por buen camino
Cambia el igual por un IN

Código Delphi [-]
 if ADOQuery1.state in [dsInsert] then
  begin
  // estoy insertando
  end
 else if ADOQuery1.state in [dsEdit] then
 begin
 // estoy editando
 end;
Responder Con Cita
  #5  
Antiguo 02-08-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Persiste ele Error

Sorry amigo, pero me sigue dando el mismo error.

[Error] Compras.pas(419): Undeclared identifier: 'dsInsert'

IF (Key=#13) THEN BEGIN
IF DBGrid1.Fields[0].Value<>Null THEN Begin
IF MD.tbMovCom.State IN dsInsert THEN
ShowMessage('Pasa a Modificar')
// MD.tbMovCom.Post;
End;
END;

Gracias ¿me puedes ayudar?
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
  #6  
Antiguo 02-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por destrukthor
me faltara a algun unit??
Agrega la unidad DB.

// Saludos
Responder Con Cita
  #7  
Antiguo 02-08-2006
Sick boy Sick boy is offline
Miembro
 
Registrado: may 2003
Ubicación: Cantabria
Posts: 245
Poder: 22
Sick boy Va por buen camino
Lee mi ejemplo.

El dsInsert debe estar entre corchetes [dsInsert]

Tambien puedes revisar la ayuda de State, es muy sencillo, solo hay que pulsar F1.

Saludos
Responder Con Cita
  #8  
Antiguo 02-08-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Wink Gracias amigos

Resuelto el problema, me faltaba el [] y el unit DB.

Muchas gracias nuevamente.
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
IBDatase Insert Post Edit Post ariefez Firebird e Interbase 4 12-10-2005 01:53:04
RARISIMO mismo codigo cosas distintas no modifica campo TEXTO Patricio Conexión con bases de datos 1 10-08-2005 21:29:53
IBDataset no modifica istradlin Conexión con bases de datos 2 19-04-2005 23:44:22
No me inserta un registro nuevo, me modifica el anterior vhirginia Conexión con bases de datos 10 11-05-2004 13:04:38
No me crea la bd al instalar davgoncam Oracle 8 07-03-2004 14:31:26


La franja horaria es GMT +2. Ahora son las 15:28:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi