Visual Basic - Conectar DTPicker con Access

Life is soft - evento anual de software empresarial
   
Vista:

Conectar DTPicker con Access

Publicado por Luis Arcos (1 intervención) el 26/12/2007 05:02:07
Hola a todos... gracias por su ayuda desde ya...

tengo una db (acces) obviamente tengo los botones con campos que se desean guardar en acces y tengo un campo destinado a guardar la ffecha de nacimiento por DTPicker.. y quisiera saber:.

Como almacenar en mi db la fecha seleccionada en el DTPicker?


Muchas gracias desde ya estare..
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:Conectar DTPicker con Access

Publicado por csdk (127 intervenciones) el 09/01/2008 00:04:28
dtpicker.value clar depende del formato de fecha del sistema operativo
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:Conectar DTPicker con Access

Publicado por Joan (1 intervención) el 27/03/2008 15:37:29
fecha = DTPicker.value o fecha =format( DTPicker.value, y el formato que quiera)
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:Conectar DTPicker con Access

Publicado por Bella (2 intervenciones) el 31/10/2008 00:24:52
Esta fue mi solución:

Private Sub consultaCitas()
Me.Caption = dtpFechaInicial
Dim Finicial, Ffinal As String

dtpFechaInicial.CustomFormat = Format(dtpFechaInicial.Value, "mm/dd/yyyy")
Finicial = dtpFechaInicial.CustomFormat

dtpFechaFinal.CustomFormat = Format(dtpFechaFinal.Value, "mm/dd/yyyy")
Ffinal = dtpFechaFinal.CustomFormat

If txtMedico <> "" Then
adoFiltroCitas.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "cmd_bd.mdb;Persist Security Info=False"

adoFiltroCitas.RecordSource = "SELECT DISTINCT Cita.Fecha, Cita.Hora,Paciente.Id_Paciente,(Paciente.Nombre + ' ' + Paciente.Apellido_paterno + ' ' + Paciente.Apellido_materno) as nombre_completoP, Medico.Id_Medico, (Medico.Nombre + ' ' + Medico.Apellido_paterno + ' ' + Medico.Apellido_materno) as nombre_completo " + _
"FROM Medico INNER JOIN (Paciente INNER JOIN Cita ON Paciente.Id_Paciente = Cita.Id_Paciente) " + _
"ON (Medico.Id_Medico = Paciente.Id_Medico) AND (Medico.Id_Medico = Cita.Id_Medico) " + _
"WHERE Cita.Fecha Between #" & Finicial & "# And #" & Ffinal & "# AND (Medico.Nombre + ' ' + Medico.Apellido_paterno + ' ' + Medico.Apellido_materno) like '" + txtMedico + "'"

adoFiltroCitas.Refresh
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