Question

我正在尝试使用存储在excel中的信息更新访问数据库，下面是我将使用的单元格的示例：

01234   Past
43343   failed
43743   past

这是我到目前为止所做的：

Dim strQry As String
Dim strID As String
Dim strStatus As String

strID = CStr(ThisWorkbook.Sheets("Test").Range("A1").FormulaR1C1)
strStatus = CStr(ThisWorkbook.Sheets("Test").Range("B1").FormulaR1C1)

strQry = "Update Tasks SET Status = '" & strStatus & "'" WHERE id= '" & strID & "'"

我一直收到语法错误。基本上我想使用ID更新任务的状态。

我是Uni的新成员，这是第一个编程工作，所以任何帮助都会受到高度赞赏。

Answer 1

如果不了解您的项目，很难提供帮助。

但以下应该是朝着正确方向迈出的一步：

Dim strQry As String, strID As String, strStatus As String

With ThisWorkbook.Worksheets("Test")
    strID = .Range("A1")
    strStatus = .Range("B1")
End With

strQry = "Update Tasks SET Status = '" & strStatus & "' WHERE id= '" & strID & "'"

使用Excel单元格作为参数来更新数据库

1 个答案: