SQL DAO no actualiza base de datos

12/10/2005 - 21:25 por José_Antonio | Informe spam
He mandado esta consulta al grupo de Excel, pero más bien estimo que
es para plantearla en éste.

He detectado posteriormente que el problema está en la consulta de SQL
ya que aunque en Excel sí que es correcto el contenido de las
variables éstas no llegan a Access.
Un saludo y gracias por todo.


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 Juan M Afan de Ribera
12/10/2005 - 22:14 | Informe spam
Hola, es posible que el problema resida en el tipo de datos que e están
intentado actualizar. Yo creo que para estos casos, lo mejor es que utilices
consultas con parámetros. Si quieres, puedes mirarte este enlace, en el que
puedes ver un ejemplo de cómo implementarlo usando DAO

http://www.mvp-access.com/accessvba...sp?pagina%

Espero que te ayude

Saludos,
Juan M Afan de Ribera
[MVP Access]
http://www.mvp-access.com/accessvbafaq
http://www.mvp-access.com/juanmafan


"José_Antonio" escribió en el mensaje
news:
He mandado esta consulta al grupo de Excel, pero más bien estimo que
es para plantearla en éste.

He detectado posteriormente que el problema está en la consulta de SQL
ya que aunque en Excel sí que es correcto el contenido de las
variables éstas no llegan a Access.
Un saludo y gracias por todo.


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

Preguntas similares