Visual Basic - data en basic

Life is soft - evento anual de software empresarial
   
Vista:

data en basic

Publicado por nelisa (8 intervenciones) el 28/10/2007 16:54:13
hola gente estoy programando y necesito saber como programar con fechas en visual basic tengo fechas de alta y baja pero no se como hacer la conexion y declarar en la programacion. gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:data en basic

Publicado por ivan (1041 intervenciones) el 28/10/2007 21:41:30
Empezando por lo primero

"hola gente"
¿ acaso crees que somos un rebaño?

"estoy programando y necesito saber como programar"
En qué quedamos ¿estás programando, o necesitas saber como programar?

"pero no se como hacer la conexion y declarar en la programacion"
No coment

bufff..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

data en basic ayuda

Publicado por nelisa (8 intervenciones) el 29/10/2007 08:42:41
hola necesito saber como programar con fechas en visual basic tengo una tabla con fechas de alta y baja pero no se como hacer la conexion y declarar en la programacion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

data en basic ayuda

Publicado por nelisa (8 intervenciones) el 29/10/2007 08:52:10
hola necesito saber como programar con fechas en visual basic tengo una tabla con fechas de alta y baja pero no se como hacer la conexion y declarar en la programacion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:data en basic

Publicado por Carlos (1 intervención) el 29/10/2007 12:39:27
Hola, ¿que es lo que quieres hacer realmente con esas fechas?. Explicalo un poco mas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:data en basic

