Visual Basic - ayuda con data

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con data

Publicado por nelisa (8 intervenciones) el 31/10/2007 19:34:33
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 pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con data

Publicado por ivan (1041 intervenciones) el 31/10/2007 23:11:38
y... acaso esperas que nos leamos todo el ladrillo que nos pones???

unos no llegan y otros se pasan
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

para ivan

Publicado por nelisa (8 intervenciones) el 01/11/2007 20:28:10
ivan te pido x favor que no respondas a ninguna duda que yo tenga, todas las dudas que alguien me pueda responder que lo haga cualquiera, pero vos por favor trata de ni habrir y menos hacer comentarios, por favor. si?
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:para nelisa

Publicado por Juan Español (47 intervenciones) el 01/11/2007 22:39:32
pero nena, que es lo que esperas?

a preguntas imbèciles se responde con lo mismo.

el ivan este me toca los collones lo que diga menos "habrir" tus comentarios, creo que esto lo he explicado mas de una vez, y ahora lo pongo con mayúslas:

SI NO SABES ESCRIBIR, COMO QUIERES SABER PROGRAMAR?

según las estadísticas los argentinos (dentro de la lengua española) son los mas analfabetos y yo lo estoy comprobando en este foro (y en otros).

bueno, si el Ivan es argentino, le pido disculpas ( es una excepción )
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:ayuda con data

Publicado por El conejo (124 intervenciones) el 06/11/2007 01:26:52
Hola Nelisa.

Mujer, tienes muchos errores, de hecho al comenzar tu formulario ya estas con un problema de conectividad, en realidad no hay conectividad, para cargar tú base de datos debes crear una instancia:

Set con = New ADODB.Connection
con.ConnectionString = "driver={tu controlador};server=tu-servidor;port=puerto;uid=usuario;pwd=clave;database=nombre-base-datos;connection="

primero intenta corregir lo que es la conectividad, luego que tengas claro como crear esa instacia (no olvides las referencias difieren segun tu motor).
luego de eso la forma de declarar las variables que contendran tus tablas seria asi:
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With

Me parece que luego de eso los problemas serán mucho menores.
Saludos.
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