Hola foro tengo una consulta tal vez que me puedan ayudar.
Tengo un programa que lee un archivo *.dbf uso los componentes de BDE un table lee la tabla itero en sus registrso (algo de 1500) y genero una cadena conteniendo una instrucción INSERT de MySQL de todo esto se encarga el prodecimiento
genSQL_Insert() que devuelve la mensionanda cadena una vez con la cadena uso zeos para conectarme a mi server mysql remotamente y ejecutar dicha consulta de inserción
dicho codigo esta en un boton:
Código Delphi
[-]
procedure Tinicio.Button1Click(Sender: TObject);
begin
Cursor := crHourGlass;
Application.ProcessMessages;
Label1.Caption := 'Ejecutando actualización en el servidor MySQL, espere...';
Application.ProcessMessages;
ZSQLProcessor1.Script.Add('truncate table colegiados;');
ZSQLProcessor1.Script.Add(genSQL_Insert());
ZSQLProcessor1.Execute;
Label1.Caption := 'Actualización completada';
Cursor := crDefault;
end;
el problema es que el programa al hacer clic en el boton
1.- el cursor no cambia a reloj como estoy intentando
2.- en el label aparece "jecutando actualización en el servidor MySQL, espere..." y se queda plantado con el cursor normal
me gustaria saber como solucionar esto ademas implementar una barra de progreso para que el usuario tenga una idea de como va el proceso ademas de que no se quede congelado el programa.
Bueno amigos gracias de antemano por cualquier respuesta
Saludos
David