¿Que formato de fecha usar en instrucciones SQL de access?

29/04/2010 - 01:35 por Roys | Informe spam
Porque la siguiente instrucción SQL en el campo fecha, por ejemplo si deseo
introducir: 1-2-10 me devuelve en la tabla 02-01-2010

SQL = "INSERT INTO PadreMadreResponsableControl ( ResponsableID,
ControlDetalle, Fecha ) SELECT PadreMadreResponsable.IDResponsable, '" &
NombreActividad & "' AS ControlDetalle, #" & FechaActividad & "# AS Fecha
FROM PadreMadreResponsable;"







El Código completo es el siguiente:

Private Sub cmdNuevaActividad_Click()
Dim NombreActividad As String
Dim FechaActividadStr As String
Dim FechaActividad As Date
Dim x As Integer

Dim Intenciones As Integer

Do Until NombreActividad <> ""
NombreActividad = InputBox("Escribe el nombre de la Actividad a
controlar:", "Nombre de actividad")

If NombreActividad = "" Then
MsgBox "Debe indicar un nombre", vbCritical
NombreActividad = ""
Intenciones = Intenciones + 1
Else

End If
If Intenciones = 2 Then
Exit Do
End If
Loop

If NombreActividad = "" Then
MsgBox "Acción canelada", vbExclamation
Exit Sub
End If
Intenciones = 0

Do Until IsDate(FechaActividadStr) = True
FechaActividadStr = InputBox("Escribe la fecha para la actividad:",
"Fecha de actividad")

If IsDate(FechaActividad) = False Then
MsgBox "Debe indicar una fecha", vbCritical
FechaActividad = ""
Intenciones = Intenciones + 1
Else
FechaActividad = CDate(FechaActividadStr)
Me.lblFecha.Caption = FechaActividad
End If
If Intenciones = 2 Then
Exit Do
End If
Loop
MsgBox FechaActividad

If FechaActividadStr <> "" Then
SQL = "INSERT INTO PadreMadreResponsableControl ( ResponsableID,
ControlDetalle, Fecha ) SELECT PadreMadreResponsable.IDResponsable, '" &
NombreActividad & "' AS ControlDetalle, #" & FechaActividad & "# AS Fecha
FROM PadreMadreResponsable;"
DoCmd.RunSQL SQL
DoCmd.RunCommand acCmdRefreshPage
DoCmd.OpenForm "PadresControl", acNormal, , "[ControlDetalle] =
'" & NombreActividad & "' And [Fecha]= #" & FechaActividad & "#"
Me.cbbActividadSelección = ""
Me.cbbPadresSelección = ""
Else
MsgBox "No se pudo agregar la actividad por falta de datos",
vbExclamation
End If
End Sub
 

Leer las respuestas

#1 raipon
29/04/2010 - 07:44 | Informe spam
Hola, en vez de construir dinámicamente la cadena sql, utiliza una consulta
con parámetros y el objeto QueryDef.
Te ahorrarás un montón de complicaciones.

Aquí tienes un ejemplo de Happy :

http://accessvbafaq.mvps.org/item.asp?pagina%

Adios, un saludo.

"Roy's" <Roy' escribió en el mensaje
news:
Porque la siguiente instrucción SQL en el campo fecha, por ejemplo si
deseo
introducir: 1-2-10 me devuelve en la tabla 02-01-2010

SQL = "INSERT INTO PadreMadreResponsableControl ( ResponsableID,
ControlDetalle, Fecha ) SELECT PadreMadreResponsable.IDResponsable, '" &
NombreActividad & "' AS ControlDetalle, #" & FechaActividad & "# AS Fecha
FROM PadreMadreResponsable;"







El Código completo es el siguiente:

Private Sub cmdNuevaActividad_Click()
Dim NombreActividad As String
Dim FechaActividadStr As String
Dim FechaActividad As Date
Dim x As Integer

Dim Intenciones As Integer

Do Until NombreActividad <> ""
NombreActividad = InputBox("Escribe el nombre de la Actividad a
controlar:", "Nombre de actividad")

If NombreActividad = "" Then
MsgBox "Debe indicar un nombre", vbCritical
NombreActividad = ""
Intenciones = Intenciones + 1
Else

End If
If Intenciones = 2 Then
Exit Do
End If
Loop

If NombreActividad = "" Then
MsgBox "Acción canelada", vbExclamation
Exit Sub
End If
Intenciones = 0

Do Until IsDate(FechaActividadStr) = True
FechaActividadStr = InputBox("Escribe la fecha para la
actividad:",
"Fecha de actividad")

If IsDate(FechaActividad) = False Then
MsgBox "Debe indicar una fecha", vbCritical
FechaActividad = ""
Intenciones = Intenciones + 1
Else
FechaActividad = CDate(FechaActividadStr)
Me.lblFecha.Caption = FechaActividad
End If
If Intenciones = 2 Then
Exit Do
End If
Loop
MsgBox FechaActividad

If FechaActividadStr <> "" Then
SQL = "INSERT INTO PadreMadreResponsableControl (
ResponsableID,
ControlDetalle, Fecha ) SELECT PadreMadreResponsable.IDResponsable, '" &
NombreActividad & "' AS ControlDetalle, #" & FechaActividad & "# AS Fecha
FROM PadreMadreResponsable;"
DoCmd.RunSQL SQL
DoCmd.RunCommand acCmdRefreshPage
DoCmd.OpenForm "PadresControl", acNormal, , "[ControlDetalle] > '" & NombreActividad & "' And [Fecha]= #" & FechaActividad & "#"
Me.cbbActividadSelección = ""
Me.cbbPadresSelección = ""
Else
MsgBox "No se pudo agregar la actividad por falta de datos",
vbExclamation
End If
End Sub

Preguntas similares