SQL DAO no actualiza base de datos

12/10/2005 - 12:47 por joseagarciag | Informe spam
Compañeros estoy intentando ejecutar una consulta de datos anexados
utilizando DAO. Tras algunos problemas con el código que me daba
errores ahora ya no me da ningún error pero no se actualiza la base de
datos.

¿Podríais ayudarme para saber dónde está la errata?. Gracias por
todo.

Sub MANDAR_ENSAYO()
Dim dbActualizarEnsayos As DAO.Database
Dim qdfConsultaTemporal As DAO.QueryDef
Dim strConsulta As String
Dim i As Integer
Dim IdMúsico As String, Fecha_de_Ensayo As Date, Falta As Boolean,
NOrden As Integer
Dim UltimoMusico As Integer
Set dbActualizarEnsayos = OpenDatabase _
(ThisWorkbook.Path & "\ENSAYOS BANDA.mdb")
Set qdfConsultaTemporal = dbActualizarEnsayos.CreateQueryDef("")
'
UltimoMusico = ThisWorkbook.Sheets("Hoja4") _
.Cells(65536, 3).End(xlUp).Row

For i = 6 To UltimoMusico
NOrden = ThisWorkbook.Sheets("Hoja4").Cells(i, 3)
IdMúsico = ThisWorkbook.Sheets("Hoja4").Cells(i, 4)
Fecha_de_Ensayo = ThisWorkbook.Sheets("Hoja4").Cells(i, 5)
Falta = ThisWorkbook.Sheets("Hoja4").Cells(i, 6)
'
strConsulta = "INSERT INTO [FALTAS DE ASISTENCIA]" & _
" (NOrden, IdMúsico, [Fecha de Ensayo], Falta) " & _
"VALUES (" & NOrden & ", "" & IdMúsico & "", "" & Fecha_de_Ensayo
& "", "" & Falta & "");"
'
'MsgBox Path
With qdfConsultaTemporal
.Sql = strConsulta
.Execute
End With
Next i
End Sub
 

Leer las respuestas

#1 José_Antonio
12/10/2005 - 21:20 | Informe spam
He llegado a detectar que el error está en la consulta SQL:

strConsulta = "INSERT INTO [FALTAS DE ASISTENCIA]" & _
" (NOrden, IdMúsico, [Fecha de Ensayo], Falta) " & _
"VALUES (" & NOrden & ", "" & IdMúsico & "", "" & Fecha_de_Ensayo
& "", "" & Falta & "");"
'



ya que en Excel el contenido de las variables es correcto, pero no así
el contenido cuando llega a Excel (realmente aquí no llega).

No tengo conocimientos de SQL por lo que agradecería una ayudita.
Gracias.

Preguntas similares