how do i update database using ADODB.Recordset?

Posted by every_answer_gets_a_point on Stack Overflow See other posts from Stack Overflow or by every_answer_gets_a_point
Published on 2010-05-12T21:21:34Z Indexed on 2010/05/12 21:24 UTC
Read the original article Hit count: 200

Filed under:
|
|
|

i am using excel to connect to a mysql database:

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

what is the next step?

how do i do an rs.execute?

© Stack Overflow or respective owner

Related posts about excel

Related posts about mysql