Как обновить базу данных с помощью 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(), который обновляет и обновляет набор записей.