Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   ayuda con banderas (http://www.forosdelweb.com/f69/ayuda-con-banderas-585608/)

cibernet 12/05/2008 14:08

ayuda con banderas
 
disculpen las molestias nuevamente, no se si alguien me podria ayudar a colocar unas tipos banderas, es decir, tengo una tabla llamda objetos la cual tiene nombre y ocupado; cuando seleccione un objeto donde esta el nombre de ese objeto me tiene que decir "si" eso querra decir que esta ocupado y cuando no lo este dira "no" d echo tola la columna de ocupado tienen no por default solo es cuestion de cambiarle pero nos e como hacerlo me podrian ayudar?? realmenet encesito ayuda, de antemano el agradesco su interes, y espeor uan respuesta pronto... gracias

jotaaigriegao 12/05/2008 14:33

Re: ayuda con banderas
 
tabla de base de datos? describe mejor lo que necesitas. si fuese de una bd, un update bastaria.q significa q algo este ocupado? explicate

cibernet 12/05/2008 15:11

Re: ayuda con banderas
 
:-)si tengo una tabla con dos columnas de esta manera:
Nom. Tab. = objetos

nombre ocupado
objeto1 no
objeto2 no
objeto3 no
.
.
objeton no

cuando alguien seleccione un objeto por ejemplo el objeto2 en la columna ocupado em debe de aparecer un si eso indica que si esta ocupado solo es para almacenarlo en uan tabla y cuando se desocupe pues que vuelva la palabra no.. espero y asi quede un poco mas claro.. gracias por su interes...:aplauso:

Baldur 13/05/2008 01:32

Re: ayuda con banderas
 
Primero, debes dar más datos, tales como que tipo de conexión utilizas...
Si usas un control ActiveX ADO,DAO...
O si lo haces directamente por código (ADO,DAO...)

Si es por código sería únicamente hacer un Update de la tabla.
strSQL="UPDATE Objetos SET ocupado='si' WHERE nombre='objeto2'"
basededatos.execute(strSQL,,,)

Si es por un control ActiveX ADO
control.recordset.find("SELECT * FROM Objetos WHERE nombre='objeto2'")
control.recordset.field(1)='si'
control.recordset.update

Pero ya te digo, da más datos sobre lo que tienes sinó dificilmente podremos explicar lo que quieres...

Saludos!

cibernet 13/05/2008 07:41

Re: ayuda con banderas
 
si lo estoy haciendo por medio de codigo (ADODB) con el manejador de BD de SQL server 2000 y Visual Basic 6.0.. y pues como tambien les comente el nombre de la tabla se llama objetos y sus columnas son nombres y ocupado, para ser exactos son 20 objetos..

en una ventana tengo 20botones que son las que representan a cada objeto, su estado normal es de color blanco y a la hora de darle clic cambian de color rojo, precisamente cuando le de clic al boton y cambie de color me debe de aparecer en la tabla un si para que diga que si esta ocupado... espero y asi kede un poco mas claro.. espero una respuesta, gracias...

Baldur 13/05/2008 15:42

Re: ayuda con banderas
 
Bueno, pues si dices que cada botón se corresponde con un objeto yo diría que sería así, teniendo en cuenta que el botón1 se llama objeto1, el botón2 se llama objeto2...:
control.recordset.find("SELECT * FROM Objetos WHERE nombre='" & objeto1.name & "'")
control.recordset.field(1)="si"
control.recordset.update


En resumen sería eso, que cuando pulse el botón, busque el objeto con el nombre del botón, se sitúe en él, asigne el campo 1 (ocupado) el valor SI, y haga el update de las modificaciones realizadas.

No sé como tienes nombrados los botones, pero yo de ti, si no lo tienes hecho, haría una matriz de controles asignandoles un índice a cada botón(llamandolos objeto) que se corresponda este indice con el numero de objeto de la tabla y directamente con un:
control.recordset.find("SELECT * FROM Objetos WHERE nombre='objeto" & index & "'")
control.recordset.field(1)="si"
control.recordset.update

Así sólo tendrías que escribir ese código en el evento click del botón(matriz de botones) y nada más.
A lo mejor ya lo tienes hecho así, pero como se me ocurrió esta manerá rápida, sencilla y para toda la familia pues te la comento igualmente...xD

Saludos!

Baldur 14/05/2008 01:25

Re: ayuda con banderas
 
Ah, perdón, que te respondí como hacerlo mediante control ADO y me indicaste que lo tenías mediante codigo (ADODB).
No sé exactamente como lo tienes creado, pero por ejemplo yo tengo creado una funcion llamada Cargar() a la cual le envío la sentencia SQL y me la ejecuta.
Si es así, simplemente haz esto:
Cargar("UPDATE Objetos SET ocupado='si' where nombre='" & objeto1.name & "'")
o si lo tienes por matriz de controles como te indiqué en el anterior:
Cargar("UPDATE Objetos SET ocupado='si' where nombre='objeto" & index & "'")

Saludos!

cibernet 14/05/2008 07:12

Re: ayuda con banderas
 
ok muchas gracias por tu ayuda me sera de gran utilidad... y disculpa las molestas.. t envio un coordial saldo... y gracias nuevamente :aplauso:

David 16/05/2008 13:53

Respuesta: Re: ayuda con banderas
 
Respondiendo a tu pregunta (aquí para no repetir temas), según lo que publicó nuestro amigo Alejandro_88 creo que debería ser así:
Código:


cmd.CommandText = "update habitacion set disponible = 'si' where hab= '101'"
rsACS.Open cmd, , adOpenDynamic, adLockBatchOptimistic


cibernet 16/05/2008 14:25

Respuesta: ayuda con banderas
 
ok muchas gracias por su ayuda me ha sido de gran utilidad.. y disculpen las molestias un gran saludo asta luego y nuevamenet gracias.:-)


La zona horaria es GMT -6. Ahora son las 19:54.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.