Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-10-2011
edwin.simon edwin.simon is offline
Miembro
NULL
 
Registrado: oct 2011
Posts: 30
Poder: 0
edwin.simon Va por buen camino
saludo para todos

estoy usando delphi 7 y accesse, en un programa que estoy realizando trato de incrementar un codigo atraves de un query
Código SQL [-]
Select Max(codigo) From tabla
y en NewRecord de la tabla tengo esto.

Código SQL [-]
  if Tbl_Departamento.State = dsinsert then 
  begin
    Tbl_Departamento.Open;
    Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
    Qry_IncrementaDepartamento.Close;
  end;


todo bien por el momento,el problema esta cuando inserto un registro incrementa el codigo grabo, voy a insertar otro registro no lo incrementa pone el codigo 1, pero si sierro el fom y entro nuevamente cuando inserto me incrementa el codigo 2. eso quiere decir que tengo que entra y salir para que lo incremente. estoy buscando y no veo donde puede estar el problema y siempre es hecho eso y funciona bien.

que pasará?

mil gracias.

Última edición por ecfisa fecha: 18-10-2011 a las 16:33:40. Razón: Etiquetas [SQL] [/SQL] , [DELPHI] [/DELPHI]
Responder Con Cita
  #2  
Antiguo 18-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola edwin.simon.

Por favor, tratá de usar títulos significativos en tus mensajes. Saludos para todos, aunque es cordial no representa el problema que te sucede...
El código no se etiquetó correctamente por que para código SQL es: [sql] [/sql] , y para codigo Delphi: [delphi] [/delphi] , Pero lo que vale es la intención. Gracias por usarlas.

Aunque imagino que lo que deberías hacer es algo así:
Código Delphi [-]
  if Tbl_Departamento.State = dsinsert then
  begin
    Tbl_Departamento.Edit;
    Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
    ...
  end;
Estaría más seguro de la respuesta si pusieras la sentencia SQL que utilizas en Qry_IncrementaDepartamento.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-10-2011 a las 16:44:24.
Responder Con Cita
  #3  
Antiguo 18-10-2011
edwin.simon edwin.simon is offline
Miembro
NULL
 
Registrado: oct 2011
Posts: 30
Poder: 0
edwin.simon Va por buen camino
gracaias Ecfisa por tu opinion pido una cordial disculpa estuve buscando las instrucciones para las lineas de comando y no la encontre y con lo del titulo tiene mucha razon depues que hice la publicacion quise cambiarle pero no me fue posible.

mil gracias nuevamente.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Un saludo a todos los compañeros gluglu La Taberna 9 29-04-2008 17:41:44
Un saludo para Jhonny ContraVeneno La Taberna 35 20-07-2007 06:44:52
Saludo para todos edwin1 OOP 4 08-10-2003 16:51:04
Saludo para todos, como puedo usar 2 tablas edwin1 Impresión 0 10-09-2003 17:59:53


La franja horaria es GMT +2. Ahora son las 18:29:46.


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