Estoy haciendo un UPDATE en una tabla, tal como muestro a continuación, y me da un mensaje de error que no sé de dónde viene...
Código: Seleccionar todo
Sub AtendidosEntreFechas (Evento)
Dim BotonLabel As String
Dim oConsulta As Object
Dim sSQL As String
Dim oForm as Object
Dim Fecha_Inicio As String
Dim Fecha_Fin As String
Dim oStat As Object
Dim oRes As Object
oForm = Evento.Source.Model.Parent
Fecha_Inicio = oForm.ctFechaInicio.Text
Fecha_Fin = oForm.ctFechaFin.Text
'Comprobar formato fechas
If IsDate(Fecha_Inicio)=False OR IsDate(Fecha_Fin)=False OR Fecha_Inicio="" OR Fecha_Fin="" OR Format(Fecha_Inicio,"YYYY-MM-DD")>Format(Fecha_Fin,"YYYY-MM-DD") Then
msgbox ("Fecha de Inicio o Fin inválida")
Exit Sub
End If
' Damos valor NULL a fadesde y fahasta en la tabla datosninos
sSQL = "UPDATE ""datosninos"" SET ""fadesde"" = NULL, ""fahasta"" = NULL WHERE ""idninos"" > 0"
oStat=ThisDatabaseDocument.CurrentController.ActiveConnection.CreateStatement
oRes=oStat.executeQuery(sSQL)
End Sub
Error en tiempo de ejecución de BASIC.
Se ha producido una excepción
Type: com.sun.star.sdbc.SQLException
Message: Can not issue data manipulation staments wiht executeQuery()...
Estoy trabajando con OpenOffice 4.1.5
Saludos y gracias anticipadas.