Excel VBA訪問

Question

我有以下代碼，其中.Fields ...沒有得到執行。 循環直接關閉連接，而沒有在表中添加記錄。

碼：

Sub insertIntoTable()

    Dim moviesConn As ADODB.Connection
    Dim moviesData As ADODB.Recordset
    Dim moviesField As ADODB.Fields
    Dim r As Range

    Set moviesConn = New ADODB.Connection
    Set moviesData = New ADODB.Recordset

    moviesConn.ConnectionString = conStrAccess
    moviesConn.Open

    On Error GoTo closeConnection

    With moviesData
        .ActiveConnection = moviesConn
        .Source = "tblFilmDetails"
        .LockType = adLockOptimistic
        .CursorType = adOpenForwardOnly
        .Open

    On Error GoTo closeRecordset
        For Each r In Range("A3", Range("A2").End(xlDown))
            .AddNew
            .Fields("Title").Value = r.Offset(0, 1).Value
            .Fields("Release_Date").Value = r.Offset(0, 2).Value
            .Fields("Length").Value = r.Offset(0, 3).Value
            .Fields("Genere").Value = r.Offset(0, 4).Value
            .Update
        Next r
    End With

    closeRecordset:
    moviesData.Close

    closeConnection:
    moviesConn.Close

End Sub

請建議

Answer 1

我可以使用以下連接字符串使您的代碼正常工作：

“提供程序= Microsoft.ACE.OLEDB.12.0;數據源= C：\\ Users \\ Best Buy \\ Desktop \\ test.accdb;持久安全信息= False;”

我們可以排除數據不匹配錯誤，因為它會在關閉連接之前引發3219 Runtime Error Operation。

Range("A3", Range("A2").End(xlDown))應該更改為Range("A2", Range("A" & Rows.Count).End(xlup)) ，原因有兩個：

1. 跳過第二行
2. 如果沒有數據超出第2行，您將添加1048575空記錄（請問我怎么知道）

如果數據集.Update ， .UpdateBatch在添加所有記錄后注釋掉.Update並使用.UpdateBatch 。 這將大大提高性能。

    For Each r In Range("A3", Range("A2").End(xlDown))
        .AddNew
        .Fields("Title").Value = r.Offset(0, 1).Value
        .Fields("Release_Date").Value = r.Offset(0, 2).Value
        .Fields("Length").Value = r.Offset(0, 3).Value
        .Fields("Genere").Value = r.Offset(0, 4).Value
        '.Update
    Next r
    .UpdateBatch

注意：如果在添加記錄時打開了表，則必須按F5刷新表並查看新數據。