Publicado por Nelisa (8 intervenciones) el 30/10/2007 21:51:04
EL PROBLEMA QUE TENGO ES CON LOS CAMPOS DE FECHA, ESTAN MAL DECLARADOS X QUE ME TIRA MUCHOS ERRORES. Y NO SE COMO ARREGLARLOS YO TENIA UN MANUAL PERO LO PERDI X ESO NECESITO AYUDA.
Public caso As Integer
Public ins As Boolean
Public Sub Procedimiento()
Select Case caso
Case 1 'nuevo
txtDescripcion.Text = ""
txtdatfechainicio.DataFormat = ""
txtdatfechacierre.DataFormat = ""
ins = True
mnuArchivoNuevo.Enabled = False
mnuArchivoModificar.Enabled = False
mnuArchivoEliminar.Enabled = False
mnuArchivoGuardar.Enabled = True
mnuArchivoCAncelar.Enabled = True
mnuEdicionSeleccionar.Enabled = False
mnuArchivoVolver.Enabled = False
Toolbar2.Buttons("Nuevo").Enabled = False
Toolbar2.Buttons("Modificar").Enabled = False
Toolbar2.Buttons("Eliminar").Enabled = False
Toolbar2.Buttons("Guardar").Enabled = True
Toolbar2.Buttons("Cancelar").Enabled = True
Toolbar2.Buttons("Volver").Enabled = False
Toolbar2.Buttons("Seleccionar").Enabled = False
Case 2 'mod
ins = False
mnuArchivoNuevo.Enabled = False
mnuArchivoModificar.Enabled = False
mnuArchivoEliminar.Enabled = False
mnuArchivoGuardar.Enabled = True
mnuArchivoCAncelar.Enabled = True
mnuEdicionSeleccionar.Enabled = False
mnuArchivoVolver.Enabled = False
Toolbar2.Buttons("Nuevo").Enabled = False
Toolbar2.Buttons("Modificar").Enabled = False
Toolbar2.Buttons("Eliminar").Enabled = False
Toolbar2.Buttons("Guardar").Enabled = True
Toolbar2.Buttons("Cancelar").Enabled = True
Toolbar2.Buttons("Volver").Enabled = False
Toolbar2.Buttons("Seleccionar").Enabled = False
Case 3 'Eliminar
If MsgBox("Estas seguro que desea Eliminar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_DelPeriodos" & rs.Fields("CodPeriodo")
cmd.Execute
rs.Requery
MsgBox "El Registro fue Eliminado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
Case 4 'Guardar
If ins = True Then
If MsgBox("Estas seguro que desea Ingresar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_InsPeriodos '" & txtDescripcion.Text & "'"
cmd.CommandText = "Sp_InsPeriodos '" & txtdatfechainicio.DataFormat & "'"
cmd.CommandText = "Sp_InsPeriodos '" & txtdatfechacierre.DataFormat & "'"
cmd.Execute
rs.Requery
MsgBox "El Registro fue Ingresado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
Else
If MsgBox("Estas seguro que desea Modificar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtDescripcion.Text & "'"
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtdatfechainicio.DataFormat & "'"
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtdatfechacierre.DataFormat & "'"
cmd.Execute
rs.Requery
MsgBox "El Registro fue Guardado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
End If
Case 5 'Cancelar
ins = False
mnuArchivoNuevo.Enabled = True
mnuArchivoModificar.Enabled = True
mnuArchivoEliminar.Enabled = True
mnuArchivoGuardar.Enabled = False
mnuArchivoCAncelar.Enabled = False
mnuEdicionSeleccionar.Enabled = True
mnuArchivoVolver.Enabled = True
Toolbar2.Buttons("Nuevo").Enabled = True
Toolbar2.Buttons("Modificar").Enabled = True
Toolbar2.Buttons("Eliminar").Enabled = True
Toolbar2.Buttons("Guardar").Enabled = False
Toolbar2.Buttons("Cancelar").Enabled = False
Toolbar2.Buttons("Volver").Enabled = True
Toolbar2.Buttons("Seleccionar").Enabled = True
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
rs.Requery
End Select
End Sub
Private Sub Form_Load()
shapeItctl1.Make shproundedrectangle, 0, 0, 525, 210, 65, 65
Set rs = New ADODB.Recordset
rs.Open "Carreras", cn, adOpenStatic, adLockOptimistic
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
caso = 5
Call Procedimiento
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgprihot.Visible = False
imgpri.Visible = True
imgsighot.Visible = False
imgsig.Visible = True
imganthot.Visible = False
imgant.Visible = True
imgulthot.Visible = False
imgult.Visible = True
End Sub

Private Sub imgant_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imganthot.Visible = True
imgant.Visible = False
End Sub

Private Sub imganthot_Click()
rs.MovePrevious
If Not rs.BOF = True Then
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
Else
rs.MoveFirst
End If
End Sub

Private Sub imgpri_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgpri.Visible = False
imgprihot.Visible = True
End Sub

Private Sub imgprihot_Click()
rs.MoveFirst
txtDescripcion.Text = rs.Fields("Descripcion")
End Sub

Private Sub imgsig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgsig.Visible = False
imgsighot.Visible = True
End Sub

Private Sub imgsighot_Click()
rs.MoveNext
If Not rs.EOF = True Then
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")

Else
rs.MoveLast
End If
End Sub

Private Sub imgult_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgult.Visible = False
imgulthot.Visible = True
End Sub

Private Sub imgulthot_Click()
rs.MoveLast
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")

End Sub

Private Sub mnuArchivoCAncelar_Click()
caso = 5 'Cancelar
Call Procedimiento
End Sub

Private Sub mnuArchivoEliminar_Click()
caso = 3 'Eliminar
Call Procedimiento
End Sub

Private Sub mnuArchivoGuardar_Click()
caso = 4 'Guardar
Call Procedimiento
End Sub

Private Sub mnuArchivoModificar_Click()
caso = 2 'Modificar
Call Procedimiento
End Sub

Private Sub mnuArchivoNuevo_Click()
caso = 1 'Nuevo
Call Procedimiento
End Sub

Private Sub mnuArchivoVolver_Click()
Unload Me
End Sub

Private Sub mnuEdicionSeleccionar_Click()
seleccion = rs.Fields("CodPeriodo")
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Nuevo"
mnuArchivoNuevo_Click
Case "Modificar"
mnuArchivoModificar_Click
Case "Eliminar"
mnuArchivoEliminar_Click
Case "Cancelar"
mnuArchivoCAncelar_Click
Case "Guardar"
mnuArchivoGuardar_Click
Case "Seleccionar"
mnuEdicionSeleccionar_Click
Case "Volver"
mnuArchivoVolver_Click
End Select
End Sub
Private Sub txtDescripcion_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 Then
If Len(txtDescripcion.Text) > 40 Then
KeyAscii = 0
Else
If InStr("zxcvbnmasdfghjklñqwer tyuiopáéíóú", LCase(Chr(KeyAscii))) = 0 Then
KeyAscii = 0
End If
End If
Else
If KeyAscii = 13 Then
SendKeys ("{Tab}")
End If
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar