替换 Access 表中的数据

Question

我使用 VBA Word with Access 创建/存储疗养院的就诊记录。

以下是我如何从 Access 中获取数据的示例（显然是获取 mid-Sub）。 这是在 Word 中填充一个 ComboBox，它给了我所有患者的列表，它工作得很好！

'....

    Set Conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    strConn = ActiveDocument.CustomDocumentProperties("strConn").Value
    Conn.Open (strConn)
    qry = "SELECT * FROM tblPatientInfo ORDER BY LastName, Firstname"
    rs.Open qry, Conn, adOpenKeyset
    rs.MoveFirst
    x = 0

    While Not rs.EOF
   
    F1.ComboDashPtList.AddItem
    F1.ComboDashPtList.List(x, 0) = rs.Fields("LastName").Value & ""
    F1.ComboDashPtList.List(x, 1) = rs.Fields("FirstName").Value & ""
    F1.ComboDashPtList.List(x, 2) = Format(rs.Fields("DOB").Value, "MM\/dd\/yyyy") & ""
    F1.ComboDashPtList.List(x, 3) = rs.Fields("MedNumber").Value & ""
    rs.MoveNext
    x = x + 1
    Wend
    rs.Close
    Exit Sub`

'....

这是我如何将数据发送回 Access 的示例（再次获取 mid-Sub）。

`   Set Conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    Conn.Open (strConn)
    rs.Open strDBPtInfo, strConn, adOpenKeyset, adLockOptimistic, adCmdTable
    rs.AddNew
    rs!MedNumber = strMedNum
    rs!LastName = strLastName
    rs!Firstname = strFirstName
    rs!DOB = dtDOB
    rs.Update `

'....

有时我需要完全覆盖或添加到某个 Access 表中的特定字段。 多年来，“有人可能对青霉素过敏，但突然间他们也对可待因过敏，因此必须‘更新’。 这是我采用的方法，但我不断收到错误消息：

'....

`   Set Conn = New Connection
    Set rs = New Recordset
      
    Conn.Open (strConn)
    strUpdateqry = "SELECT * FROM tblMedHxInfo WHERE MedNumber = " & Chr(34) & strMedNum & Chr(34) & ""
    rs.Open strUpdateqry, strConn, adOpenKeyset
    rs!Allergies = "Penicillin, Codeine"                
    rs.Update
            
    If rs.State = 1 Then rs.Close
    If Conn.State = 1 Then Conn.Close
    Set rs = Nothing
    Set Conn = Nothing`
                    
....

这是错误：

“运行时错误‘3251’：当前记录集不支持更新。这可能是提供者或所选锁类型的限制”

'任何帮助将不胜感激！

“谢谢，”德里克

'我试过使用记录集创建一个临时表，然后用它来更新，但它让我难以理解

Answer 1

显式声明连接和记录集类型。 然后不需要设置行。
设置锁类型参数。
参考连接 object 不是用于打开记录集的字符串变量。

Dim cn As ADODB.Connection, rs As ADODB.Recordset
cn.Open (strConn)
strUpdateqry = "SELECT * FROM tblMedHxInfo WHERE MedNumber = " & Chr(34) & strMedNum & Chr(34)
rs.Open strUpdateqry, cn, adOpenKeyset, adLockOptimistic               
rs.Update "Allergies", "Penicillin, Codeine" 

或者不是打开记录集 object 进行插入或更新：

Dim cn As ADODB.Connection
cn.Open (strConn)
cn.Execute "UPDATE tblMedHxInfo SET Allergies = 'Penicillin, Codeine' WHERE MedNumber='" & strMedNum & "'"