Buscar la fecha mas reciente guardada en la base de datos, Ingreso y salida
Publicado por RENE (7 intervenciones) el 24/06/2021 15:56:28
Cordial saludo,
De manera cordial solicito ayuda con este código ya que no se por que me guarda el dato del usuario de fecha de ingreso y salida, pero después cuando quiero revisarlo (Buscar) solo aparece la fecha de ingreso y lo raro es que otros usuarios si les aparece bien. Pero si reviso la base de datos si esta bien el ingreso y salida del usuario es como si buscara la fecha anterior mas no la reciente. Aclaro que tengo programado un DateTimePicker1 el cual envia la fecha a un Text y de ahí se guarda en la base de datos Access. Dejo el código por si alguien sabe de esta falla. Gracias
----------------------------------------------------------------------------------------------
De manera cordial solicito ayuda con este código ya que no se por que me guarda el dato del usuario de fecha de ingreso y salida, pero después cuando quiero revisarlo (Buscar) solo aparece la fecha de ingreso y lo raro es que otros usuarios si les aparece bien. Pero si reviso la base de datos si esta bien el ingreso y salida del usuario es como si buscara la fecha anterior mas no la reciente. Aclaro que tengo programado un DateTimePicker1 el cual envia la fecha a un Text y de ahí se guarda en la base de datos Access. Dejo el código por si alguien sabe de esta falla. Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub TxtCedula_LostFocus(sender As Object, e As EventArgs) Handles TxtCedula.LostFocus
Try
'Si la webcam esta activada la detenemos y mostramos la imagenIf (Iniciar.Text = "Detener") Then
Terminar()
End If
'Accedemos a la baseConexion.ConnectionString = connString
Conexion.Open()
Dim str As String
'De donde...str = "SELECT * FROM Sujeto WHERE (Numero = '" & TxtCedula.Text & "')"
Dim cmd As OleDbCommand = New OleDbCommand(str, Conexion)
dr = cmd.ExecuteReader
'Cargamos y llenamos las cajas de textoWhile dr.Read()
ComboBox1.Text = dr("Tipo_Documento").ToString
TxtCedula.Text = dr("Numero").ToString
TxtNombre.Text = dr("Nombres").ToString
TxtApellidos.Text = dr("Apellidos").ToString
TxtMunic.Text = dr("Municipio").ToString
Txtcorreo.Text = dr("Correo").ToString
Pic.Image = Image.FromFile(ruta & "\" & TxtCedula.Text)
foto.Image = Pic.Image
TxtTel.Text = dr("Telefono").ToString
TxtFingreso.Text = dr("Fecha_Ingreso").ToString
TxtFsalida.Text = dr("Fecha_Salida").ToString
ComboBox2.Text = dr("Tipo_Vinculacion").ToString
ComboBox3.Text = dr("Tipo_Vehiculo").ToString
ComboBox4.Text = dr("Dependencia").ToString
TxtPlaca.Text = dr("Placa_Vehiculo").ToString
TxtObs.Text = dr("Observacion").ToString
End While
Conexion.Close()
Conexion.Dispose() 'liberamos recursos
Catch ex As Exception
ex.Message.ToUpper()
End Try
End Sub
1
2
3
4
5
6
7
8
9
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
TxtFingreso.Text = DateTimePicker1.Value
DateTimePicker1.Value = DateTime.Now
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
TxtFsalida.Text = DateTimePicker2.Value
DateTimePicker2.Value = Now
End Sub
Valora esta pregunta
0
