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 | 
 

 Problema con mi programa en VISUAL BASIC 6

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



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

MensajeTema: Problema con mi programa en VISUAL BASIC 6   Dom Jun 13, 2010 12:38 am

Disculpen pero soy nuevo en el foro. Tengo una serie de preguntas que pueden resultar complicadas, pero si fueran respondidas queraria muy agradecido ya que es para mi trabajo final de programacion de VISUAL BASIC 6.

Empezare de lo mas sencillo (eso creo yo [Tienes que estar registrado y conectado para ver esa imagen] )

¿Como hacer que un textBox (txtFecha), solo me acepte numeros del 0 al 9 y la diagonal (/), esto lo quiero para que el usuario que use mi programa solo pueda poner la fecha de este modo 28/06/2010, tambien una duda que tenia es si puedo hacer que se acepten solo 2 digitos en el primer espacio, dos en el segundo y 4 en el tercero, para ahora si obligar al usuario ademas de solo utilizar numeros a poner la fecha tal y cual la quiero para llevar un mejor control al buscar las cosas en la base de datos porque con esta pequeña variacion 25/06/10 ya no me busca la fecha correcta.
GRACIAS

Problema 2:
Tengo un problema al guardar datos en la base de datos ACCESS, el problema no suena tan complicado pero no encuentro mi error.

Al guardar una Hora y una fecha repetida (repetida a una existente en la base de datos) me manda a un MsgBox pero si por ejemplo tengo en la base de datos:

Fecha Hora
28/06/2010 08:00:00
29/06/2010 09:00:00

Si tengo eso en la base de datos y en los campos de hora y fecha pongo 28/06/2010 08:00:00 que estan en la fila 1 y doy guardar me dice que estan repetidas (eso esta perfecto es lo que busco), pero si repito 29/06/2010 09:00:00 que estan en la fila 2 me dice que lo guardo correctamente y no se cual es mi error ya que al checar la base de datos me aparece asi:

Fecha Hora
28/06/2010 08:00:00
29/06/2010 09:00:00
29/06/2010 09:00:00

Aqui les dejo el codigo:

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


Problema 3:
El otro problema esta en el boton buscar.
Hasta ahora mi boton de buscar solo me pide que ponga la hora y al dar buscar me muestra todos los datos de la persona que ocupa esa hora y en que fecha.

Pero ahora quiero que lo que me pida sea la hora y la fecha, para asi llevar mejor control, ya que si alguien repite la hora en otra fecha y lo busco me manda al primer registro y no al que en verdad busco.

Aqui el codigo:

Private Sub cmdBuscar_Click()
rst.Open "Select * from Matutino where Horario='" & Me.cmbHorario & "'", CBD, adOpenKeyset, adLockBatchOptimistic

If Not rst.EOF Then

txtProfesor.Text = rst("NombreMaestro")
cmbHorario.Text = rst("Horario")
txtMateria.Text = rst("Materia")
txtGrupo.Text = rst("Grupos")
txtEquipo.Text = rst("Equipo")
txtFecha.Text = rst("Fecha")
txtFolio.Text = rst("NoReunion")
cmbHorarioSalida.Text = rst("HorarioSalida")
rst.Close

Else
MsgBox "HORA LIBRE"
txtProfesor = ""
cmbHorario.Text = ""
txtMateria.Text = ""
txtGrupo.Text = ""
txtEquipo.Text = ""
txtFecha.Text = ""
txtFolio.Text = ""
cmbHorarioSalida.Text = ""
txtProfesor.SetFocus
rst.Close
End If
End Sub

-------------------------------------------------------------------------
-------------------------------------------------------------------------
-------------------------------------------------------------------------

Si me pueden mandar el codigo corregido es mejor si solo quieren dejar la explicacion, pues gracias por la ayuda.

GRACIAS COMUNIDAD Debuggers! [Tienes que estar registrado y conectado para ver esa imagen]
Volver arriba Ir abajo
Ver perfil de usuario
Angelillo



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

MensajeTema: Re: Problema con mi programa en VISUAL BASIC 6   Dom Jun 13, 2010 1:05 am

Parte de la respuesta 1 es:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 6
End If
End Sub


Solo falta lo demas xD

La duda que tenia si puedo hacer que se acepten solo 2 digitos en el
primer espacio, dos en el segundo y 4 en el tercero, para ahora si
obligar al usuario ademas de solo utilizar numeros a poner la fecha tal
y cual la quiero para llevar un mejor control al buscar las cosas en la
base de datos porque con esta pequeña variacion 25/06/10 ya no me busca
la fecha correcta.
Volver arriba Ir abajo
Ver perfil de usuario
Diego
EQUIPO STAFF
EQUIPO STAFF


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

MensajeTema: respuesta   Dom Jun 13, 2010 11:17 am

haber amigo, este post ya lo hicistes, el de buscar y guardar, yo te respondi que hagas el boton buscar y que implantes la instruccion para comparar con todos los registros esto seria con la funcion "notmatch"......entonces haria la condicion de que sino encuentra el registro en toda la base de datos, entonces la guarde......asi solo aceptara registros que no esten guardados

2)con lo de tu formato de fecha......eso puedes configurarlo en la base de datos,al campo fecha le pones tipo "date"....y no character como a de tener, asi se pone el formato de fecha por defecto.....en ese campo....y solo aceptara de la forma en que le especificas


[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: Problema con mi programa en VISUAL BASIC 6   Hoy a las 8:47 am

Volver arriba Ir abajo
 
Problema con mi programa en VISUAL BASIC 6
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» ACCESS - multiusuarios
» Panel de Administracion
» formulario para filtro avanzado y para ingreso de información
» Extraer Informacion de Una Hoja Excel y presentar en una formulario
» Macro Sumar Restar

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