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

我想使用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 & "'"