PortalÍndiceFAQBuscarMiembrosGrupos de UsuariosChateaRegistrarseConectarse
Gracias a todos los que nos apoyan y nunca nos escriben Smile ...
Y a los que si también!!....
Conectarse
Nombre de Usuario:
Contraseña:
Entrar automáticamente en cada visita: 
:: Recuperar mi contraseña
Temas similares
Mejores posteadores
Diego (55)
 
Jexi (49)
 
Martello (49)
 
chn666 (30)
 
Serekos (11)
 
yunier_722 (7)
 
luysk8 (7)
 
Angelillo (5)
 
xulinho (4)
 
José Carlos (4)
 
Últimos temas
» Drivers de Audio de mi Tarjeta desaparecen al conectar tarjeta de audio externa
Jue Oct 24, 2013 4:19 pm por DjCarlosMix

» BIENVENID...
Miér Feb 27, 2013 5:36 pm por ale

» No logro introducir un Int en una matriz de byte
Vie Ene 25, 2013 6:59 pm por DanielC#

» INSERTAR TOTAL VENDIDO DURANTE EL DIA
Vie Oct 28, 2011 12:16 am por Jexi

» ALGUIEN ME PUEDE AYUDAR CON ESTE PROGRAMA EN C¿?
Miér Oct 26, 2011 8:35 pm por krojas

» contador del 00 al 99 con debug
Lun Abr 25, 2011 8:47 pm por ayon1969

» Libreria de audio para C# .NET
Jue Feb 24, 2011 12:37 pm por Tzero

» hola ... me ayudan porfavor Simulacion
Sáb Nov 13, 2010 8:23 pm por Jexi

» Windows XP , pasara a la segunda decada..??
Vie Ago 13, 2010 7:30 pm por Diego

Visitantes

casino Contador encuestas

Comparte | 
 

 En visual Basic Como usar solamente numeros y diagonales (/)? Y otros temas

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Angelillo

avatar

Soy : Masculino
Mensajes : 5
Coeficiente Intelectual : 13
Llegué el : 12/06/2010
Edad : 23

MensajeTema: En visual Basic Como usar solamente numeros y diagonales (/)? Y otros temas   Sáb Jun 12, 2010 11:47 pm

Despues de resolver el de arriva tengo la duda del siguiente:

Private Sub cmdGuardar_Click()
rst.Open "SELECT * FROM Matutino", CBD, adOpenKeyset, adLockOptimistic
If rst("Horario") = Me.cmbHorario.Text And rst("Fecha") = Me.txtFecha.Text Then
MsgBox "HORA Y FECHA OCUPADA"
rst.Close
Else
rst.AddNew
'rst("NoReunion") = Me.txtFolio.Text
rst("NombreMaestro") = Me.txtProfesor.Text
rst("Fecha") = Me.txtFecha.Text
rst("Equipo") = Me.txtEquipo.Text
rst("NombreEncargado") = Me.cmbEncargado.Text
rst("Grupos") = Me.txtGrupo.Text
rst("Materia") = Me.txtMateria.Text
rst("Horario") = Me.cmbHorario.Text
rst("HorarioSalida") = Me.cmbHorarioSalida.Text
rst.Update
MsgBox "INFORMACIÓN GUARDADA", vbInformation, "GUARDAR"
Me.txtProfesor.Text = ""
Me.txtFecha.Text = ""
Me.txtEquipo.Text = ""
Me.cmbEncargado.Text = ""
Me.txtMateria.Text = ""
Me.cmbHorario.Text = ""
Me.txtGrupo.Text = ""
Me.cmbHorarioSalida.Text = ""
rst.Close
Me.txtProfesor.SetFocus
End If
End Sub


COMO SE DAN CUENTA AY UN "IF"

If rst("Horario") = Me.cmbHorario.Text And rst("Fecha") = Me.txtFecha.Text Then
MsgBox "HORA Y FECHA OCUPADA"

