使用VBA更新查询

meer 发表于 Dev

更多的

我试图通过Excel更新sql中的记录。我已经在excel中的按钮上写下了一些代码，以便在sql服务器中插入和更新记录。我设法插入记录，但在更新查询时出错。我已经检查了关于stackoverflow的解决方案，但是仍然出现错误。任何人都可以在以下代码行中检查iam做错了什么

  conn.Execute = "UPDATE dbo.EmployeeInfo" _
        & "SET Week= ('" & Week& "') " _
        & "Time= ('" & Time & "') " _
        & "DateFrom = ('" & DateFrom & "') " _
        & "DatoTo = ('" & DatoTo & "') " _
        & "Name= ('" & Name & "') " _
        & "Description= ('" & Description & "') " _
        & "Codes= ('" & Codes& "')" _
        & "WHERE Week= (" & .Cells(iLoop, 1) & ") 
       AND DateFrom = (" & .Cells(iLoop, 3) & ")
       AND DatoTo = (" & .Cells(iLoop, 4) & ") 
       AND Name= (" & .Cells(9, oLoop) & ")"

路易吉·麦肯齐·布里托（Luigi Mackenzie C.Brito）

您需要在每列之间加一个逗号...

  conn.Execute = "UPDATE dbo.EmployeeInfo" _
        & "SET Week= ('" & Week& "'), " _
        & "Time= ('" & Time & "'), " _
        & "DateFrom = ('" & DateFrom & "'), " _
        & "DatoTo = ('" & DatoTo & "'), " _
        & "Name= ('" & Name & "'), " _
        & "Description= ('" & Description & "'), " _
        & "Codes= ('" & Codes& "')" _
        & "WHERE Week= (" & .Cells(iLoop, 1) & ") 
       AND DateFrom = (" & .Cells(iLoop, 3) & ")
       AND DatoTo = (" & .Cells(iLoop, 4) & ") 
       AND Name= (" & .Cells(9, oLoop) & ")"

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。