如何使用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（），它更新和刷新記錄集。