Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

Evitar Mouse SQL cuando hago consultas

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Bases de Datos
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Mensaje    Asunto: Evitar Mouse SQL cuando hago consultas Responder citando

Buenas:

Toy trabjando con una base de datos Interbase Firebird 1.5, quisiera que al hacer consultas el cursor de mi aplicacion no cambie, que no aparezca el cursor de SQl mientras se ejecuta la consulta, toy usando componentes BDE para el acceso a datos con Builder 6.0...

Gracias der antemano.

ta mañana.

Bye.
Volver arriba
Mensaje    Asunto: Responder citando

prueba con poner

Form1->cursor = crDefault;

posterior a mandar tu sentencia SQL
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
Mensaje    Asunto: No!! Responder citando

Hola Ikis, no me funciona lo del cursor?? como se podra quitar ese cursor de SQL de mi aplicacion, no tengo ni idea!!!

Saludos,

Bye.
Volver arriba
Mensaje    Asunto: Responder citando

la respuesta que di no la probe, otra forma podría ser habilitando un tiemer que haga la asignación del cursor justo antes de lanzar la sentencia sql, por ej:


Timer1->Enabled = true;
//sentecia sql

//fin sentencia sql

y dentro del Timer pones:
Form1->cursor = crDefault;

Fijate si anda
Volver arriba
Mensaje    Asunto: No!! Responder citando

Hola Invitado, grcias por la respuesta pero no me funcoina tu consejo..!!

Mil gracias seguire intentando.

Bye.
Volver arriba
Mensaje    Asunto: Responder citando

prueba una cosa, pon en un botón

Form1->cursor = crDefault;

y lo presionas en el momento q queres que cambie.

Al menos así podrás comprobar si existe alguna forma de hacerlo.
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
Mensaje    Asunto: No!"! Responder citando

Hola Ikis, te cuento que no me sirve lo del cursor, no se ocmo hacerlo, creo que me va a quedar grande..

saludos.

bye.
Volver arriba
Mensaje    Asunto: Responder citando

Ahora estoy un poco ocupado pero dejame investigar un poquito, ¿usas BDE?

Si no te respondo en unos dias hazme acordar en un mail.
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
Mensaje    Asunto: Si!! Responder citando

Si Ikis uso BDE!!!

Espero tu ayuda.

Gracias.
Volver arriba
Mensaje    Asunto: Responder citando

Hola no lo he probado por no tener ninguna tabla bde lo bastante grande como para apreciar el cambio de icono, pero prueba lo siguente:

Evento BeforeOpen de la Query:
Código:
Screen->Cursor= Controls::TCursor(crDefault);
Volver arriba
Ver perfil de usuario Enviar mensaje privado Enviar email
Mensaje    Asunto: o!! Responder citando

Hola mil gracias por respondere pero no me funciona lo qu eme sugieres, alguna otra pista?? no entiendo como no has experimentado lo del cursor, pues cada vez que ejecutas una consuklta sql el cursor cambia sin importar que tan compleja es dicha consulta asi que se ve mi problema en cualquier caso


AyudaAAAAAAAAA!!!

Please,

Bye.
Volver arriba
Mensaje    Asunto: Responder citando

Mira creo que la solución es la siguiente

Vas a necesitar hacer un archivo de recursos (.res Puedes usar el ImageEditor) y agregarle dos cursores a este archivo uno con el cursor de crSQLWait con nombre SQLWAIT2 y otro con el de crDefault con nombre DEFAULT2 (ingéniatelas para copiarlos)

Este archivo de recursos lo guardas y lo agregas a tu proyecto

luego cuando vayas a ejecutar un sentencia de SQL que no quieras que se vea el cursor de SQLWait haces lo siguiente

Código:
Screen->Cursors[crSQLWait] = LoadCursor(HInstance, "DEFAULT2")


de esta manera cambias el cursor crSQLWait a uno igual al crDefault el cual se muestra pero no se nota el cambio

después de ejecutada la sentencia de SQL pues haces lo contrario para devolver los cursores a como estaban

Código:
Screen->Cursors[crSQLWait] = LoadCursor(HInstance, "SQLWAIT2")
Volver arriba
Ver perfil de usuario Enviar mensaje privado MSN Messenger
Mostrar mensajes de anteriores:   
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.