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-04-2010
schdamian schdamian is offline
Registrado
 
Registrado: abr 2010
Posts: 7
Poder: 0
schdamian Va por buen camino
Problema al intentar ir al ultimo registro de una tabla (solucionado)

Hola a todos, tengo un problema al ir al ultimo registro de una tabla, no pasa siempre pero a veces va al anteultimo, es como si no guadara el ultimo Post.

Uso delphi 2009 con Mysql y componentes ADO.

* DM1 es el DataModule.

esto se produce en el OnClick de un Button
Código Delphi [-]
  DM1.TTablaCampo.Value:= Edit1.Text;
  DM1.TTabla.Post;
  Imprimir;
  DM1.TTabla.Insert;
...sigue

el Proceso imprimir es bien simple, va al ultimo y lo manda a una impresora epson serie.

Código Delphi [-]
procedure Imprimir;
var
  TM: TextFile;
begin
  DM1.TTabla.Last;
  AssignFile(TM, 'COM1');
  Rewrite(TM);
  Write(TM, DM1.TTablaCampo.Value);
..sigue

El problema es que a veces pareciera que no hace el Last o mejor dicho lo hace pero aun no se ah grabado el post anterior antes de llamar al procedimiento Imprimir.

Lo mas raro es que intento de todo, antes de ir a last cierro la tabla y la conexion, vuelvo a abrir voy al ultimo y asi y todo algunas veces me imrpime el anteultimo, al registro lo guarda bien porque lo veo con MySQL Administrator, si cierro y abro el programa comienza a funcionar bien de nuevo.

antes de hacer Last le mande todo esto y sigue imprimiendo el anteultimo.
Código Delphi [-]
  DM1.TTabla.Active:= False;
  DM1.ADOC1.Connected:= False;
  DM1.ADOC1.Connected:= True;
  DM1.ADOC1.Close;
  DM1.ADOC1.Open();
  DM1.TTabla.Active:= True;

a ver si alguien me puede dar una mano, desde ya muchas gracias.

Última edición por schdamian fecha: 19-04-2010 a las 18:57:42. Razón: tema solucionado
Responder Con Cita
  #2  
Antiguo 17-04-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Código Delphi [-]
  DM1.TTabla.Last;
  DM1.TTabla.Insert;
  DM1.TTablaCampo.Value:= Edit1.Text;
  DM1.TTabla.Post;
 // Imprimir;
...sigue
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 18-04-2010
schdamian schdamian is offline
Registrado
 
Registrado: abr 2010
Posts: 7
Poder: 0
schdamian Va por buen camino
Hola Caral, gracias por responder, cuando lei tu respuesta ya lo habia solucionado de otra forma, con una consulta select max(id) from tabla ese me devolvia el ultimo ID ingresado e iba derecho a ese registro antes de mandar a imprimir, calculo que tu solucion tambien funciona por ahora lo dejo asi, al cliente le quedo funcionando que era lo importante.

Muchas Gracias igualmente! Saludos!
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
Como obtener un ultimo registro de una tabla!! Caray Varios 4 09-07-2008 03:55:35
Union de Tabla Principal y ultimo registro en asociada apicito SQL 1 13-07-2007 14:01:54
solo guarda el ultimo registro en una tabla nikotina Conexión con bases de datos 4 06-10-2006 17:24:23
ultimo registro creado en una tabla el_barto Firebird e Interbase 5 20-06-2005 23:39:18
Ir al último registro de una tabla fortran Tablas planas 6 05-09-2003 16:36:02


La franja horaria es GMT +2. Ahora son las 14:28:29.


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