| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Inquilino Invitado
|
Publicado: Sab 01 May, 2004 6:54 am Asunto: Evitar Mouse SQL cuando hago consultas |
|
|
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 |
|
 |
ikis Master


Registrado: 28 Dic 2002Mensajes: 703Ubicación: Madrid, España
|
Publicado: Sab 01 May, 2004 2:16 pm Asunto: |
|
|
prueba con poner
Form1->cursor = crDefault;
posterior a mandar tu sentencia SQL |
|
| Volver arriba |
|
 |
Desesperado Invitado
|
Publicado: Dom 02 May, 2004 3:20 am Asunto: No!! |
|
|
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 |
|
 |
Invitado
|
Publicado: Dom 02 May, 2004 4:49 am Asunto: |
|
|
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 |
|
 |
Inquilino Invitado
|
Publicado: Dom 02 May, 2004 6:39 am Asunto: No!! |
|
|
Hola Invitado, grcias por la respuesta pero no me funcoina tu consejo..!!
Mil gracias seguire intentando.
Bye. |
|
| Volver arriba |
|
 |
ikis Master


Registrado: 28 Dic 2002Mensajes: 703Ubicación: Madrid, España
|
Publicado: Dom 02 May, 2004 6:20 pm Asunto: |
|
|
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 |
|
 |
Desesperado Invitado
|
Publicado: Lun 03 May, 2004 7:17 pm Asunto: No!"! |
|
|
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 |
|
 |
ikis Master


Registrado: 28 Dic 2002Mensajes: 703Ubicación: Madrid, España
|
Publicado: Lun 03 May, 2004 7:24 pm Asunto: |
|
|
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 |
|
 |
Desesperado Invitado
|
Publicado: Lun 03 May, 2004 7:35 pm Asunto: Si!! |
|
|
Si Ikis uso BDE!!!
Espero tu ayuda.
Gracias. |
|
| Volver arriba |
|
 |
alfredo Master

Registrado: 13 Oct 2003Mensajes: 246Ubicación: Valencia Venezuela
|
Publicado: Mar 04 May, 2004 4:09 pm Asunto: |
|
|
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 |
|
 |
Yo Invitado
|
Publicado: Vie 07 May, 2004 6:20 am Asunto: o!! |
|
|
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 |
|
 |
SirQiT Cdt

Registrado: 09 Sep 2003Mensajes: 12Ubicación: chihuahua, chih. mex.
|
Publicado: Mie 28 Jul, 2004 7:37 pm Asunto: |
|
|
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 |
|
 |
|