Как мне обновить базу данных с помощью ADODB.Recordset?

Question

Я использую Excel для подключения к базе данных MySQL:

Dim dpath, atime, rtime, lcalib, aname, rname, bstate, instrument As String
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    ConnectDB
    With wsBooks
           rs.Open "batchinfo", oConn, adOpenKeyset, adLockOptimistic, adCmdTable


    Worksheets.Item("Report 1").Select
    dpath = Trim(Range("B2").Text)
    atime = Trim(Range("B3").Text)
    rtime = Trim(Range("B4").Text)
    lcalib = Trim(Range("B5").Text)
    aname = Trim(Range("B6").Text)
    rname = Trim(Range("B7").Text)
    bstate = Trim(Range("B8").Text)

       ' instrument = GetInstrFromXML(wbBook.FullName)

    With rs
        .AddNew ' create a new record
        ' add values to each field in the record
        .Fields("datapath") = dpath
        .Fields("analysistime") = atime
        .Fields("reporttime") = rtime
        .Fields("lastcalib") = lcalib
        .Fields("analystname") = aname
        .Fields("reportname") = rname
        .Fields("batchstate") = "bstate"
        .Fields("instrument") = "NA"
        .Update

 ' stores the new record
    End With

каков следующий шаг?

как мне сделать rs.execute?

Answer 1

Должен ли rs.Update () сделать это? Или вы можете вызвать rs.Requery (), который обновляет и обновляет набор записей.