Club Delphi  
    Paypal   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 13-08-2004
Saul Saul is offline
Registrado
 
Registrado: ago 2004
Posts: 5
Poder: 0
Saul Va por buen camino
Tal vez sea esto

Es algo curioso lo que te sucede pero no estaria por demas intentar esto, noto que en tu codigo hace falta que actives la tabla y nada mas la cierras podria ser este el caso por ejemplo yo tengo en mi codigo algo asi para introducir datos en un campo:

procedure TForm4.BitBtn14Click(Sender: TObject);
var
dal0,dal1,dal2,dal3,dal4,dal5:real;
begin
Form3.Table1.Active:=True;
Form3.Table1.Open;
Form3.Table1.Last;
Form3.Table1.append;
.
.
.
. // aqui va codigo
.
.
.

Table1.Post;
Table1.Last;



Bueno eso es lo que pienso en primera instancia no lo he provado directamente en el codigo que enviaste pero ojala y te sirva ponme al tanto si lo lograste ok:
[email protected]
Responder Con Cita
  #2  
Antiguo 13-08-2004
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Poder: 22
basti Va por buen camino
El problema está en la consulta del informe. Al ser un query no se actualiza automáticamente. Prueba a poner el la propiedad active = false en el query y abrirlo en el código:

Impre_Etiq2.Query1.Active := true;
Impre_Etiq2.QuickRep1.preview;
Impre_Etiq2.Query1.Active := false;
Responder Con Cita
  #3  
Antiguo 13-08-2004
Avatar de JuanBCT
JuanBCT JuanBCT is offline
Miembro
 
Registrado: ago 2004
Ubicación: Campana, Argentina
Posts: 57
Poder: 23
JuanBCT Va por buen camino
Hola! Les quería contar que resolví el problema, aparentemente es como dice basti. Puse en false el query en el quickreport, y lo activé durante la ejecución (también tuve que ponerlo en false al principio porque después de la primera vez que lo hago queda activado y vuelve a ocurrir lo mismo). El código quedó así:

procedure TEtiqCarga_form.BitBtn1Click(Sender: TObject);
var
I:integer;
begin
I:=0;
Impre_Etiq2.Query1.Active:=false;
Datamodule1.ConcesTMP.close;
Datamodule1.ConcesTMP.EmptyTable;
Datamodule1.ConcesTMP.open;
while I <> 33 do
begin
I:=I+1;
Datamodule1.ConcesTMP.Insert;
Datamodule1.ConcesTMP['aux1_tmp']:=Edit1.Text;
Datamodule1.ConcesTMP['aux2_tmp']:=Edit2.Text;
Datamodule1.ConcesTMP['aux3_tmp']:=Edit3.Text;
Datamodule1.ConcesTMP['aux4_tmp']:=Edit4.Text;
Datamodule1.ConcesTMP['aux5_tmp']:=Edit5.Text;
Datamodule1.ConcesTMP['aux6_tmp']:=Edit6.Text;
Datamodule1.ConcesTMP.Post;
end;
Impre_Etiq2.Query1.Active:=true;
Impre_Etiq2.QuickRep1.preview;
EtiqCarga_form.close;


Les agradezco a todos por su ayuda.
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


La franja horaria es GMT +2. Ahora son las 06:31:18.


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