Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Busqueda al abrir un nuevo form (https://www.clubdelphi.com/foros/showthread.php?t=18504)

tiagor64 14-02-2005 18:58:03

Busqueda al abrir un nuevo form
 
Hola:

tengo un pequeño problema que no se como solucionar, sera una tonteria, pero no la veo y me estoy volviendo loco. os explico:

desde un form donde tengo unos datos al hacer clic en un boton quiero q me cree un registro y que luego me abra un formulario mostrandome el registro q acabo de crear, para ello pretendo usar el siguiente codigo:

Código:

       
adoquery2.SQL.Text := 'insert into segchasis (NPedido, FPedido, importe)
  values ('+quotedstr(alignedit6.Text)+', #'+FormatDateTime('mm/dd/yyyy',
  StrToDate(edit2.text))+'#, '+quotedstr(alignedit4.text)+')';
 
adoquery2.ExecSQL;
 
form2.XASIS.Open;
 
form2.xasis.Locate('NPedido', alignedit6.text, [locaseinsensitive]) ;
 
form2.show;

pero al hacer esto tengo un problema si pongo todo este codigo en un boton en la tabla no me aparece el nuevo registro, si me abre el formulario pero en el aun no esta el registro, aunque si me lo crea, pero en cambio si por lo contrario lo pongo en dos botones en un primero el query y en el segundo el resto entonces si me abre el formulario por el registro indicado.

no tengo ni las menor idea de porque me pasa esto, ya que en el evento on show del formulario abierto me refresca las conexiones a la bd, y no entiendo que diferencia hay cuando pongo el codigo en dos botones y si funciona. a ver si alguien me puede tirar un cable. muchas gracias de antemano.

Lepe 15-02-2005 10:17:39

Creo que pueden ir por aqui los tiros

Código Delphi [-]
adoquery2.ExecSQL;

 Application.ProcessMessages;
 Application.HandleMessages;

form2.XASIS.Open;

Al ponerlo en dos botones, simplemente dejas "respirar" al sistema para que se inserte el dato en la BBDD.

Saludos


La franja horaria es GMT +2. Ahora son las 17:56: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