CON ESTO QUIERO QUE EN MI PROGRAMA, AL PONER LA FECHA Y LA HORA IGUAL
QUE UNA YA GUARDADA EN LA BASE DE DATOS ACCES, ME MANDE UN MSGBOX QUE
ME AVISE EL ERROR QUE ES LA "HORA Y FECHA OCUPADA".

CUANDO PROBE EL PROGRAMA PRIMERO CREE UNA HORA Y UNA FECHA Y DESPUES
INTENTE CREAR EL MISMO Y ME MANDO A EL MSGBOX, PERO CUANDO CREE DOS,
OSEA CUANDO YA TENGO DOS HORARIOS EN LA BASE DE DATOS, SI REPITO LA
PRIMERA HORA Y LA PRIMER FECHA ME MANDA AL MSGBOX PERO AL INGRESAR LA
SEGUNDA HORA Y LA SEGUNDA FECHA DE LA BASE DE DATOS ME LA GUARDA Y LA
REPITE.

QUIERO DECIR QUE SOLO ME FUNCIONA CON EL PRIMER DATO GUARDADO EN LA BASE DE DATOS Y CON LOS DEMAS NO.

COMO LO SOLUCIONO?
Volver arriba Ir abajo
Ver perfil de usuario
Jexi
EQUIPO STAFF
EQUIPO STAFF
avatar

Soy : Femenino
Mensajes : 49
Coeficiente Intelectual : 146
Llegué el : 14/04/2010
Edad : 26
Localización : COLOMBIA
¿En que estas pensando? : 30%

MensajeTema: Re: En visual Basic Como usar solamente numeros y diagonales (/)? Y otros temas   Sáb Jun 12, 2010 11:54 pm

Hola, no olvides que antes de postear debes leer las reglas, si quieres que respondan a tu pregunta debes poner el icono [Tienes que estar registrado y conectado para ver esa imagen] en tu mensaje. Y bienvenido a la COMUNIDAD DEBUGGERS


[Tienes que estar registrado y conectado para ver esa imagen]
Recuerda: Este foro es de ayuda colectiva
Volver arriba Ir abajo
Ver perfil de usuario http://debuggers.foro-activo.com
Diego
EQUIPO STAFF
EQUIPO STAFF
avatar

Soy : Masculino
Mensajes : 55
Coeficiente Intelectual : 133
Llegué el : 19/04/2010
Edad : 25
Localización : Ecuador-guayaquil
¿En que estas pensando? : no te interesa

MensajeTema: respuesta   Dom Jun 13, 2010 12:03 am

tu problema es que esta siendo comparada la hora del sistema com la hora que esta actualmente cargada en el text, en vez de usar ese sistema deberia de buscar en al base de datos que estes buscando, por ejemplo si quieres buscar la fecha del sistema en el campo "fecha" de tu base, seria la instruccion findfirst de la opciones de data.....un ejemplo de busqueda es este

If Len(txtId.Text) > 0 Then
Data1.Recordset.FindFirst "codigo=&txtid.text&"
If Data1.Recordset.NoMatch Then
MsgBox "No existe ese cliente"
txtId.Text = " "
End If
End If


[Tienes que estar registrado y conectado para ver esa imagen]

Att:_Diego A.V
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: En visual Basic Como usar solamente numeros y diagonales (/)? Y otros temas   

Volver arriba Ir abajo
 
En visual Basic Como usar solamente numeros y diagonales (/)? Y otros temas
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» como ordenar multiples filas???????
» Como usar nuevamente mi dominio
» Duda sobre para que y como usar Juegos de papel.
» Como usar el tema de mi foro para crear otro foro nuevo
» Como usar las paginas HTLM?

Permisos de este foro:No puedes responder a temas en este foro.
DEBUGGERS :: LENGUAJES DE PROGRAMACION :: Visual Basic 6.0-
Cambiar a: