使用用户表单命令按钮更新记录时，记录不会出现在 RS 中

Question

我正在尝试使用 Excel 中的用户表单在访问数据库中附加/更新某个记录。我将表从访问数据库导入到列表框，然后当双击行时，它将条目复制到文本框，这不会失败。但是，当我更改框中的值时，应该会在单击附加按钮时更新/附加数据库中的记录。但是，它没有。

Private Sub cmdAppend_Click()
    'Declaring the necessary variables.
    Dim cnn As ADODB.Connection 'dim the ADO collection class
    Dim rs As ADODB.Recordset 'dim the ADO recordset class
    Dim i As Integer
    Dim X As Integer
    Dim varr As String

    'add error handling
    On Error GoTo errHandler:

    If Me.Arec36.Value = "" Then
        MsgBox "You must enter Child Case.", _
        vbOKOnly Or vbInformation, "Insufficent data"
        Exit Sub
    End If

    Set cnn = New ADODB.Connection ' Initialise the collection class variable

    varr = Me.Arec36


    'Connection class is equipped with a —method— named Open
    '—-4 aguments—- ConnectionString, UserID, Password, Options
    'ConnectionString formula—-Key1=Value1;Key2=Value2;Key_n=Value_n;
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\10.4.1.62\RiskTeam\Dispute Core Team Original\Chimp Change\Analysis\Database\ChimpDB.accdb"

    Set rs = New ADODB.Recordset 'assign memory to the recordset

    'Create the SQL statement to retrieve the data from table.
    rs.Open "SELECT * FROM tbl_raw " & _
    "WHERE Child_Ref = " & varr, ActiveConnection:=cnn, _
    CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
    Options:=adCmdText

    If rs.EOF And rs.BOF Then
        'Close the recordet and the connection.
        rs.Close
        cnn.Close

        'clear memory
        Set rs = Nothing
        Set cnn = Nothing

        'Enable the screen.
        Application.ScreenUpdating = True

        'In case of an empty recordset display an error.
        MsgBox "There are no records in the recordset!", vbCritical, "No Records"

        Exit Sub
    End If

    With rs
        For i = 22 To 35
            rs(Cells(1, i).Value) = Me.Controls("Arec" & i).Value
            Next i
        rs.Update
    End With

    'clear the userform values
    For X = 22 To 35
        Me.Controls("Arec" & X).Value = ""
        Me.Arec36.Value = ""
        Me.Arec37.Value = ""
    Next

    'Close the recordset and the connection.
    rs.Close
    cnn.Close

    'clear memory
    Set rs = Nothing
    Set cnn = Nothing

    'refresh the listbox
    ImportUserForm

    'Enable the screen.
    Application.ScreenUpdating = True

    Me.lstDataAccess.RowSource = "DataAccess"

    'Inform the user that the macro was executed successfully.
    MsgBox "Congratulation the data has been appended", vbInformation, "Append successful"

    'error handler
    On Error GoTo 0

    Exit Sub

errHandler:
    'clear memory
    Set rs = Nothing
    Set cnn = Nothing

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Append_Data"

End Sub

Answer 1

我认为删除 Options:=adCmdText 可能就足够了。该过程未作为命令实现。

要添加行，您需要在更新之前拥有 .AddNew。

Answer 2

RS 是 Access DB 连接的索引。 DB 没有单元格。如果您想写入 RS，只需引用索引 FIELD，如 RS(FIELDS(1, i).Value)。但是，您的查询也是一个选择语句。您不能使用 select 语句更新记录集，除非您要插入到另一个表中。为了更新记录，您需要在 INDEX 上发出 UPDATE！我希望这会有所帮助。